Public Class Form1
Function InvertirString(ByVal str As String) As String
Dim Invertir As String
Dim ArrChar() As Char = str.ToCharArray()
Array.Reverse(ArrChar)
Invertir = ArrChar
Return Invertir
End Function
Private Sub btnInverter_Click(sender As Object, e As EventArgs) Handles btnInverter.Click
Me.TextBox1.Text = InvertirString(Me.TextBox1.Text)
End Sub
End Class
Pegue o projeto neste link: http://www.mediafire.com/?ds43hprevinu43w
Espero ter ajudado... até mais, abraços!
0 comentários:
Postar um comentário