[saidhamed]

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

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

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

[SaedAmer]

كود :

textbox2.text = textbox1.text.Replace(" ", "")

[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

[saidhamed]

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

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