vb中mousemove事件,vb中mousedown是什么意思
VB鼠标MOUSEMOVE事件
构思了不少时间,完成
(补充:
钩子函数倒是不知道
下面的代码已经实现你要的功能了
试试看)
Private
Sub
Form_MouseMove(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
Dim
ctl
As
Control
For
Each
ctl
In
Form1
If
TypeOf
ctl
Is
Label
Then
If
(X
=
ctl.Left
And
X
=
ctl.Left
+
ctl.Width)
And
(Y
=
ctl.Top
And
Y
=
ctl.Top
+
ctl.Height)
Then
1'鼠标移动到label控件上触发的事件
End
If
End
If
Next
ctl
End
Sub
VB里的mousemove事件举例
这是鼠标移动时发生的事件,如:
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox "你点到我啦!"
End Sub
当鼠标移动到这个标签控件的时候,就弹出对话框
扩展资料:
鼠标事件是Visual Basic编程中最常用到的事件,多数控件都支持鼠标操作,因此对鼠 标事件进行编程是非常重要的。
鼠标事件主要有以下几种:
MouseDown:鼠标按下时发生的事件。
MouseUp:鼠标抬起时发生的事件。
MouseMove:鼠标移动时发生的事件,对某控件的此事件进行编程,则当鼠标移过此控件时就会触发此事件,执行其相应代码。
参考资料来源:百度百科-VB事件
vb的MouseMove事件 急
首先
image1.VISIBLe=TRUE
image2.VISIBLe=false
image3.VISIBLe=false
其次
mouse_mouse 事件
image1.VISIBLe=false
image2.VISIBLe=TRUE
image3.VISIBLe=false
最后
mouse_down 事件
image1.VISIBLe=false
image2.VISIBLe=false
image3.VISIBLe=TRUE
vb中MouseMove怎么用?
MouseMove事件伴随鼠标指针在对象间移动时连续不断地产生。除非有另一个对象捕获了鼠标,否则,当鼠标位置在对象的边界范围内时该对象就能接收 MouseMove事件。
要测试 button 或 shift 参数,可使用对象浏览器中的 Visual Basic (VB) 对象库中所列出的常数,用来定义该参数中的各个位:
vbLeftButton
左按钮按下。
vbRightButton
右按钮按下。
vbMiddleButton
中间按钮按下。
vbShiftMask
SHIFT 键按下。
vbCtrlMask
CTRL 键按下。
vbAltMask
ALT 键按下。
然后这些常数用作位屏蔽,对于按钮的各种组合,无须计算出各个组合的唯一的位字段值即可进行检测。
要测试某一条件,首先将各个结果赋给一个临时整型变量然后再与一个位屏蔽的 button 或 shift 参数进行比较。测试应当用各个参数进行 And 运算,若结果大于零,则说明该键或按钮被按下。其操作如下:
LeftDown = (Button And vbLeftButton) 0 CtrlDown = (Shift And vbCtrlMask) 0
然后,接下去可对结果的各种组合进行检测,其操作如下:
If LeftDown And CtrlDown Then
注意为了对鼠标按钮按下和释放所引起的事件进行处理,可使用 MouseDown 和 MouseUp 事件过程。
MouseMove事件的 button 参数与 MouseDown 和 MouseUp 事件的 button 参数是不同的。对于 MouseMove事件来说,button 参数指示的是所有按钮当前的状态;一个 MouseMove事件可指示某些、全部或没有一个按钮被按下。对于 MouseDown 和 MouseUp 事件来说,button 参数在每个事件精确地指示一个按钮。
在 MouseMove事件中任何时候移动窗口,都能引起层叠事件。当该窗口移动到指针下面时 MouseMove事件将产生。即使是鼠标完全不动 MouseMove事件也能产生。