图标跳动

ycxchen

我想在窗体1中，当鼠标到达"查询"图标时，图标能稍稍向上跳动一下，增加动画感。请问，如何写VBA实现此功能？

Henry D. Sy

图像边框要粗点，透明的。

1. Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
2.     Me.Image0.SpecialEffect = 1
   
3. End Sub
   
4. 
   
5. 
   
6. Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
7.     Me.Image0.SpecialEffect = 0
   
8. End Sub

复制代码

koutx

谢了，又学一点

ycxchen

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

ycxchen

我感觉到2楼的代码只是起到“隆起”、“平面”的效果，并不是向上跳动一下的效果。6D大师能修改一下代码吗？

Henry D. Sy

怎么个跳法？

ycxchen

向上跳一下后回到原位置

Henry D. Sy

如果想达到更逼真的效果，
放两张图，然后一张可见另一张不可见。
鼠标移动事件，交替显示。

ycxchen

再次感谢6D大师！