用VB做一个音乐播放器控件和代码都要急求俶俶俶

2025-04-30 01:57:57

推荐回答（2个）

回答1：

WindowsMediaPlayer1.URL = "c:\aaa.mp3"

回答2：

一、新建标准工程，默认名称form1。
二、form1窗体添加MediaPlayer控件。自己调高度和宽度
三、form1窗体添加一个filelistbox控件、label控件、textbox控件
四、在添加一个listbox控件，命名list1
五、代码如下：
private sub mediaplayer1_endofstream（by val redult as long）
if list1.listcount>0 then
If list1.listindexList.listIndex=list1.listIndex+1
Else
List1.listIndex=0
End if
Mediaplayer1.fileName=app.path & "\mp3\" & list1.list(list1.ListIndex)
MediaPlayer1.Play
End if
End sub
说明：MediaPlay控件常用方法如下：
play（）开始播放，stop（）停止播放 pause（）暂停播放

用VB做一个音乐播放器 控件和代码都要 急求俶俶俶

用VB做一个音乐播放器控件和代码都要急求俶俶俶