基于VB环境的媒体播放器的设计和实现.doc

实例1：基于VB环境的媒体播放器的设计和实现 该实例在VB环境中编程设计实现一个媒体播放器，在正确安装VB编程环境之后利用VB中的MediaPlayer控件来实现，所开发出的媒体播放器所能播放的媒体文件依赖于实现电脑中安装的MediaPlayer播放器所能支持的文件格式。 在VB环境中具体的操作步骤如下所示： 添加MediaPlayer控件。 右击工具面板(图一)并在部件添加窗口里选择“Windows MediaPlayer”来添加这个控件，同时添加“CommonDialog”控件--右键点击左边的“General” 工具栏，选择“Components”，在弹出的对话框中选择“Controls” 标签页，勾选“Windows MediaPlayer”，“Microsoft Common Dialog Controls”这两项（如图二、图三）； 图一 图二 图三 二、在窗口设计器中创建一个MediaPlayer控件、五个Command Button控件和一个CommonDialog控件（图四、图五）。 图四 图五 三、更改Form1的Caption属性为个性化播放器名称“XXXXXX”。（图六） 图六 四、分别将五个Command Button控件的Caption属性分别命名为“暂停”、“播放”、“停止”、“选择”和“退出”，然后把它们按照一定的位置放好。 Name属性分别命名为：”openfile”,” playfile”,”stopfile”,”pausefile”,”exit” 图七—按钮属性设置（以打开按钮为例） 五、选中CommonDialog控件，在右边属性的“Filter”对话框中输入“所有文件|*.*|WAV(*.wav)|*.wav|MIDI(*.mid)|*.mid|MPEG(*.mpeg)|*.mpeg|DAT(*.dat)|*.dat|AVI(*.avi)|*.avi|MP3(*.mp3)|*.mp3”的文件过滤选项，这样就可以支持各种常见的媒体影像文件了。 图八—文件对话框属性设置 在以上步骤完成以后，开始输入代码： 1、双击Form1窗口，并选择“General”对象，输入（图九）： 　Option Explicit 　　　　Dim playfilename As String　　/定义播放文件的名称 　　　　Dim playposition As Double　　/定义当前播放的位置 图九 2、双击“暂停”按键并输入下列代码（图十）： Private Sub pausefile_Click() pausefile.Enabled = False /暂停按键失效 WindowsMediaPlayer1.Controls.pause /暂停播放 playposition=WindowsMediaPlayer1.Controls.currentPosition /当前的播放位置 End Sub 3、双击“播放”按键并输入下列代码（图十）： Private Sub playfile_Click() stopfile.Enabled = True /停止按键有效 pausefile.Enabled = True /暂停按键有效 WindowsMediaPlayer1.URL = playfilename /播放媒体文件名称 WindowsMediaPlayer1.Controls.currentPosition = playposition /当前播放的位置 WindowsMediaPlayer1.Controls.play End Sub 　　 4、双击“停止”按键并输入下列代码（图十）： Private Sub stopfile_Click() playposition = 0 /停止播放 stopfile.Enabled = False /停止按键无效 pausefile.Enabled = False /暂停按键无效 playfile.Enabled = True /播放按键有效 WindowsMediaPlayer1.Controls.Stop /停止播放 End Sub 5、双击“打开”按键