前天在PConline下了一个孙鑫的《Java从入门到精通》的视频教程，Flash格式，在看的时候感觉很不爽，每一课开始的时候有一大段广 告，而且前面的一部分颇为啰嗦，讲了乱七八糟的东西，不知道是不是因为“入门”的关系，然后就把以前做的一个Flash播放器找出来，直接跳到自己要看的 地方～

要想用VB做一个自己的Flash播放器还是比较方便的，因为Macromedia已经提供了Shockwave Flash控件， 可以方便来的播放Flash影片。要想使用这个控件，首先要在工程里添加这个控件，选中菜单“工程->部件”，找到 Shockwave Flash，打上勾，确定就可以了。另外，因为要加载Flash影片，所以我们还需要加入对话框控件 Microsoft Common Dialog Control。

做这个Flash播放器之前，先用对象浏览器来看一下 Shockwave Flash控件有哪些我们需要的事件、方法和属性。

因为我们做的Flash播放器比较简单，所以没有可以利用的控件事 件。

方法：

Sub Back()

跳 到前一帧，相当于Flash右键菜单中的快退

Function CurrentFrame() As Long

获 取当前播放的为第几帧

Sub Forward()

跳到后一帧，相当于Flash 右键菜单中的快进

Sub GotoFrame(FrameNum As Long)

跳 到指定帧，这是一个相当有用的方法，也是要做这个Flash播放器的理由之一了

Sub Play()

播 放，相当于Flash中的播放

Sub Stop()

停止，需要注意的是这个是停 止，而不是暂停，停止后再开始播放将从第1帧开始

Sub StopPlay()

暂 停，暂停后再播放是继续暂停之前的状态…

阅读全文 »