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

　　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企业版中调试通用。