vb中有2个text输入框，如何设置当光标停到里面后text里的内容自动被选中？

Question

1.如何设置当按下Ctrl+A时text里的内容被选中？
2.如何设置当光标停到里面后text里的内容自动被选中？

Answer 1

第一个其实不用设置，因为计算机默认的文本选择就是Ctrl+A，不过原理还是给你看看吧、text1的tabindex=0

Private Sub text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 65 And Shift = 2 Then
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End If
End Sub

Private Sub Text2_GotFocus()
Text2.SelStart = 0
Text2.SelLength = Len(Text1)
End Sub

参考资料：QQ 490573788

Answer 2

第一个不用设。。直接按Ctrl-A就可以选中.

第二个用这段代码实现:

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub