Question

VB如何判断鼠标指针是否指着按钮

我想自己制作按钮，用一个标签控件，鼠标指向它时背景为绿色，点击它为黄色，鼠标不指向它时为红色。（就是跟按钮一样了，只不过用代码体现）其实我最关心的是如何判断鼠标指针是否指着它，因为这是自制按钮的关键。谢谢！ (就是按钮效果啦！用form1_mousemove是不行的！！！！！！！！！！！！！！！！）（标签放在窗口边缘，假如鼠标马上移动出了窗口范围，form1_mousemove就会无效了）

Answer 1

方法一：当鼠标进入标签范围时SetCapture，然后form1_mousemove处理全屏的鼠标事件，当发现鼠标移出标签范围时ReleaseCapture
方法二：设置一个定时器，定时查询鼠标与标签的相对位置，并设置背景色

Answer 2

Option Explicit
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = &H80000008
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = &H8000000A
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = &H80000009
End Sub
颜色你自己调，这只是一个示范