[saidhamed]

(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

 اخى الكريم ابراهيم بارك الله فيك واعزك الله فى الدارين واشكرك شكرا جزيلا , واشكر ادارة الموقع العظيم الذى يضم باقة
عظيمة من  عقول الفكر المنطقى والبرمجى امثالك . حاولت كثيرا ان اصل لهذا الكود لتكسير التص ولم انجح وها انت حللت لى المشكلة فى دقائق بارك الله فيك وجعل عطائك هذا فى ميزان حسناتك.