打造自己的媒体播放器补遗

Spring 
2001年 40期

　　在以前的“编程乐园”里，我们教了大家如何制作一个简单的播放器，只是那个程序过于简单。你希望自己的程序既能播放MPEG，又能播放MP3吗？你希望自己制作一个“超级解霸”吗？你是否也是一个软件DIYer？Follow me！mediaplayer控件可以很好地完成这一切！
　　　　先启动VB 6.0，添加一个新窗体到工程中，将mediaplayer控件添加到工具箱中。此时，在工具箱中将可以看到新增加了一个彩色收音机图标，这就是mediaplayer控件（为Windws Media Player所用）。单击该控件将它添加到窗体中，名称不变，属性autosize设为true，autostart设为false。
　　　　然后，在窗体中添加“播放”命令按钮，其名称为btn_command1，属性Caption为“播放”，在其Click事件中填写以下代码：
　　　　Private Sub btn_command1_Click（）
　　　　MediaPlayer1.FileName = "f:\vcd\同学聚会.mpg" ＇指定所要播放MP3文件所在的位置，可自行指定
　　　　MediaPlayer1.Play
　　　　End Sub
　　　　在窗体中添加“停止”命令按钮，其名称为btn_command2，属性Caption为“停止”，在其Click事件中填写以下代码：
　　　　Private Sub btn_command2_Click（）
　　　　MediaPlayer1.Stop
　　　　MediaPlayer1.Stop
　　　　End Sub
　　　　执行该程序，单击“播放”按钮，将播放你指定的多媒体文件。若要停止，单击“停止”按钮即可。
　　　　下面把mediaplayer控件的常用的属性和方法介绍一下：
　　　　allowchangesize  是否允许改变播放画面大小，如果为false，则不能用MediaPlayer1
　　　　DisplaySize=mpFullScreen 全屏幕播放
　　　　           =Autosize自动调节大小
　　　　           =Autostart是否自动开始播放
　　　　Allowscan		是否允许浏览
　　　　Displaysize		播放屏幕的尺寸，有7种值
　　　　Filename		要播放的文件名
　　　　Mute		控制声音的打开或者关闭
　　　　Playcount		播放次数
　　　　Rate		播放的快慢
　　　　Play		播放
　　　　Pause		暂停
　　　　Stop		停止
　　　　Open		打开文件，文件名为参数
　　　　由此可见，mediaplayer控件是很直观，很方便的一个控件，当然，这里只是能播放，如果要提高播放的质量，还是需要下一番功夫的。 
 