(1).點擊菜單“工程”---“引用”,，引用Windows Media Player,。和CommonDialog。
(2).在窗體中添加控件CommonDialog,、Windows Media Player,。添加代碼，按鈕按提示添加：
Public volum As Integer '聲音全局變量定義,，用于記錄播放過程中的聲音值
Public bool As Boolean '全局變量定義
Sub openn() '過程
On Error Resume Next '出錯處理
CommonDialog1.ShowOpen '顯示打開通用對話框
If CommonDialog1.FileName <> "" Then
bool = False
WindowsMediaPlayer1.Visible = True
WindowsMediaPlayer1.URL = CommonDialog1.FileName '播放路徑
End If
volum = WindowsMediaPlayer1.settings.volume '聲音值
End Sub
Private Sub Form_DblClick() '窗體雙擊事件
Call openn '調(diào)用自定義過程
End Sub
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) '接收拖曳信息
On Error Resume Next
bool = False
WindowsMediaPlayer1.URL = Data.Files.Item(1)
End Sub
Private Sub Command1_Click() '打開按鈕Command1
Call openn '調(diào)用open
End Sub
Private Sub Command2_Click() '暫停按鈕Command2
bool = True
WindowsMediaPlayer1.Controls.Pause
End Sub
Private Sub Command3_Click() '停止播放按鈕Command3
bool = True
WindowsMediaPlayer1.Controls.Stop
End Sub
Private Sub Command4_Click() '增大音量按鈕Command4
WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume 5
volum = WindowsMediaPlayer1.settings.volume
End Sub
Private Sub Command5_Click() '減小音量按鈕Command5
WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume - 5
volum = WindowsMediaPlayer1.settings.volume
End Sub
Private Sub Command6_Click() '靜音按鈕Command6
If WindowsMediaPlayer1.settings.mute Then
WindowsMediaPlayer1.settings.mute = False
Else
WindowsMediaPlayer1.settings.mute = True
End If
End Sub
Private Sub Command7_Click() '全屏按鈕Command7
On Error Resume Next
WindowsMediaPlayer1.FullScreen = True
End Sub
Private Sub Command8_Click() '退出程序按鈕Command8
Unload Me
End Sub
Private Sub WindowsMediaPlayer1_StatusChange() '循環(huán)播放實現(xiàn)
On Error Resume Next
If bool = False Then
WindowsMediaPlayer1.Controls.Play
End If
End Sub
具體的屬性方法：
enableContextMenu:Boolean 顯示/不顯示播放位置的右鍵菜單
fullScreen:boolean 全屏顯示
stretchToFit:boolean 非全屏狀態(tài)時是否伸展到最佳大小
uMode:string 播放器的模式,，full：有下面的控制條; none：只有播放部份沒有控制條
playState:integer 當(dāng)前控件狀態(tài)，下面是三種基本狀態(tài)：
3：正在播放
2：暫停
1：已停止
狀態(tài)變化時會觸發(fā)OnStatusChange事件
[controls]
可通過WindowsMediaPlayer.controls對播放器進行控制并取得相關(guān)的一些信息：
controls.play; 播放
controls.stop; 停止
controls.pause; 暫停
controls.currentPosition：Double 當(dāng)前播放進度
controls.currentPositionString：string 時間格式的字符串 "0:32"
[currentMedia]
可以通過WindowsMediaPlayer.currentMedia取得當(dāng)前媒體的信息
currentMedia.duration Double 總長度
currentMedia.durationString 時間格式的字符串 "4:34"
[settings]
可以通過WindowsMediaPlayer.settings對播放器進行設(shè)置,，包括音量和聲道等。
settings.volume:integer 音量 （0-100）
settings.balance:integer 聲道,，通過它應(yīng)該可以進行立體聲,、左聲道、右聲道的控制,。
=================
版本2：
屬性/方法名： 說明：
[基本屬性]
url：string指定媒體位置,，本機或網(wǎng)絡(luò)地址
uiMode:String; 播放器界面模式，可為Full, Mini, None, Invisible
playState:integer; 播放狀態(tài),，1=停止,，2=暫停,，3=播放，6=正在緩沖,，9=正在連接,，10=準(zhǔn)備就緒
enableContextMenu:Boolean; 啟用/禁用右鍵菜單
fullScreen:boolean; 是否全屏顯示
[controls] wmp.controls //播放器基本控制
controls.play; 播放
controls.pause; 暫停
controls.stop; 停止
controls.currentPosition:double; 當(dāng)前進度
controls.currentPositionString:string; 當(dāng)前進度，字符串格式,。如“00:23”
controls.fastForward; 快進
controls.fastReverse; 快退
controls.next; 下一曲
controls.previous; 上一曲
[settings] wmp.settings //播放器基本設(shè)置
settings.volume:integer; 音量,，0-100
settings.autoStart:Boolean; 是否自動播放
settings.mute:Boolean; 是否靜音
settings.playCount:integer; 播放次數(shù)
[currentMedia] wmp.currentMedia //當(dāng)前媒體屬性
currentMedia.duration:double; 媒體總長度
currentMedia.durationString:string; 媒體總長度，字符串格式,。如“03:24”
currentMedia.getItemInfo(const string); 獲取當(dāng)前媒體信息"Title"=媒體標(biāo)題,，"Author"=藝術(shù)家，"Copyright"=版權(quán)信息,，"Description"=媒體內(nèi)容描述,，"Duration"=持續(xù)時間（秒），"FileSize"=文件大小,，"FileType"=文件類型,，"sourceURL"=原始地址
currentMedia.setItemInfo(const string); 通過屬性名設(shè)置媒體信息
currentMedia.name:string; 同 currentMedia.getItemInfo("Title")
[currentPlaylist] wmp.currentPlaylist //當(dāng)前播放列表屬性
currentPlaylist.count:integer; 當(dāng)前播放列表所包含媒體數(shù)
currentPlaylist.Item[integer]; 獲取或設(shè)置指定項目媒體信息，其子屬性同wmp.currentMedia
MediaPlayer1.Play 播放
MediaPlayer1.Stop 停止
MediaPlayer1.Pause 暫停
MediaPlayer1.PlayCount 文件播放次數(shù)
MediaPlayer1.AutoRewind 是否循環(huán)播放
MediaPlayer1.Balance 聲道
MediaPlayer1.Volume 音量
MediaPlayer1.Mute 靜音
MediaPlayer1.EnableContextMenu 是否允許在控件上點擊鼠標(biāo)右鍵時彈出快捷菜單
MediaPlayer1.AnimationAtStart 是否在播放前先播放動畫
MediaPlayer1.ShowControls 是否顯示控件工具欄
MediaPlayer1.ShowAudioControls 是否顯示聲音控制按鈕
MediaPlayer1.ShowDisplay 是否顯示數(shù)據(jù)文件的相關(guān)信息
MediaPlayer1.ShowGotoBar 是否顯示Goto欄
MediaPlayer1.ShowPositionControls 是否顯示位置調(diào)節(jié)按鈕
MediaPlayer1.ShowStatusBar 是否顯示狀態(tài)欄
MediaPlayer1.ShowTracker 是否顯示進度條
MediaPlayer1.FastForward 快進
MediaPlayer1.FastReverse 快退
MediaPlayer1.Rate 快進／快退速率
MediaPlayer1.AllowChangeDisplaySize 是否允許自由設(shè)置播放圖象大小
MediaPlayer1.DisplaySize 設(shè)置播放圖象大小
1-MpDefaultSize 原始大小
2-MpHalfSize 原始大小的一半
3-MpDoubleSize 原始大小的兩倍
4-MpFullScreen 全屏
5-MpOneSixteenthScreen 屏幕大小的1/16
6-MpOneFourthScreen 屏幕大小的1/4
7-MpOneHalfScreen 屏幕大小的1/2
MediaPlayer1.ClickToPlay 是否允許單擊播放窗口啟動Media Player
