文字列反転処理


ももんがあ  2004-08-02 10:33:40  No: 84876  IP: [192.*.*.*]

お世話になります。初心者の為、基本的な事になりますが・・・。
文字列の反転が出来なくて困っています。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 11:55:57  No: 84877  IP: [192.*.*.*]

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

編集 削除