Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text.Replace(" ", "")
Dim AllData() As String = TextBox1.Text.Split(" ")
For i As Integer = 0 To AllData.Length - 1
TextBox2.Text &= AllData(i) & " "
Next
End Sub
(21-07-20, 03:49 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
تفضل
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text.Replace(" ", "")
Dim AllData() As String = TextBox1.Text.Split(" ")
For i As Integer = 0 To AllData.Length - 1
TextBox2.Text &= AllData(i) & " "
Next
End Sub