 |
可以在文本框的GotFocus中修改SelStart属性和SelLength属性。
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
威威的意见:
因为是“指向”,所以不要用GotFocus(),要用MouseMove。
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SelLength = Len(Text1.Text)
End Sub
鸿毅的意见:
在这个问题上还有一点,不知你是否想过,也就是你到底是想什么时候来删除这些内容呢,若我不想删除这些时候你该怎么办,但你又点击了它,所以呢,我的意见应是:
Private Sub Text1_DoubleClick()
Text1.SelLength = Len(Text1.Text)
End Sub
此问题由李海回答。
附加关键字:编程, 源程序, programming, source code, Visual Basic, VB, 标准控件, screen, button, combo, checkbox, listbox。
|