VB制作MP3MP4播放器源代码-简单实用.
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
媒体播放器很多，但是定制的广告令人生厌，还是自己动手做一个和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