请问高手鼠标移到一个控件上如PICTURE上，实现图片颜色渐变，移出控件颜色复原，如何实现？

Question

把2个颜色不一样的图片方在一起，然后用mousemove事件和鼠标的离开事件（需要API）
来处理

Answer 1

Form 中加入一个Picture,一个Timer控件：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Timer1.Enabled = False
　　 Picture1.BackColor =&H8000000F  '复原
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
    If Picture1.BackColor <> RGB(256, 0, 0) Then
        Picture1.BackColor = RGB(256, 0, 0)
    Else
        Picture1.BackColor = RGB(0, 256, 0)
    End If
End Sub

Answer 2

Timer的属性Interval=100   '不为0

Answer 3

to Richard2001(Richard)　：
Form上的其他控件不也需要mousemove的复原代码吗？那多麻烦呀！to xingming_sun(Andre)：
鼠标的离开事件（需要API）的代码如何写呀，哪里有例子？

Answer 4

form上的其它控件不需要mousemove，除非，这两个控件紧挨在一起，另：鼠标的离开事件（需要API）的代码如何写呀，哪里有例子？    http://www.csdn.net/expert/topic/376/376907.shtm

Answer 5

当form_mousemove时,就让控件恢复原色.

Answer 6

Richard2001:你的这个程序好像不能实现"渐变"

Answer 7

http://nowcan.yeah.net
方法也是用mousemove