vb鼠标事件

vb鼠标事件



代码窗口----事件-----
(通用)里有控件名      (声明)默认为Click()【鼠标单击事件】

鼠标事件： 　　
Click：单击事件，即单击鼠标时发生的事件。 　　
DblClick：双击事件，即双击鼠标时发生的事件。 　　
MouseDown：鼠标按下时发生的事件。 　　
MouseUp：鼠标抬起时发生的事件。 　　
MouseMove：鼠标移动时发生的事件。
键盘事件：

列:鼠标单击事件
Private Sub 控件名_Click()
发生事件
End Sub

’【鼠标点击窗体事件】
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End ’【退出】
End Sub


列:鼠标经过与离开【控件】事件
’声明
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
’以下内容定义【鼠标经过离开控件Command1、事件发生在:窗体上】
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseEnter As Boolean
MouseEnter = (0 <= X) And (X <= Command1.Width) And (0 <= Y) And (Y <= Command1.Height)
If MouseEnter Then
Me.Caption = "进入"'Me为窗体通用名
SetCapture Command1.hwnd
Else
Me.Caption = "退出"
ReleaseCapture
End If
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/