Office中国论坛/Access中国论坛

标题: 图标跳动 [打印本页]

作者: ycxchen 时间: 2008-12-14 17:58
标题: 图标跳动
我想在窗体1中，当鼠标到达"查询"图标时，图标能稍稍向上跳动一下，增加动画感。请问，如何写VBA实现此功能？
[attach]33831[/attach]

作者: Henry D. Sy 时间: 2008-12-14 19:37
图像边框要粗点，透明的。

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Image0.SpecialEffect = 1
End Sub
Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Image0.SpecialEffect = 0
End Sub

复制代码

作者: koutx 时间: 2008-12-14 22:29
标题: 回复 2# 的帖子
谢了，又学一点

作者: ycxchen 时间: 2008-12-15 09:48
十分感谢6D大师！我试用了，效果不错。但感觉图标向上移动的幅度不够大，能不能像瑞星杀毒软件一样，当鼠标到达"软件升级"等图标时，图标能明显向上跳动一下的效果？

作者: ycxchen 时间: 2008-12-15 09:53
我感觉到2楼的代码只是起到“隆起”、“平面”的效果，并不是向上跳动一下的效果。6D大师能修改一下代码吗？

作者: Henry D. Sy 时间: 2008-12-15 10:01
怎么个跳法？

作者: ycxchen 时间: 2008-12-15 11:42
向上跳一下后回到原位置

作者: Henry D. Sy 时间: 2008-12-15 12:48
如果想达到更逼真的效果，
放两张图，然后一张可见另一张不可见。
鼠标移动事件，交替显示。

作者: ycxchen 时间: 2008-12-15 14:42
再次感谢6D大师！

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