新颖的图片展示效果求助

sahdats

先做一个图片动画，加上触发器（触发器就是自己），加上以下代码：（这段代码就是模拟鼠标单击），图片设置“动作设置/鼠标移过，运行宏shubiao”
Private Declare Sub mouse_event Lib user32 (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Sub shubiao()
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
DoEvents
End Sub

user_eqybp

值得借鉴，谢谢

GXO鸠山川秀

很不错啊，好好学习下。

xzvl6853

非常值得学习，效果很好，但还是没有学会！！！

谈婚嫁网

这个办法不错，受教。

smander

要是能详细解释一下每行的代码就更好了，辛苦了，谢谢，学习了

user_orkan

正需要这个 学来试试

韩忍18

用ppt来做比flash还简单，效果是一样的，有时间我做一个传上来你看一下就知道了

user_yopngkja

下载的文件受损，换了机器也一样，是不是上传的包有问题