vb 组合框

来源：百度知道 编辑：UC知道 时间：2024/05/02 19:13:49
有一个组合框，里面全是音乐的名字，假设是1、2、3、4、5
添一个部件:"windows media player",URL为空，当用户选1时，URL为"c:1.mp3"并播放，无限制循环-------选择2时，URL为"c:2.mp3"无限制循环
我将本机歌曲改为网络储存的，都能播
为什么用VB做就不好使了出现了一个框
“Select Case 没有end select”

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "1"
WindowsMediaPlayer1.URL = "mms://alive.bjradio.com.cn/am603"
Case "2"
WindowsMediaPlayer1.URL = "mms://alive.bjradio.com.cn/fm1025"
Case "3"
WindowsMediaPlayer1.URL = "mms://media.sdgb.cn:8088/yinyue"
Case "4"
WindowsMediaPlayer1.URL = "mms://media.sdgb.cn/jiaotong"

End Sub

Private Sub Combo1_Click()
WindowsMediaPlayer1.URL = "C:/" & Combo1.Text & ".mp3"
End Sub

无限制循环可以在wmp控件"自定义"中设定

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "1"
WindowsMediaPlayer1.URL = "C:/1.mp3"
Case "2"
WindowsMediaPlayer1.URL = "C:/2.mp3"
Case "3"
WindowsMediaPlayer1.URL = "C:/3.mp3"
Case "4"
WindowsMediaPlayer1.URL = "C:/4.mp3"
Case "5"
WindowsMediaPlayer1.URL = "C:/5.mp3"

End Sub