编程论坛 → VB6论坛

vb6中，让鼠标左键单击连续单击5次的循环语句怎样写？

niyongjun 发布于 2015-03-23 04:24， 520 次点击

vb6中，我想让鼠标左键单击连续单击5次的循环语句怎样写？

5其实是个变量i,i的值也可能是8，那么左键就要单击8次。用哪个循环语句，怎样写，求大师帮助，谢谢！

2 回复

lianyicq2015-03-23 08:50

可以直接循环调用点击事件.比如

程序代码：

Dim temp As Integer

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 5
Form_Click
Next
Form1.Caption = temp
End Sub

Private Sub Form_Click()
temp = temp + 1
End Sub

也可以使用API
Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

niyongjun2015-03-23 13:37

回复 2楼 lianyicq

非常感谢您帮我解决了问题。