请教：如何在鼠标移到控件上面时控件的颜色改变，而移走后有变回来！

Question

http://zyl910vb.51.net/vb/gui/MouseLeave.htm右击连接，目标另存为
注意把下载后的*.zip.jpg改名成*.zip

Answer 1

在mouse事件里改变控件颜色属性

Answer 2

当鼠标一到控件时会触发一事件。你查一下MSDN

Answer 3

Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long

Answer 4

同意在mouse事件里改变控件颜色属性
 在mouse_move里写代码

Answer 5

danielinbiti(金): 在mouse_move中鼠标移走颜色怎么改?

Answer 6

你在移动到你的控件的时候，改变它的前景色或这是背景色，在Mousemove中，当你移动到别的地方的时候，在移动到的控件中，将你原来的控件的颜色改回来就行了。也实在Mousemove中

Answer 7

比如一label1,鼠标移到上面时要改变它的背景色,用如下语句:
Private Sub Label1_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)
  Label1.BackColor = vbRed'鼠标移到这个label1控件上时背景色变为红色
End Sub
当鼠标移走后,
Private Sub Form1_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)
  Label1.BackColor = vbBlue'当鼠标移走时背景色变为蓝色
End Sub