flash.txt

来自「在应用程序中加入flash,一个可以在软件窗体中加入flash的源代码程序」· 文本 代码 · 共 15 行

Private Sub Command1_Click()
           ShockwaveFlash1.Movie = App.Path & "\cfan.swf"    ' 读取同一目录下的Flash动画文件
           Command1.Enabled = False
End Sub

Private Sub Command2_Click()
           If Command2.Caption = "暂停" Then
              ShockwaveFlash1.Playing = False            ' 停止动画
              Command2.Caption = "继续"
           Else
              ShockwaveFlash1.Playing = True             ' 继续动画
              Command2.Caption = "暂停"
           End If
End Sub