请教高手一个小问题

Question

使一个文本框获得焦点后，怎样实现文本框内的内容自动全选？而不用鼠标双击全选。 请赐教！谢谢

Answer 1

form.keypreview = true
text1.setfocus
sendkeys "{HOME}+{END}"

Answer 2

给你个函数，用着代就行了
'********************************************************************************
'*   功能  描述：指定的文本编辑控件内容为选中状态
'*   参数  说明：
'*         输入：文本编辑控件txt
'*         输出：None
'*   返回值说明：None
'*   作      者：ajiu
'*   更      新：
'*   创建  日期：2003/7/7
'*   更新  日期：
'********************************************************************************
Public Sub SelectTextValue(txt As TextBox)
    txt.SelStart = 0
    txt.SelLength = Len(txt.Text)
End Sub

Answer 3

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

Answer 4

方法1:
   text.selStart=0
   text.sellength=len(text1.text)
方法2：
   sendkeys "+{end}"

Answer 5

刚才第一个的代码要编在Text1_GotFocus的事件中

Answer 6

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

Answer 7

在text的click中    
    text1.SelStart = 0
    text1.SelLength = Len(text1.Text)
或者
cuizm(射天狼) 兄所说（他的方法更好些）