テキストボックス内の文字列を選択する方法

◆概要


このページは、Visual Basic 6.0でテキストボックスにカーソルを移動したときテキストボックス内の文字列を選択する方法について記載しています。


テキストボックスにカーソルを移動したときテキストボックス内の文字列を選択するようにすると入力しやすくなります。

◆標準モジュール


Option Explicit

Sub prcInput(objText As TextBox)
'テキストの内容を選択する
'テキストボックス内の内容に関係なく動く
    
    Dim lngLength As Long

    With objText
        lngLength = Len(Trim(.Text))
        If lngLength = 0 Then
            .Text = ""
        Else
            .SelStart = 0
            .SelLength = lngLength
        End If
    End With

End Sub
　　

◆対象となるテキストボックスのGotFocusイベントプロシージャ


Private Sub Text1_GotFocus()
    prcInput Text1
End Sub
　　

◆実行結果


実行結果



▼ページトップへ