请教窗体按钮效果？

SecurID

窗体上的按钮控件没有背景颜色属性，所以用标签来模拟；
要求效果是鼠标移到标签上面时，背景颜色及字体颜色变化，鼠标移开后，又恢复原来的颜色；
我用的是MouseMove事件，但是为什么总是闪烁不停，请指教！谢谢

红尘如烟

1. 
   
2. Dim intA As Integer
   
3. Private Sub Label25_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
4. If intA <> 25 Then
   
5. Me!Label25.BackColor = 2097305
   
6. Me!Label25.ForeColor = 62207
   
7. intA = 25
   
8. End If
   
9. End Sub
   
10. Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
11. If intA <> 0 Then
    
12. Me!Label25.BackColor = 3543489
    
13. Me!Label25.ForeColor = 16777215
    
14. intA = 0
    
15. End If
    
16. End Sub
    
17. 
    

复制代码

除了以上之外，使用图片做为背景时也会很容易造成闪烁，这个属于ACCESS本身的不足，没办法
下面这个是站长以前写的一个类似效果的通用模块，你可以参考一下

咱家是猫

SecurID

太感谢了，谢谢，以后要多到这里来学习！真是不知如何报答... ...

chaojianan

谢谢提供源码，收藏了。

SecurID

经过仔细研究，终于有所感悟，闪烁得原因就是使用了背景图片！！真实遗憾
谢谢大家交流！

dddd042821

学习了

wufeinba

thanks very much

13555609005

收藏收藏

goto2008