Question

用VB6.0设计了几个TEXTBOX控件，目的是让TEXT获得光标的时候，TEXT的内容是全选的状态

用TAB或是单击左键 TEXT的内容也是全选状态，请给出具体的代码 谢谢大家
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub
以上代码 提示“过程声明与同名事件或过程的描述不匹配”

Answer 1

可以用这种方法
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
具体是单击还是获得光标你自己在事件中调试

Answer 2

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub
直接在每个text的gotfocus事件里写入上面的代码就行,当然,数字号要对应每个text的序号

Answer 3

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