VB如何播放背景音乐

打开这个软件的时候随机播放安装目录下的music文件夹中的音乐，且在Label1中显示当前播放音乐的名称，点击Command1即可让音乐暂停 再次点击继续播放，点击Command2即可播放下一曲，点击Command3即可播放下一曲（最好是随机播放，如果不能做到的话按顺序播放也行 但是必须是不停的播放，直到软件关闭为止）

补充：邮箱：
137236081@qq.com

追问：邮箱：
137236081@qq.com

答案：兄弟 代码较多 你可以给出邮箱吗？我直接发给你源码。不过如果你不需要所有的功能你可以参考下面的代码。只是部分，因为还有一个模块没有。
 
 
Dim ier As Boolean
Private Sub Command1_Click()
If Command1.Caption = "暂停播放" Then
  WindowsMediaPlayer1.Controls.pause
  Command1.Caption = "接着播放"
  ipause.Caption = "接着播放"
ElseIf Command1.Caption = "接着播放" Then
  WindowsMediaPlayer1.Controls.play
  Command1.Caption = "暂停播放"
    ipause.Caption = "暂停播放"
End If
End Sub
Private Sub Command2_Click()
Call rPlayMusic
End Sub
Private Sub Command3_Click()
'播放下一首
If File1.ListIndex < File1.ListCount - 1 Then
  File1.ListIndex = File1.ListIndex + 1
ElseIf File1.ListIndex = File1.ListCount - 1 Then
  File1.ListIndex = 0
End If
Call play(File1.Path & "\" & File1.FileName)
End Sub
Private Sub Command4_Click()
Me.Hide
End Sub
Private Sub File1_DblClick()
Call play(App.Path & "\music\" & File1.FileName)
End Sub
Private Sub Form_Load()
'添加托盘图标
 Call AddIcon
'label1动态初始化
ier = True
'播放器处理
WindowsMediaPlayer1.uiMode = "invisible"
WindowsMediaPlayer1.Controls.stop
'播放文件夹处理
On Error Resume Next '避开错误处理直接生成music文件甲
MkDir (App.Path & "\music")
'定义当前音乐文件播放地址 用filelist直接取得
File1.Path = App.Path & "\music"
'随机播放音乐
Call rPlayMusic
End Sub
Private Sub rPlayMusic()
Dim i As Integer
Randomize
i = Int(Rnd * File1.ListCount) '取得一个属于音乐文件的标识
File1.ListIndex = i
Call play(File1.Path & "\" & File1.FileName) '播放路径名中音乐文件
End Sub
Private Sub play(mPlay As String)
WindowsMediaPlayer1.Controls.stop
WindowsMediaPlayer1.URL = mPlay
WindowsMediaPlayer1.Controls.play
a = Split(mPlay, "\")
a = a(UBound(a))
Label1.Caption = "现在正在播放:" & a
ier = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
 Call DelIcon '删除托盘图标
WindowsMediaPlayer1.Controls.stop
Unload Me
End Sub
Private Sub iend_Click()
Unload Me
End Sub
Private Sub inext_Click()
Call Command3_Click
End Sub
Private Sub ipause_Click()
Call Command1_Click
End Sub
Private Sub irplaymusic_Click()
Call Command2_Click
End Sub
Private Sub ishowme_Click()
Me.Show
End Sub
Private Sub Timer1_Timer()
'用于进行动态状态栏
If ier = True Then
  Label1.Caption = "   " & Label1.Caption
  ier = False
ElseIf er = False Then
  Label1.Caption = Right$(Label1.Caption, Len(Label1.Caption) - 3)
  ier = True
End If
'用于判断是否已经播放完成 播放完成就随机播放一首
If WindowsMediaPlayer1.playState = 1 Then Call rPlayMusic
'也可以播放下一首 if WindowsMediaPlayer1.playstate=1 then call command3_click
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   '气泡单击时的鼠标事件
   Dim cEvent As Single
    cEvent = X / Screen.TwipsPerPixelX
   Select Case cEvent
    Case MouseMove
        'Debug.Print "MouseMove"
    Case LeftUp
'        Debug.Print "左键放开"
    Case LeftDown
 '       Debug.Print "左键按下"
    Case LeftDbClick
'        Debug.Print "左键双击"
        Form1.WindowState = 0
        Form1.Show
    Case MiddleUp
'        Debug.Print "中间键放开"
    Case MiddleDown
'        Debug.Print "中间键按下"
    Case MiddleDbClick
'        Debug.Print "中间键单击"
    Case RightUp
'        Debug.Print "右健放开"
    Case RightDown
'        Debug.Print "右健按下"
        Me.PopupMenu Me.Menu
   Case RightDbClick
'        Debug.Print "右健双击"
   Case BalloonClick
 '       Debug.Print "单击气泡"'
    End Select
End Sub ''
 
进入商城，选择播放器分类。点击播放器图片可以看到使用效果，点击保存方案即可。

添加背景音乐请点击音乐盒中的按钮，选择歌曲后，自动收录在音乐收藏中，也可以直接在音乐收藏里直接添加自己的原创歌曲收藏。在播放列表页面点击进行编辑，然后选择音乐收藏中的歌曲作为背景音乐，并可设置歌曲播放顺序。

音乐收藏的曲目可以根据星级进行排序，星级高的会排在前面，若调整曲目顺序，可以直接修改星级。在其它Qzone的音乐收藏中听到好的歌曲，想自己收藏，点击“ ”按钮即可立即收藏到自己音乐盒的音乐收藏中。

注：音乐收藏中最多可收藏150个原创曲目，创建十个音乐专题。
可以给出邮箱吗？我发源码给你！记得采纳我啊！ 

上一个：VB程序结果什么
下一个：VB API keybd_event