Question

vb制作音乐播放器

我想做1个可以播放mp3格式的,用wimdowsmediaplayer控件。
我要代码

Answer 1

1.如何加载WindowsMediaPlayer，控件：
在VB6.0D的菜单栏找到“工程”——“部件”，在弹出的菜单中，拉动滚动条找到WindowsMediaPlayer，将其前面的复选框选中，点击“应用”“确定”即可，然后你就会在你的的控件栏中看到WindowsMediaPlayer控件了。

2.如何播放音乐文件
只需要将WindowsMediaPlayer1.URL赋相应的值即可。
例如要在窗体加载时播放music.mp3这个文件，只要这样写代码。
Private Sub Form_Load()
WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"
End Sub
注意：其中的\music.mp3是一个相对路径表示当前目录下的文件，即你的工程所保存的位置。

3.如何暂停播放
在command按钮中加入如下代码，即可实现。
Private Sub Command4_Click()
WindowsMediaPlayer1.Controls.pause
End Sub

4.如何在暂停播放之后继续播放
在command按钮中加入如下代码，即可实现。
Private Sub Command3_Click()
WindowsMediaPlayer1.Controls.play
End Sub
如果想实现音乐从头播放，只需要将第二条中播放音乐中代码再写一遍即可。
Private Sub Command5_Click()
WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"
End Sub

5.停止播放的音乐（关闭播放器）
在command按钮中加入如下代码，即可实现。
Private Sub Command1_Click()
WindowsMediaPlayer1.Close
End Sub

Answer 2

在设计模式下选择WindowsMediaPlayer的“自定义……”可以设置它的相关基本属性，如装载时是否启动它，窗口模式--最大化还是最小化 WindowsMediaPlayer主要用到以下属性： WindowsMediaPlayer.playState=（1、2、3……） WindowsMediaPlayer.URL=""(音乐文件路径) WindowsMediaPlayer.windowlessVideo = True/False WindowsMediaPlayer1.Close 关闭播放器

Answer 3

我有，你留下邮箱，我发给你。