怎么用代码模拟鼠标双击这个动作？现在一个输入框有了焦点，用代码怎么才能选中其中的内容？

Question

就象在一个文本框中，双击鼠标时，就可以选中全部内容了，用代码如何实现？最好就是sendkeys命令。
谢谢先！

Answer 1

Option ExplicitPrivate Sub Form_Load()
   Me.Text1.Text = "Hello World,thi is a test"
End SubPrivate Sub Text1_DblClick()
  Me.Text1.SelStart = 0
  Me.Text1.SelLength = Len(Me.Text1.Text)
End Sub

Answer 2

为什么sendkey?明显可以在text的DblClick中间去写嘛.不要只钻一个方向嘛

Answer 3

借用一下版主的代码，楼主可能要的是这种效果Option ExplicitPrivate Sub Form_Load()
   Me.Text1.Text = "Hello World,thi is a test"
End SubPrivate Sub Text1_GotFocus()
  Me.Text1.SelStart = 0
  Me.Text1.SelLength = Len(Me.Text1.Text)
End Sub

Answer 4

呵呵，还是借莫小姐的代码一用Option ExplicitPrivate Sub Form_Load()
   Me.Text1.Text = "Hello World,this is a test"
End SubPrivate Sub Text1_GotFocus()
 SendKeys "{Home}+{End}" 
End Sub

Answer 5

Me.Text1.SelStart = 0
  Me.Text1.SelLength = Len(Me.Text1.Text)
也行
sendkeys "{Home}+{End}" 也行,都能达到目的,我一般是用前者

Answer 6

Me.Text1.SelStart = 0
Me.Text1.SelLength = Len(Me.Text1.Text)上面是模擬鼠標從文本的起始拖到尾，
下面是模擬鍵盤按下二個組合鍵。sendkeys "{Home}+{End}"

Answer 7

Me.Text1.SelStart = 0
Me.Text1.SelLength = Len(Me.Text1.Text)倒是可以，如果选中输入框的全部内容，SelStart属性可以不用

Answer 8

dbclick不是可以吗，为什么要简单变复杂啊