标题打造自己的媒体播放器补遗

　　在以前的“编程乐园”里，我们教了大家如何制作一个简单的播放器，只是那个程序过于简单。你希望自己的程序既能播放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控件是很直观，很方便的一个控件，当然，这里只是能播放，如果要提高播放的质量，还是需要下一番功夫的。