vb.net - すべてのテキストボックスでの自動 SelectAll と gotfocus での numericUpDown コントロール

Question

got_focusでテキストボックス内のすべてのテキストを選択するコードがあります：

Private Sub myText_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles myText.GotFocus
    myText.SelectAll()
End Sub

VB.NET で、すべての TextBoxes および NumericUpDown コントロールが _GotFocus または _Enter でテキストを選択するようにする方法はありますか?

Answer 1

はい、非常にシンプルです。

   Private Sub TextBox2_GotFocus(sender As Object, e As System.EventArgs) Handles TextBox2.GotFocus
        TextBox2.Select(0, TextBox2.Text.Length)
    End Sub

Answer 2

Public Class MyTextBox Inherits System.Windows.Forms.TextBox Private _focused As Boolean

Protected Overrides Sub OnEnter(e As EventArgs)
    MyBase.OnEnter(e)
    If MouseButtons = MouseButtons.None Then
        SelectAll()
        _focused = True
    End If
End Sub

Protected Overrides Sub OnLeave(e As EventArgs)
    MyBase.OnLeave(e)
    _focused = False
End Sub

Protected Overrides Sub OnMouseUp(mevent As MouseEventArgs)
    MyBase.OnMouseUp(mevent)
    If Not _focused Then
        If SelectionLength = 0 Then
            SelectAll()
        End If
        _focused = True
    End If
End Sub

クラス終了