VB打造自己的FLAH播放器
语音教程 就不多打字了``````
代码：
Private Sub Command1_Click()
cmd.ShowOpen
swf.Movie = cmd.FileName
End Sub
Private Sub Command2_Click()
If swf.Playing = True Then
swf.Playing = False
Else
swf.Playing = True
End If
End Sub
Private Sub Command3_Click()
cmd.ShowColor
Form1.BackColor = cmd.Color
End Sub
- 上一篇：不重启也加载注册列表
- 下一篇：破解Batch Image Resizer图片软件
相关文章
图文推荐
- 文章
- 推荐
- 热门新闻