VB制作最简单的swf播放器？

用VB制作一个小程序 能放swf

1.按钮1 ： - 打开 -选择路径。确定

2.自动播放swf

这太简单了

首先你在窗体上添加“ShockwaveFlash”还有“CommonDialog6.0”控件

将ShockwaveFlash调整为适当位置

新建一个commandButton 双击编写代码

CommonDialog1.ShowOpen
ShockwaveFlash1.Movie = CommonDialog1.FileName

ok。这样就可以了 你点击按钮 便会弹出选择路径 选择后就可以播放了

添加个窗体，一个按钮，一个ShockwaveFlash1控件，一个CommonDialog1控件

复制一下代码即可

Private Sub Command1_Click() '设置过滤器。 CommonDialog1.Filter = "所有文件 (*.*)|*.SWF" '指定缺省过滤器。 CommonDialog1.FilterIndex = 2 '显示“打开”对话框。 CommonDialog1.ShowOpen '调用打开文件的过程。 ShockwaveFlash1.Movie = CommonDialog1.FileName End Sub

你还是加载部件吧，拖动不容易