2、在窗口設計器中創建壹個MediaPlayer控件、五個Command Button控件和壹個CommonDialog控件。
3、將Form1的Caption屬性更改為“小叮當的媒體播放器”。
4、分別將五個Command Button控件的Caption屬性分別命名為“暫停”、“播放”、“停止”、“選擇”和“退出”，然後把它們按照壹定的位置放好。
5、選中CommonDialog控件之後，在右邊屬性的“Filter”對話框中輸入“WAV（*.wav）|*.wav|MIDI（*.mid）|*.mid|MPEG（*.mpeg）|*.mpeg|DAT（*.dat）|*.dat|AVI（*.avi）|*.avi|MP3（*.mp3）|*.mp3”的文件過濾選項，這樣就可以支持各種常見的媒體影像文件了。
小蘑菇：看起來和真正的MediaPlayer差不多呀，還蠻有專業水準的呢。
小叮當：是呀，這全要歸功於MediaPlayer控件，下面就是代碼編寫部分內容了：
1、首先要雙擊Form1窗口，並選擇“通用”對象，輸入下面的通用代碼：
Option Explicit
Dim playfilename As String /定義播放文件的名稱
Dim playposition As Double /定義當前播放的位置
2、雙擊“暫停”按鍵並輸入下列代碼：
Private Sub Command1_Click()
Command1.Enabled = False /暫停按鍵失效
MediaPlayer1.Pause /暫停播放
playposition = MediaPlayer1.CurrentPosition /當前的播放位置
End Sub
3、雙擊“播放”按鍵並輸入下列代碼：
Private Sub Command2_Click()
Command1.Enabled = True /暫停按鍵有效
Command3.Enabled = True /停止按鍵有效
MediaPlayer1.filename = playfilename /播放媒體文件名稱
MediaPlayer1.SelectionStart = playposition /當前播放的位置
MediaPlayer1.Play /播放媒體文件
End Sub 4、雙擊“停止”按鍵並輸入下列代碼：
Private Sub Command3_Click()
playposition = 0 /停止播放
Command3.Enabled = False /停止按鍵無效
Command1.Enabled = False /暫停按鍵無效
Command2.Enabled = True /播放按鍵有效
MediaPlayer1.Stop /停止播放
End Sub
5、雙擊“選擇”按鍵並輸入下列代碼：
Private Sub Command4_Click()
CommonDialog1.showopen /打開文件對話框
playfilename = CommonDialog1.filename /記錄播放文件名
playposition = 0 /第壹次打開文件時候，播放位置為0
End Sub
6、雙擊“退出”按鍵並輸入下列代碼：
Private Sub Command5_Click（）
Unload Me /卸載窗口
End /結束程序
End Sub
代碼全部輸入完畢之後，運行程序後按下“選擇”按鍵，此時會彈出打開文件對話框供妳選擇需要播放的文件。
選中相應的文件之後，就可以進行欣賞了。如果需要在別的計算機上使用這個程序的話，還可以選擇“工具”菜單下的“生成.exe文件”選項來制作壹個可以直接運行的exe格式文件，這樣將程序復制到其他機器上就可以使用了。”