文字列反転処理

ももんがあ 2004-08-02 19:33:40 No: 84876

お世話になります。初心者の為、基本的な事になりますが・・・。
文字列の反転が出来なくて困っています。VB.NETではどう処理するのでしょか？

一応ソースです

Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus

TextBox1.Text = RevStr(TextBox1.Text)
End Sub

Private Function RevStr(ByRef s) As String

Dim a As String
Dim i As Long

        '** 文字列反転
        For i = Len(s) To 1 Step -1
            a = a & Mid(s, i, 1)
        Next
        RevStr = a

End Function

魔界の仮面弁士 2004-08-02 20:55:57 No: 84877

SelectAllメソッドを呼び出してみてください。