Office中国论坛/Access中国论坛

标题: 请教窗体按钮效果？ [打印本页]

作者: SecurID 时间: 2009-2-11 16:17
标题: 请教窗体按钮效果？
窗体上的按钮控件没有背景颜色属性，所以用标签来模拟；
要求效果是鼠标移到标签上面时，背景颜色及字体颜色变化，鼠标移开后，又恢复原来的颜色；
我用的是MouseMove事件，但是为什么总是闪烁不停，请指教！谢谢[attach]35002[/attach]

作者: 红尘如烟 时间: 2009-2-11 17:19
本帖最后由红尘如烟于 2009-2-11 17:49 编辑

Dim intA As Integer
Private Sub Label25_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If intA <> 25 Then
Me!Label25.BackColor = 2097305
Me!Label25.ForeColor = 62207
intA = 25
End If
End Sub
Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If intA <> 0 Then
Me!Label25.BackColor = 3543489
Me!Label25.ForeColor = 16777215
intA = 0
End If
End Sub

复制代码

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

作者: 咱家是猫 时间: 2009-2-11 17:30
[attach]35005[/attach]

作者: SecurID 时间: 2009-2-11 18:12
太感谢了，谢谢，以后要多到这里来学习！真是不知如何报答... ...

作者: chaojianan 时间: 2009-2-11 21:10
谢谢提供源码，收藏了。

作者: SecurID 时间: 2009-2-20 17:15
经过仔细研究，终于有所感悟，闪烁得原因就是使用了背景图片！！真实遗憾
谢谢大家交流！

作者: dddd042821 时间: 2009-6-11 20:58
学习了

作者: wufeinba 时间: 2009-6-13 09:36
thanks very much

作者: 13555609005 时间: 2009-6-13 11:10
收藏收藏

作者: goto2008 时间: 2009-6-16 01:27

作者: 喜宝 时间: 2009-6-29 16:21
学习了

作者: fnsmydyang 时间: 2009-6-29 20:22
学习了...

作者: lovesgh 时间: 2012-12-11 09:05
学习了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)