VB テキストボックスの文字を選択状態にする処理を、ひとつのプロシージャでコーディング

Visual Basicでテキストボックスの文字を全て選択状態する方法です。

方法としてはEnterイベントからSelectAllメソッドで可能です。

ですが、すべてのテキストボックスのイベントに、同じコーディングするのも面倒なので、プロシージャをひとつにまとめました。

よろしれば参考にしてください。

コーディングサンプル

コーディングサンプルは以下です。

    Private Sub TextBox1_Enter(sender As Object, e As EventArgs) Handles TextBox1.Enter _
                                                                        , TextBox2.Enter _
                                                                        , TextBox3.Enter

        Dim c As TextBox = CType(sender, TextBox)
        c.SelectAll()

    End Sub

解説

コーディングサンプルでわかると思いますが、簡単に説明します。

①イベントハンドルに複数のコントロールを指定する。

②｢Sender」引数からイベントが発生したテキストボックスを取得する。

③｢CType」でキャストして変数cに代入する。

④変数cにSelectAllで全選択になります。