用VB打造RM、SWF视频播放器

IT商界

孙启斌

　　首先你的机器中必须装有RealPlayerPlus播放器，因为我们要用到它自带的名称为rmoc3260.dll的ActiveX控件。

　　第一步：打开VB，新建一个EXE程序，点击菜单“工程→部件”或“Ctrl+T”，可以看到Windows中所有注册的AxctiveX控件。选择其中的“RealPlayer ActiveX Control brary”，并一同引用“Microsoft Common Dialog Control 6.0”，点击“确定”。

　　第二步：在form1中添加RealAudio1、CommonDialog1、四个Command命令按钮。然后将RealAudio1的Controls属性设置为“ImageWindow”，Command1的Caption属性设置为“打开”，Command2的Caption属性设置为“暂停”，Command3的Caption属性设置为“继续”，Command4的Caption属性设置为“停止”。

　　(1)在Command1的Click事件中添加以下代码：

　　OnErrorGoToER

　　CommonDialog 1.Filter="(媒体文件*rm;*.ram,*.ra)|*rm;*.ram,*.ra|(flash动画*.swf)|*.swf|(所有文件*.*)|*.*"

　　CommonDialog 1.FilterIndex=1

　　CommonDialog 1.ShowOpen

　　IfCommonDialog 1.FileName<>""Then

　　RealAudio 1.Source=CommonDialog 1.FileName

　　RealAudio 1.AutoStart=True

　　RealAudio 1.DoPlay

　　Else

　　MsgBox"没有指定媒体文件"

　　EndIf

　　ER:

　　Err.Clear

　　(2)在Command2的Click事件中添加以下代码：

　　RealAudio 1.DoPause

　　(3)在Command3的Click事件中添加以下代码：

　　RealAudio 1.DoPlayPause

　　(4)在Command4的Click事件中添加以下代码：

　　RealAudio 1.DoStop

　　RealAudio 1.Source=""

　　这样就完成了这个简单的播放程序。

　　注：程序使用的是VB 6.0，在Win2000下调试通过。