小问题，关于焦点！

Question

Private Sub Command1_Click()       Text1.SetFocus
       SendKeys "{Home}+{End}"End Sub

Answer 1

Private Sub Text1_GotFocus()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub
点右边的"管理"

Answer 2

Private Sub text1_setfocus()      Text1.lenstart=0'选择的起点
      text1.lenwidth=len(text1.text)'选择的终点，即它的长度
End Sub 

Answer 3

SendKeys "{Home}+{End}"这是什么意思？

Answer 4

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

Answer 5

SendKeys "{Home}+{End}"是指模拟发送一个home + end的键盘输入,即选中一行

Answer 6

SendKeys "{Home}+{End}"是全选,如果不全选,用SelStart和SelLength 

Answer 7

'得到焦点
private sub form_load()
text1.setfocus
end sub'自动选中所有文本
Private Sub Text1_GotFocus()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub