Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'鼠标右键的时候全选
With TextBox1
If Button = 2 Then
.SelStart = 0
.SelLength = Len(.Text)
End If
End With
End Sub
VBA笔记——自动选择文本框内容
最新推荐文章于 2020-12-31 03:06:29 发布