关于textbox的问题？？？？？

Question

怎么才能让textbox获得焦点时使得它其中的文本呈现全选的状态？？？

Answer 1

这样
Me.Text1.SelStart = 0
Me.Text1.SelLength = Len(Me.Text1.Text)
Me.Text1.SetFocus

Answer 2

Me.Text1.SetFocus
Me.Text1.SelStart = 0
Me.Text1.SelLength = Len(Me.Text1.Text)

Answer 3

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

Answer 4

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

Answer 5

Me.Text1.SetFocus
Me.Text1.SelLength

Answer 6

建议你用combox控件实现你的功能更好！
直接combox1.setFocus就可以被选中

Answer 7

SelStart = 0
来晚一步

Answer 8

http://expert.csdn.net/Expert/topic/2303/2303407.xml?temp=.3497888
中有自动生成代码的例子

Answer 9

Private Sub Form_Load()
Text1.Text = "123456789"
End SubPrivate Sub Text1_GotFocus()
SendKeys "{home}+{end}"
End Sub