Question

VB窗体中加了一个标签，目的是 当鼠标放在上面的时候，标签的背景颜色改变，移开的时候恢复原来的背景颜色

我是VB新手，请给出详细的代码，谢谢

Answer 1

'窗体鼠标移动事件代码
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'当鼠标离开标签后还原为起始颜色（假如为灰白色）
Label1.BackColor = &H8000000F
End Sub

'标签鼠标移动事件代码
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'当鼠标指向标签的时候为蓝色
Label1.BackColor = &H8000000D
End Sub

Answer 2

只要将改变标签背景颜色的代码写在鼠标移动事件里，再将标签原来的背景颜色代码写在窗体的鼠标移动事件里就可以达到目的。

Answer 3

'前提是Label1已经在这个范围里面了,不然得死拽了
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MD = True Then
a = Label1.Left + (X - px)
b = Label1.Top + (Y - py)
If a > 2520 And a < 4560 And b < 3840 And b > 1320 Then
Label1.Move a, b
End If
End If
End Sub