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

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