terça-feira, 9 de outubro de 2012

on



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