[已解决]请求做一个按钮开关

zzk386

请求做一个CommandButton开关,按下后打开窗体A, 再按一下关闭窗体A

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-29 15:46

另外，我看见你用了Userforms.add方法重新创建一个Userform。所以原来语句不适用了。而应该用：

Private Sub CommandButton1_Click()
    With Me.ShockwaveFlash1
        If .Playing Then
            .Stop
        Else
            .Play
        End If
    End With
End Sub

跳转到最佳答案楼层

amulee

做在哪里？窗体A的Name是啥？

zzk386

是这个要求,请看附件

 

0EbdqOi6.rar (9.48 KB, 下载次数: 5)

2009-12-29 14:17 上传

点击文件名下载附件
请求做一个按钮开关

amulee

Private Sub CommandButton1_Click()
    With UserForm1.ShockwaveFlash1
        If .Playing Then
            .Stop
        Else
            .Play
        End If
    End With
End Sub

zzk386

奇怪了,到我的文件里就不行了,请斑主看一下

[em06]

 

iKYFTQux.rar (18.62 KB, 下载次数: 2)

2009-12-29 14:45 上传

点击文件名下载附件
请求做一个按钮开关

amulee

把你的Flash传一个上来看看

zzk386

我奇怪的的版主上面的程序在3楼的附件中是可行的,可是5楼的附件中同样的窗体同样的Flash文件为什么就不行了呢?

附件传上来了,

DUdsIjOb.rar (48.24 KB, 下载次数: 11)

2009-12-29 15:02 上传

点击文件名下载附件
请求做一个按钮开关

amulee

这个Flash控件的Play方法似乎只针对Flash有多桢的情形，也就是Stop的话就停留在正在播放的那一桢，不再继续播放后面的桢。

第一个Flash有19桢，后面三个只有1桢。

就是说后面三个无论播放还是停止都是在第一桢，无论Play或者Stop都是第一桢，所以还是在运行。

我试图改变Loop属性，也不行。看来这三个Flash不是让影片自动循环达到效果的，也不是通过动画达到效果。而是通过Flash里面的语句，应该是Goto 1等语句达到显示动态时钟的效果。

对于这种Flash似乎没有办法。

amulee

另外，我看见你用了Userforms.add方法重新创建一个Userform。所以原来语句不适用了。而应该用：

Private Sub CommandButton1_Click()
    With Me.ShockwaveFlash1
        If .Playing Then
            .Stop
        Else
            .Play
        End If
    End With
End Sub

zzk386

谢谢版主的讲解,明白了道理,

[em01]