关于TextBox的一个问题

Question

'txtFilename.SetFocus
'txtFilename.SelStart = 0
'txtFilename.SelLength = Len(txtFilename)

Answer 1

Private Sub Text1_GotFocus()
    Dim txtLen As Long
    txtLen = Len(Text1.Text)
    Text1.SelStart = 0
    Text1.SelLength = txtLen
End Sub

Answer 2

SendKeys "{Home}+{End}"
比较简单，任何事件中都可以用。

Answer 3

你可以用VB的向导程序生成各种程序里面有很多你值得学习的地方，比如刚才这个问题，如果你提示有登陆框的化就会有此语句
        txtPassword.SetFocus
        txtPassword.SelStart = 0
        txtPassword.SelLength = Len(txtPassword.Text)
其实下面这句比较好，省事
SendKeys "{Home}+{End}"

Answer 4

当TEXT为MULTILINE时,SendKeys "{Home}+{End}" 如何运作?

Answer 5

Private Sub Text1_GotFocus()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub这段代码要写到这个事件里,用SetFocus方法不能保证任何时候都会正确

Answer 6

用SetFocus方法不能保证任何时候都会正确 ,
请解释理由或举例

Answer 7

Private Sub Text1_GotFocus()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub
是对的，可以给他分了。

Answer 8

foolishtiger(吴文智)　：那会在什么时候不正确呢？

Answer 9

在Text1的Enabled=False或者其它因系统关系Text1无法获得焦点时会出错.

Answer 10

无法获得焦点只不过是不执行这段代码，也就是实现不了这个功能。
这并不是出错，吓我一跳。对了，通用的错误捕获并用MsgBox的那段代码谁有？
可以加分的！