Question

VB的鼠标事件

比如 新建一个 按钮 要让这个 按钮 点击一下 就在 我设置的 位置 单击下，怎么弄啊？

Answer 1

在通过声明区加入以下代码：
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4

加入按钮的CLICK事件
Private Sub Command1_Click()
Dim x As Long ‘想单击区域的X坐标，以像素为单位
Dim y As Long‘想单击区域的Y坐标，以像素为单位

x = 10
y = 10
SetCursorPos x, y
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Answer 2

Private Sub Command1_Click()
Call Command2_Click
End Sub

Private Sub Command2_Click()
Label1.Caption = "单击的"
End Sub

这个就是按了按钮1，等于按了2