![]() |
#2
laokafei2020-05-27 10:15
|
只有本站会员才能查看附件,请 登录
代码如下:
Option Explicit
Dim dh As String
Private Sub Command1_Click()
dh = Text1.Text
Flash.Movie = App.Path + "\flash\" + dh + ".swf" '要播放的Swf文件路径
Flash.Playing = True
End Sub
Private Sub Form_Load()
End Sub
[此贴子已经被作者于2020-5-26 19:02编辑过]