VB6.0如何控制 动态调用的flash控件

iamnotahacker 2014-12-25 11:41:51
VB6 动态调用一个flash 控件

Module里写

Public tmpCtl As Object

Public Sub LoadFlash(myForm As Form)
Set tmpCtl = myForm.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash")
Set tmpCtl.Container = myForm
end sub

Form3里调用

Call LoadFlash(Me)

Form4里控制

tmpCtl .object.StopPlay

没反应 停止不了
打算还做个播放,和进度条上去。但这个都实现不了。
可能我写得不规范
要怎么写呢,求大鸟告诉 一下。
...全文
297 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
iamnotahacker 2015-01-01
  • 打赏
  • 举报
回复
引用 1 楼 Topc008 的回复:
''模块
Option Explicit
Public tmpCtl  As Object
Public Sub LoadFlash(myForm As Form)
    Set tmpCtl = myForm.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash")
    Set tmpCtl.Container = myForm
    tmpCtl.object.movie = "d:\logo22.swf"
    tmpCtl.Visible = True
End Sub


''窗体
Option Explicit
Private Sub Form_Load()
    Call LoadFlash(Me)
End Sub
Private Sub Command1_Click()
    tmpCtl.object.Stop ''停止
End Sub
Private Sub Command2_Click()
    tmpCtl.object.Play ''播放
End Sub


后来有的flash是不能停的 ,谢谢热心回复
一如既往哈 2014-12-25
  • 打赏
  • 举报
回复
''模块
Option Explicit
Public tmpCtl  As Object
Public Sub LoadFlash(myForm As Form)
    Set tmpCtl = myForm.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash")
    Set tmpCtl.Container = myForm
    tmpCtl.object.movie = "d:\logo22.swf"
    tmpCtl.Visible = True
End Sub


''窗体
Option Explicit
Private Sub Form_Load()
    Call LoadFlash(Me)
End Sub
Private Sub Command1_Click()
    tmpCtl.object.Stop ''停止
End Sub
Private Sub Command2_Click()
    tmpCtl.object.Play ''播放
End Sub


809

社区成员

发帖
与我相关
我的任务
社区描述
VB 多媒体
社区管理员
  • 多媒体
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧