[VB_Coder]

السلام عليكم

- طريقة أخرى لكود عكس الكلمات أو الأحرف ، وتنفيذ العكس عند إختيار العنصر الأول من Combo1 ومحتوى العنصر الأول هو رقم "1" والضغط على الزر Command1 ، فسيكون الكود كالتالي :

كود :

Private Sub Command1_Click()

IF Trim$(Combo1.Text) = "1" Then

     Text2.Text = ""

     IF Trim$(Text1.Text) <> "" And InStr(1 , Text1.Text , " ") <> 0 Then
          
          Dim zWords() As String
          Dim I As Integer

          zWords = Split(Trim$(Text1.Text) , " ")
          
          For I = LBound(zWords) To UBound(zWords) Step -1
                Text2.Text = Text2.Text & Trim$(zWords(I)) & " "
          Next

          Text2.Text = Trim$(Text2.Text)

      Else

          Text2.Text = Trim$(Text1.Text)

      End IF

End IF

End Sub

- وهذا الكود لعكس أحرف مايوجد في Text1 ووضعه في Text2 :

كود :

Text2.Text = StrReverse(Text1.Text)

- تحياتي .