Question

vb中点击按钮后，如何模拟鼠标动作自动全选文本框中所有文字

点击按钮（command1）后，模拟鼠标动作自动全选文本框(text1)中所有文字（即从第一行选择到最后一行，有个过程，而不是一下子选择全部内容）。如何实现？
模拟鼠标动作注意要先在文本最前面点一下，最后要有释放鼠标左键的动作

Answer 1

个人觉得一个过程好控制些
而且text1.selstart应为0而不是1

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Dim l As Long
l = 0
Text1.SetFocus
Text1.SelStart = 0
Do While l <= Len(Text1) - Text1.SelStart
Text1.SelLength = l
l = l + 1
DoEvents
Sleep 50 '延时50毫秒
Loop
End Sub

难得你想实现按键精灵的效果？
用API mouse_event和 getwindowrect

Answer 2

建一个timer

模拟
Private Sub Timer1_Timer()
Text1.SelStart = 1
For i = 1 To Len(Text1)
Text1.SelLength = i
Next i
End Sub
速度由timer的interval决定

Answer 3

Text1.SelStart = 0
Text1.SelLength =len(Text1)