vb 鼠标按下事件

VB鼠标



Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long’先声明

Private Sub Command1_Click()
Call SetCursorPos(600, 100)’将鼠标放到坐标为(600, 100)的地方
End Sub



'【鼠标单数按下时发生事件和双数按下时发生事件】
'【再添加一个窗体】在添加窗体“Form2”上【创建TextBox控件】【无需改动】
'在【原有窗体“Form1”】上【创建按钮控件】【默认名称“Command”】【无需改动】

Private Sub Command1_Click()
Form2.Text1.Text = Form2.Text1.Text + 5
a = Right$(Form2.Text1.Text, 1)
If a = 5 Then
弹出提示框 = MsgBox("你按下的是单数", 32, "标题栏名") '鼠标单数按下时发生事件
End If
If a = 0 Then
弹出提示框 = MsgBox("你按下的是双数", 32, "标题栏名")  '鼠标双数按时发生下事件
End If
End Sub

Private Sub Form_Load()
Form2.Text1.Text = "0"
End Sub


_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/