(04-04-22, 04:23 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم تفضل

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Mylen As Integer = TextBox1.TextLength
       Dim aa() As Char = TextBox1.Text.ToCharArray
       Dim MyStr As String = ""
       For i As Integer = 0 To Convert.ToInt32((aa.Length - 1) / 2)
           MyStr += aa(i).ToString()

           If Mylen > i + 1 Then
               MyStr += aa(Mylen - 1).ToString()
               Mylen -= 1
           Else
               Exit For
           End If
       Next
       If MyStr.Length > TextBox1.TextLength Then
           MyStr = MyStr.Substring(0, MyStr.Length - 1)
       End If
       MsgBox(MyStr)
   End Sub

(04-04-22, 05:15 AM)ابراهيم ايبو كتب : تفضل اخي الكريم بعد التعديل

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Mylen As Integer = TextBox1.TextLength
       Dim aa() As Char = TextBox1.Text.ToCharArray
       Dim MyStr As String = ""
       For i As Integer = 0 To Convert.ToInt32((aa.Length - 1) / 2)
           If Mylen >= i + 1 Then
               MyStr += aa(Mylen - 1).ToString()
               Mylen -= 1
           Else
               Exit For
           End If
           MyStr += aa(i).ToString()
       Next
       If MyStr.Length > TextBox1.TextLength Then
           MyStr = MyStr.Substring(0, MyStr.Length - 1)
       End If
       MsgBox(MyStr)
   End Sub