有代码:代码如下:
Private Sub Form_Load()
WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"
End Sub
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If WindowsMediaPlayer1.playState = mpStopped Then
WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"