请问高手怎样用VB编写一个简单的FLASH播放器（解决立马给分）？？？？？？

[zetor]

请问高手怎样用VB编写一个简单的FLASH播放器（解决立马给分）？？？？？？

[幻影时空]

首先,打开VB,新建一个工程,在工具箱上单击鼠标右键,选择部件(或菜单里的:工程/部件,再或:Ctrl+T)
在部件窗口的控件列表中选择Shockwave Flash,然后确定,再Flash控件就被加到工具箱上了.

然后将Flash控件放到窗体上,并调整至适当的大小,然后在属窗中设置Movie属性为Flash动画所在的路.双击窗体的load事件中加入下面的代码:

shockwaveflash1.playing=true

按F5就可以看到播放的Flash动画了.

[zetor]

我要选择一个FLASH文件
然后我点击播放 就开始播放

[幻影时空]

Private Sub Command1_Click()
ShockwaveFlash1.Movie = Text1.Text
ShockwaveFlash1.Play
End Sub

text1.text是播放文件地址!

如果要用选择文件的,请使用commondialog控件选择文件

[幻影时空]

再给你贴一下commondialog的使用方法的控件吧!
Private Sub Command2_Click()
CommonDialog1.ShowOpen
CommonDialog1.FileName = ""
CommonDialog1.Filter = "FLASH文件|*.swf;*.exe"
If CommonDialog1.FileName <> "" Then
ShockwaveFlash1.Movie = CommonDialog1.FileName
ShockwaveFlash1.Play
End If
End Sub

[lsw0sina]

看看

[幻影时空]

呵呵!应该可以结帖了吧!呵呵!
你要求简单的已经给了...至于复杂的.只能慢慢模索...

至于此类播放器源码也很多..

[zetor]

好的

[CsdnRob]

http://community.csdn.net/Expert/topic/2680/2680530.xml?temp=.6444361