منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تفريق الحروف فى التكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تفريق الحروف فى التكست بوكس (/showthread.php?tid=41155)

تفريق الحروف فى التكست بوكس - saidhamed - 05-04-22

بسم الله الرحمن الرحيم

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

بارك الله فيكم.

RE: تفريق الحروف فى التكست بوكس - SaedAmer - 05-04-22

كود :
textbox2.text = textbox1.text.Replace(" ", "")


RE: تفريق الحروف فى التكست بوكس - Taha Okla - 05-04-22

استخدم ثلاث صناديق نص، وفي صندوق النص الاول بحيث حدث التغيير يكون كـ التالي :
كود :
   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


RE: تفريق الحروف فى التكست بوكس - saidhamed - 06-04-22

(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(" ", "")

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