好多朋友对插入PPT中的SWF控制问题比较头痛,其实用简单的代码就可以很好的控制首先在插入SWF后再插入几个命令按钮,并在为它们编写代码,就能轻松搞定!播放按钮代码Private Sub cmd_play_Click() 'cmd_play是播放按钮名称ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放End Sub暂停按钮代码Private Sub cmd_pause_Click() 'cmd_pause是暂停按钮名称ShockwaveFlash1.Playing = False '让ShockwaveFlash1影片停止End Sub快进按钮代码Private Sub cmd_forward_Click() 'cmd_forward是快进按钮名称 ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 30 '让ShockwaveFlash1影片跳转到当前桢后30桢处ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放End Sub快退按钮代码Private Sub cmd_back_Click() 'cmd_back是后退按钮名称ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 30 '让ShockwaveFlash1影片跳转到当前桢前30桢处ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放End Sub开始按钮代码Private Sub cmd_start_Click() 'cmd_start是开始按钮名称ShockwaveFlash1.FrameNum = 1 '让ShockwaveFlash1影片跳转到第1桢处ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放End Sub结束按钮代码Private Sub cmd_end_Click() 'cmd_end是结束按钮名称ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames '让ShockwaveFlash1影片跳转到当最后一桢处End Sub注意:cmd_end cmd_start ......ShockwaveFlash1是可是自己定义的,不是一定要这样写,这和你在插入控件时给的名称要一至!
amwyq 发表于 2009-10-20 11:44:12
这么乱,再发一次
好多朋友对插入PPT中的SWF控制问题比较头痛,其实用简单的代码就可以很好的控制首先在插入SWF后再插入几个命令按钮,并在为它们编写代码,就能轻松搞定!
播放按钮代码
Private Sub cmd_play_Click() 'cmd_play是播放按钮名称
ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放
End Sub
暂停按钮代码
Private Sub cmd_pause_Click() 'cmd_pause是暂停按钮名称
hockwaveFlash1.Playing = False '让ShockwaveFlash1影片停止
End Sub
快进按钮代码
Private Sub cmd_forward_Click() 'cmd_forward是快进按钮名称
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 30 '让ShockwaveFlash1影片跳转到当前桢后30桢处
ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放
End Sub
快退按钮代码
Private Sub cmd_back_Click() 'cmd_back是后退按钮名称
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 30 '让ShockwaveFlash1影片跳转到当前桢前30桢处
ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放
End Sub
开始按钮代码
Private Sub cmd_start_Click() 'cmd_start是开始按钮名称
ShockwaveFlash1.FrameNum = 1 '让ShockwaveFlash1影片跳转到第1桢处
ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放
End Sub
结束按钮代码
Private Sub cmd_end_Click() 'cmd_end是结束按钮名称
ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames '让ShockwaveFlash1影片跳转到当最后一桢处
End Sub
注意:cmd_end cmd_start ......ShockwaveFlash1是可是自己定义的,不是一定要这样写,这和你在插入控件时给的名称要一至!
当然直接修改SWF更好!
好多朋友对插入PPT中的SWF控制问题比较头痛,其实用简单的代码就可以很好的控制首先在插入SWF后再插入几个命令按钮,并在为它们编写代码,就能轻松搞定!
播放按钮代码
Private Sub cmd_play_Click() 'cmd_play是播放按钮名称
ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放
End Sub
暂停按钮代码
Private Sub cmd_pause_Click() 'cmd_pause是暂停按钮名称
hockwaveFlash1.Playing = False '让ShockwaveFlash1影片停止
End Sub
快进按钮代码
Private Sub cmd_forward_Click() 'cmd_forward是快进按钮名称
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 30 '让ShockwaveFlash1影片跳转到当前桢后30桢处
ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放
End Sub
快退按钮代码
Private Sub cmd_back_Click() 'cmd_back是后退按钮名称
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 30 '让ShockwaveFlash1影片跳转到当前桢前30桢处
ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放
End Sub
开始按钮代码
Private Sub cmd_start_Click() 'cmd_start是开始按钮名称
ShockwaveFlash1.FrameNum = 1 '让ShockwaveFlash1影片跳转到第1桢处
ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放
End Sub
结束按钮代码
Private Sub cmd_end_Click() 'cmd_end是结束按钮名称
ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames '让ShockwaveFlash1影片跳转到当最后一桢处
End Sub
注意:cmd_end cmd_start ......ShockwaveFlash1是可是自己定义的,不是一定要这样写,这和你在插入控件时给的名称要一至!