用ActiveMovie控件设计自己的MP3播放器

Author: 季昭君 Date: 2000年第19期

　　MP3是什么？就不用笔者介绍了吧！而作为播放MP3的软件就有N个之多，例如较为流行的有:WINAMP，WINPLAY3，SONIQUE等，当然WINAMP应该是使用最多的了，当你在使用这些软件时，是否也曾想过自己编写一个MP3播放器呢?其实如今能播放MP3的控件很多，如MP3PLAY等等，可惜这些控件都是需要注册的，不然使用它就会有所限制，如只能播放MP3文件30秒等，而现在有了一个完全免费的播放MP3的控件，即：ActiveMovie。说明：能播放MP3的ActiveMovie，其版本必须在6.0以上；要得到这个控件有两种方法：一是到网上下载。二是安装WINDOWS MEDIA PLAYER V6.0版本以上的播放器（因为此程序中附有此控件）。
　　好了，首先对此控件作个简要介绍，它是微软的一个杰作，使用极为简单，功能却非常完善，支持播放的媒体格式也非常齐全，如：＊.WAV，＊.SND，＊.AU，＊.AIF，＊.MID，＊.RMI，＊.MIDI，＊.MP3，＊.M3U，＊.M1V，＊.MP2，＊.MPA，＊.MPG，＊.QT，＊.MOV，＊.AVI，＊.ASF等，其功能还有：自动播放，自动循环播放，静音播放，声音平衡控制，播放信息显示，音量控制，动态显示或改变播放位置，选择性循环播放功能等，在此笔者就不多讲了，你自己慢慢研究研究吧!如果你想开发一个完善的多媒体软件，ActiveMovie一定能起到很大的作用。下面是一个用ActiveMovie控件播放MP3文件的小程序。
　　首先，新建一个工程，将FORM1的MAXBUTTON属性改为FASLE，再新建一个FILE1（Patten属性=＊.MP3），DIR1，DRIVE1，再放上一个ActiveMovie控件在它们的下面（在工程菜单下的部件对话框中选择WINDOWS MEDIA PLAYER，其文件名为:VXOCX32.OCX.），最后放一个LABEL1在ActiveMovie控件下面，调整好它们的尺寸，然后输入以下代码:
　　Private Sub Form_Load（）  初始化设置
　　Drive1.Drive = App.Path
　　Dir1.Path = App.Path
　　MediaPlayer1.AutoStart = True  ′设置自动播放为真，即选择好文件后即刻播放
　　MediaPlayer1.filename = ″″
　　File1.ReadOnly = True  ′文件名不允许被修改
　　Label1.Caption = ″″
　　Label1.AutoSize = True
　　Label1.BackStyle = 0
　　Form1.Caption = ″我的MP3播放器演示程序″
　　End Sub
　　－－－－－－－－－－－－－－－－－－－－－－
　　Private Sub Dir1_Change（）  ′目录被改变时
　　File1.Path = Dir1.Path
　　End Sub
　　－－－－－－－－－－－－－－－－－－－－－－
    Private Sub Drive1_Change（）  ′驱动器被改变时
　　Dir1.Path = Drive1.Drive
　　End Sub
　　－－－－－－－－－－－－－－
　　Private Sub File1_DblClick（）  ′双击MP3文件名即可被播放
　　MediaPlayer1.filename = ″″
　　If Right（File1.Path， 1） <> ″\″ Then  ′判断文件是在根目录还是在子目录
　　MediaPlayer1.filename = File1.Path ＆ ″\″ ＆ File1.filename
　　Else
　　MediaPlayer1.filename = File1.Path ＆ File1.filename
　　End If
　　Label1.Caption = ″现在正在播放的是:″ ＆ MediaPlayer1.filename
　　End Sub
　　现在，请运行程序吧!选择一个喜欢的MP3文件，双击此文件即可播放了。相信你可以在此基础上自己编写出更完善更强大的MP3播放程序，说不定能赶上WINAMP呢!
　　注：以上程序在中文Windows 98，中文VB5.0企业版中调试通用。