Question

VB鼠标MOUSEMOVE事件

想要将鼠标移动到LABEL控件之上之后就触发事件发生
但是不知道详细的确定方法
只知道用if 和for语句
for语句用来循环判定该form上所有的label控件
if是用来判定鼠标是否移动到label控件之上
请高手将代码写出来
有追加分
不是说有一个钩子函数么？具体怎么实现啊？

Answer 1

构思了不少时间，完成
(补充：
钩子函数倒是不知道
下面的代码已经实现你要的功能了
试试看)
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

Answer 2

构思了不少时间，完成
(补充： 钩子函数倒是不知道 下面的代码已经实现你要的功能了 试试看)

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

Answer 3

双击lable控件，然后再mousemove事件里面写代码就行了
就像上面例子一样，不过要在每一个lable控件的mousemove事件里都写上你要执行的代码

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.caption = "移动过了，名字变了"
End Sub

Answer 4

'添加一个Lable1
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label1.BackColor = &H8000000F

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label1.BackColor = &H0&
End Sub