vb中mousemove事件,vb中mousedown是什么意思

http://www.itjxue.com  2023-01-17 07:00  来源:未知  点击次数: 

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

Print

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事件也能产生。

(责任编辑:IT教学网)

更多