Question

vb如何使鼠标左键按一下的同时按一下回车

我想要在VB窗口中点击一下鼠标左键的同时（最好过1秒）自动按一下回车键！
希望VB高手帮忙啊
最好详细一点啊
谢谢！
可不可以用 Check 来控制这个功能啊？

Answer 1

答案补充：当然可以。代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit
Dim f As Boolean
Private Sub Check1_Click()
f = Check1.Value
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If f Then Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
SendKeys "~"
End Sub

Answer 2

延时用timer
按键用SendKeys string

lv12那位大大已经给了答案，路过拿两分。

Answer 3

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If Check1.Value = 0 Then Exit Sub 'Check1未选中，退出
If Button <> 1 Then Exit Sub '不是左键，退出
t = Now
Do While DateDiff("s", t, Now) < 1 '延时1秒
DoEvents
Loop
SendKeys "~" '按回车键
End Sub

Answer 4

楼上那个的代码可以用