Question

我想用VB做一个简易的音乐播放器 用的控件是 windowsmediaplayer ， 按钮

我想用VB做一个简易的音乐播放器 用的控件是 windowsmediaplayer ， 按钮 和listbox
效果是单击listbox选择音乐然后单击按钮播放或暂停或停止 求指教 最好把代码给我谢谢了。

Answer 1

窗体上建立一个FileListBox 一个WindowsMediaPlayer 和 一个 Timer控件在复制以下代码运行即可
歌曲数量 As Long
Dim 歌曲文件夹路径 As String
Dim 当前播放 As Long
Private Sub Form_Load()
歌曲文件夹路径 = "C:\Users\hu\Desktop" '歌曲文件夹目录
File1 = 歌曲文件夹路径
File1.Pattern = "*.mp3" '文件过滤器
File1.Visible = False
歌曲数量 = File1.ListCount
If 歌曲数量 = 0 Then
MsgBox "未发现可以播放的音频文件!", vbExclamation, ""
End
Else
WindowsMediaPlayer1.URL = 歌曲文件夹路径 & "\" & File1.List(当前播放)
当前播放 = 当前播放 + 1
Timer1.Interval = 1
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
If WindowsMediaPlayer1.playState = wmppsStopped Then
If 当前播放 = 歌曲数量 - 1 Then
当前播放 = 0
WindowsMediaPlayer1.URL = 歌曲文件夹路径 & "\" & File1.List(当前播放)
Else
当前播放 = 当前播放 + 1
WindowsMediaPlayer1.URL = 歌曲文件夹路径 & "\" & File1.List(当前播放)
End If
Else
End If
End Sub

追问

代码打在哪里啊。。

知道了我没看清

当前播放是什么啊也没定义。