你们一般是用的Swiff Point Player吧,如果用这个软件加入flash,就只能我这台电脑上用,一旦我把ppt传到其他电脑里面就会很复杂了,第一是需要别人的电脑里面也要装这个软件,还是重新导入flash才可以。
amwyq 发表于 2008-6-22 22:07:47
这个问题不是太复杂,加几个按钮控制就搞定
mason1 发表于 2008-6-22 23:25:20
楼上的,怎样加按钮,能否详细说明一下
truel 发表于 2008-6-23 20:18:43
貌似要加个插件吧。
等待高人出现。
amwyq 发表于 2008-6-23 20:24:38
Private Sub Cmd1_Click()
flash.Playing = True
End Sub
Private Sub Cmd2_Click()
flash.Playing = False
End Sub
Private Sub Cmd3_Click()
flash.FrameNum = flash.FrameNum - 50
flash.Playing = True
End Sub
Private Sub Cmd4_Click()
flash.FrameNum = flash.FrameNum + 50
flash.Playing = True
End Sub
Private Sub Cmd5_Click()
flash.FrameNum = 1
flash.Playing = True
End Sub
Private Sub Cmd6_Click()
flash.FrameNum = flash.TotalFrames
flash.Playing = False
End Sub
QUOTE:
我是总得吧swf文件放到一个指定的目录位置,否则就无法播放,你是用的什么软件QUOTE:
你们一般是用的Swiff Point Player吧,如果用这个软件加入flash,就只能我这台电脑上用,一旦我把ppt传到其他电脑里面就会很复杂了,第一是需要别人的电脑里面也要装这个软件,还是重新导入flash才可以。等待高人出现。
flash.Playing = True
End Sub
Private Sub Cmd2_Click()
flash.Playing = False
End Sub
Private Sub Cmd3_Click()
flash.FrameNum = flash.FrameNum - 50
flash.Playing = True
End Sub
Private Sub Cmd4_Click()
flash.FrameNum = flash.FrameNum + 50
flash.Playing = True
End Sub
Private Sub Cmd5_Click()
flash.FrameNum = 1
flash.Playing = True
End Sub
Private Sub Cmd6_Click()
flash.FrameNum = flash.TotalFrames
flash.Playing = False
End Sub
这是控制按钮代码,自己玩吧!