戻る

テキストを選択状態にする

目的

テキストボックスにフォーカスが移動してきたときにテキストを選択状態にする。

ポイント

テキストボックスの SelStart を０にし、SelLength をテキスト全体の長さに設定する。

サンプルコード

Option Explicit Private Sub SelectText() ' フォーカスのあるテキストを選択状態にする     Me.ActiveControl.SelStart = 0     Me.ActiveControl.SelLength = Len(Me.ActiveControl.Text)      End Sub Private Sub txtTest_GotFocus(Index As Integer) ' フォーカスを取得したときに選択状態にする     Call SelectText      End Sub

ソースのダウンロード