Question

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

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

Answer 1

动态判断这个按钮在显示器窗口的位置和范围，如果鼠标在这个位置范围里面，则是指向了这个按钮，变为绿色，如果不在这个范围里面，则显示红色，点击就很简单了，看vb6源码，调试通过：
'=========================================================
'说明，注意，label1控件的高度需要自己事前设置好，大概是标题栏到底部的高度，再用窗体的高度减去label1空间的高度就是指毁如标题栏的高度了，如果
'需要动态修改窗体的高度，则要自己动态修改label1的高度，timer1控件设置20ms，自己看着理解了就好修改了

Dim cmd_x As Long, cmd_y As Long, cmd_width As Long, cmd_height As Long
Dim form_x As Long, form_y As Long
Dim total_x As Long, total_y As Long
Dim mouse_x As Long, mouse_y As Long '鼠标的位置
Dim color_flage As Integer '0-不在按钮范围内，1-在按钮范围内但是没有点唯启击按钮，2-在按钮范围内点击了按钮
'＝＝＝＝＝＝＝＝＝＝＝＝
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim p As POINTAPI

Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
color_flage = 2 '按下标志
End If
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 0 Then'为0是没有点击鼠标键余稿
Me.Label2.BackColor = &HFF00& '绿色
color_flage = 1 '在按钮范围但是没有按下按钮标志
End If
End Sub

Private Sub Label2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
color_flage = 1 '按下标志
End If
End Sub

Private Sub Form_Load()
total_x = Screen.Width '显示器的分辨率
total_y = Screen.Height
'Me.Label2.Style = 1 '按钮样式，设置1才能改颜色,需要手动修改此属性
End Sub

Private Sub Timer1_Timer()
GetCursorPos p
mouse_x = p.X
mouse_y = p.Y
form_x = Int(Me.Left / 15 + 0.5) '动态调整时的位置
form_y = Int(Me.Top / 15 + 0.5)
cmd_x = Int(Me.Label2.Left / 15 + 0.5) + form_x '按钮坐标
cmd_y = Int(Me.Label2.Top / 15 + 0.5) + form_y + Int((Me.Height - Me.Label1.Height) / 15 + 0.5) '要加上标题栏的高度
cmd_width = Int(Me.Label2.Width / 15 + 0.5) '范围
cmd_height = Int(Me.Label2.Height / 15 + 0.5)
If (mouse_x < cmd_x) Or (mouse_x > (cmd_x + cmd_width)) Then 'x方向范围
color_flage = 0 '不在按钮范围标
End If
If (mouse_y < cmd_y) Or (mouse_y > (cmd_y + cmd_height)) Then 'y方向范围
color_flage = 0 '不在按钮范围标志
End If

If color_flage = 0 Then Me.Label2.BackColor = &HFF& '红色
If color_flage = 1 Then Me.Label2.BackColor = &HFF00& '绿色
If color_flage = 2 Then Me.Label2.BackColor = &HFFFF& '黄色
End Sub

Answer 2

由于时间问睁腊题没仔细看题冲枯,你先运行看看,不符合散早洞要求再说

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = vbRed
End Sub

Private Sub Label1_Click()
Label1.BackColor = vbYellow
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label1.BackColor = vbYellow Then Exit Sub
Label1.BackColor = vbGreen
End Sub

Answer 3

Private Sub Form_Load()
With Label1
.BackColor = vbGreen
.Left = 0
.Top = 0
End With
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = vbGreen
End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = vbRed
End Sub

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

Private Sub Label1_Click()
Label1.BackColor = vbRed
End Sub