选择VBA用户窗体上的文本框内的文本

Question

每次单击用户表单时，我都使用以下代码来选择用户表单文本框内的文本，但是我有近 40 个文本框，我想知道是否有办法为所有文本框编写单个代码，而不是复制和粘贴这段代码 40 次。

Private Sub textbox1_MouseDown(ByVal Button As Integer, _ 
ByVal Shift As Integer,ByVal X As Single, ByVal y As Single)
With Me.textbox1
    .SelStart = 0
    .SelLength = Len(.Text)
End With
End Sub

Answer 1

有一些方法可以编写一个实例来运行它们。

您需要为将调用代码的单个实例的每个文本框的 MouseDown 事件添加一行代码。

例如：-

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SelectText
End Sub

然后创建一个适用于ActiveControl的过程：-

Private Sub SelectText()
With ActiveControl
    .SelStart = 0
    .SelLength = Len(.Text)
End With
End Sub