Question

用VB6.0做个 windowsmediaplayer小例子.

Answer 1

Private Sub Command1_Click()
WindowsMediaPlayer1.Controls.pause
WindowsMediaPlayer1.Controls.stop
List1.Selected(List1.ListIndex - 1) = True
WindowsMediaPlayer1.URL = List1.List(List1.ListIndex)
WindowsMediaPlayer1.Controls.play
End Sub

Private Sub Command2_Click()
WindowsMediaPlayer1.Controls.pause
WindowsMediaPlayer1.Controls.stop
List1.Selected(List1.ListIndex + 1) = True
WindowsMediaPlayer1.URL = List1.List(List1.ListIndex)
WindowsMediaPlayer1.Controls.play
End Sub

Private Sub Command3_Click()
WindowsMediaPlayer1.Controls.pause
End Sub

Private Sub Command4_Click()
WindowsMediaPlayer1.Controls.play
End Sub

Private Sub Command5_Click()
WindowsMediaPlayer1.URL = VB.App.Path & "music.mp3"
End Sub

Private Sub Command6_Click()
WindowsMediaPlayer1.Close
End Sub

Private Sub Form_Load()
List1.AddItem "music.mp3"
List1.AddItem "犯错-斯琴高丽.mp3"
List1.AddItem "[格格]火苗-格格.mp3"
List1.AddItem "得到你的人却得不到你的心-欢子.mp3"
WindowsMediaPlayer1.URL = VB.App.Path + "\music.mp3"
'WindowsMediaPlayer1.Controls.play
End Sub

Private Sub List1_Click()
WindowsMediaPlayer1.URL = List1.List(List1.ListIndex)
WindowsMediaPlayer1.Controls.play
End Sub