鼠标移动到标签后改颜色的问题

bach

学习了大师们XP风格窗体的例子之后,试验了一下,发现可以改变标签的颜色,但是,鼠标离开后,颜色恢复不了,是否我忘了啥属性和代码,请指教.
Private Sub label1_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
    '鼠标移动到确定标签时,改变标签的前景颜色和背景颜色
    label1.BackColor = 14792846
    label1.ForeColor = vbBlue
    label1.FontBold = True
   
    mblnChange = True
End Sub

5574916

正是需要~~!!感谢~~!

killer2008

[看看

bach

多谢,要在主体的鼠标移动事件中加代码的.[:24]

chenwm1973

[:50]

[ 本帖最后由 chenwm1973 于 2008-4-20 20:00 编辑 ]

goto2008

原帖由 tmtony 于 2008-4-20 09:23 发表
标签没有鼠标离开事件,只能在主体或其它控件的鼠标移动事件来恢复颜色

大哥能做来看看吗

poly

[:30]

fswxs

这是ACCESS很不爽的毛病之一,感觉是微软故意的

tmtony

标签没有鼠标离开事件,只能在主体或其它控件的鼠标移动事件来恢复颜色