vb的Label控件如何实现mouse leave事件?

Question

vb的Label控件如何实现mouse leave事件?我要实现的功能很简单
Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Me.Label6.BackColor = &H80000018
End SubMouseMove的时候 BackColor = &H80000018LEAVE 的时候为其他

Answer 1

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If X < Label1.Left Or X > Label1.Left + Label1.Width Or Y < Label1.Top Or Y > Label1.Top + Label1.Height Then
        Label6.BackColor = &H80000000'(其他颜色)
    End If
End Sub

Answer 2

Label6_MouseMove的代码也不能删除

Answer 3

参考
http://topic.csdn.net/u/20080731/14/474bdd60-4c9c-4ce8-9100-8f6cdddf247b.html

Answer 4

恐怕只能通过计算光标位置来确定label的mouseleave了

Answer 5

改用VB.Net就简单了，直接可以使用leave事件了。