تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تفريق الحروف فى التكست بوكس
#1
بسم الله الرحمن الرحيم

رجاء من الاخوة الكرام  اريد كود كتابة نص فى تكست بوكس تكون الكلمات  مشبكة بدون مسافات اى الغاء عمل مسطرة الكيبورد
ويتم طباعة نفس النص فى تكست اخر تكون فيه الحروف مفرقة .

بارك الله فيكم.
الرد }}}
تم الشكر بواسطة:
#2
كود :
textbox2.text = textbox1.text.Replace(" ", "")
الرد }}}
#3
استخدم ثلاث صناديق نص، وفي صندوق النص الاول بحيث حدث التغيير يكون كـ التالي :
كود :
   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       Dim X As String = ""

       TextBox2.Text = TextBox1.Text.Replace(" ", "")

       For i = 1 To TextBox1.Text.Length
           X = X & Mid(TextBox1.Text, i, 1) & " "
       Next

       TextBox3.Text = Trim(X)
   End Sub
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
#4
(05-04-22, 05:59 AM)Taha Okla كتب : استخدم ثلاث صناديق نص، وفي صندوق النص الاول بحيث حدث التغيير يكون كـ التالي :
كود :
   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       Dim X As String = ""

       TextBox2.Text = TextBox1.Text.Replace(" ", "")

       For i = 1 To TextBox1.Text.Length
           X = X & Mid(TextBox1.Text, i, 1) & " "
       Next

       TextBox3.Text = Trim(X)
   End Sub
شكرا اخى العزيز طه الكود صحيح وهذا ما اريده بارك الله فيك وزادك علما.

(05-04-22, 05:03 AM)SaedAmer كتب :
كود :
textbox2.text = textbox1.text.Replace(" ", "")

شكرا اخى هذا الكود الذى طرحته ساعدنى فى برنامجى بارك الله فيك.
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 142 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,620 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  [VB.NET] إرسال البيانات من التكست بوكس إلى الداتا قريد أبووسم 5 720 28-04-23, 04:15 PM
آخر رد: أبووسم
  [VB.NET] محتاج كود اضهار مسج بوكس كل يوم سبت او احد mac9 8 842 27-03-23, 10:44 PM
آخر رد: sanyor77
  مشكلة في كومبو بوكس فراس محي 3 570 14-03-23, 06:40 PM
آخر رد: عضو جديد
  [VB.NET] راديو بوتن & شيك بوكس الزويي 2 499 19-01-23, 05:25 PM
آخر رد: الزويي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم