请问如何判定鼠标在某一个控件上

Question

比如我想判断鼠标是否在label或text上

Answer 1

先获取鼠标相对窗体的位置X,Y，
再判断X,Y是否在label或text上
label.left<X<label.left+label.width与label.top<Y<label.top+label.height之间，
成立则在其上面！

Answer 2

你的问题楼上已经一种解决；另一样是每个控件都支持mousemove事件，也可以利用此判断是否鼠标移动到该控件上。

Answer 3

不过大家看一下这样的代码，试首直接下来，有用吗？（左右动没问题）Private Sub Form_Load()
    Toolbar1.Buttons.Add 1, , "open"
    Toolbar1.Buttons.Add 2, , "close"
    StatusBar1.Panels.Remove 1
    StatusBar1.Panels.Add 1, , "XX系统"
End SubPrivate Sub Toolbar1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    If x > Toolbar1.Buttons(1).Left And x < Toolbar1.Buttons(1).Left + Toolbar1.Buttons(1).Width _
        And y > Toolbar1.Buttons(1).Top And x < Toolbar1.Buttons(1).Top + Toolbar1.Buttons(1).Height Then
        StatusBar1.Panels(1).Text = Toolbar1.Buttons(1).Caption
    Else
        StatusBar1.Panels(1).Text = "XX系统"
    End If
End Sub

Answer 4

我觉得你直接在TEXTE或者是LABEL的MOUSEMOVE事件中MSGBOX ”已经在空件上了“比较好。