怎么让鼠标指针到标签时，标签的文字颜色改变呀,指针挪走后颜色再变回原来的颜色呀？急!!请高手们指教！！谢谢

Question

怎么让鼠标指针到标签时，标签的文字颜色改变呀,指针挪走后颜色再变回原来的颜色呀？急!!请高手们指教！！谢谢

Answer 1

Option Explicit
Dim defaultcolor As LongPrivate Sub Form_Load()
defaultcolor = Label1.ForeColor
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = defaultcolor
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
End Sub