在VBA窗体中，文本框获得焦点时

gxumdr · 发表于 2013-1-11 15:32

各位VBA高手，小弟在VBA窗体中添加几个文本框，然后输入如下代码
Private Sub TextBox1_GotFocus()
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End Sub
为什么当Textbox1获得焦点时，没有全部选择其中的文本，而在VB环境是选中全部文本的，请问是怎么回事？？？

fzkoko · 发表于 2013-1-11 15:57

可以的，TextBox1 = "abcd"赋值后可以看到效果

Private Sub TextBox1_GotFocus()
TextBox1 = "abcd"
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)

End Sub

gxumdr · 发表于 2013-1-11 16:48

fzkoko 发表于 2013-1-11 15:57
可以的，TextBox1 = "abcd"赋值后可以看到效果

Private Sub TextBox1_GotFocus()

不行啊，我试过了

gxumdr · 发表于 2013-1-11 20:56

求高手赐教啊

fzkoko · 发表于 2013-1-12 00:08

gxumdr 发表于 2013-1-11 20:56
求高手赐教啊

窗体中TextBox1没有GotFocus事件吧，用Enter试试
Private Sub TextBox1_Enter()
TextBox1 = "abcd"
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End Sub

gxumdr · 发表于 2013-1-12 13:35

fzkoko 发表于 2013-1-12 00:08
窗体中TextBox1没有GotFocus事件吧，用Enter试试
Private Sub TextBox1_Enter()
TextBox1 = "abcd" ...

也不行啊，当文本获得焦点时也没有吧所有的文本选中啊

gxumdr · 发表于 2013-1-15 11:12

小弟的问题还没解决呢!！！高手快赐教啊~~~~~~~

		自动登录	找回密码
密码			免费注册

[求助] 在VBA窗体中，文本框获得焦点时