媒体播放器很多，但是定制的广告令人生厌，还是自己动手做一个和WindowsMediaPlayer 播放器效果一样的吧，直接用微软提供的WindowsMediaPlayer 控件就可以，下边简单介绍一下WindowsMediaPlayer 控件的用法。

这里用VB 开发，用VC 任然是一样的，只不过VC 中进行类操作，属性和方法的使用是完全一样，下边只列出部分功能，以起抛砖引玉的作用。

有兴趣的朋友可以继续完善哦！
制作步骤：
一、控件添加
这是必须的，VB 中在工具箱中点击右键添加，选中WindowsMediaPlayer ，然后工具箱中会出现一个我们非常熟悉的WindowsMediaPlayer 图标。

二、界面
在工具箱里添加WindowsMediaPlayer 控件，然后新建一个窗体，将WindowsMediaPlayer 控件加进去，可以用控件按钮（打开、播放、暂停、停止等），也可以自己设计（如本文中）。

三、添加代码如下
Dim flag As Boolean
Private Sub Form_Load(
With WindowsMediaPlayer1
.uiMode = "full"
End With
End Sub
' 播放暂停
Private Sub Command1_Click( flag = Not flag
With WindowsMediaPlayer1 If flag = True Then Command1.Caption = "pause" .Controls.Play
Else
Command1.Caption = "play" .Controls.pause
End If
End With
End Sub
' 停止
Private Sub Command2_Click( With WindowsMediaPlayer1 .Controls.Stop
End With
End Sub
Private Sub Command4_Click( '打开文件
With CommonDialog1
' .Filter = "avi (*.avi|*.avi"
.ShowOpen
End With
With WindowsMediaPlayer1
' .URL = App.Path + "\017 喜欢你没道理张韶涵.mp3"
.Controls.Stop
End With
' 快进
Private Sub Command3_Click(
With WindowsMediaPlayer1
.Controls.currentPosition = .Controls.currentPosition + 10
End With
End Sub
' 快退
Private Sub Command5_Click(
With WindowsMediaPlayer1
.Controls.currentPosition = .Controls.currentPosition - 10 End With
End Sub。