Question

各位高手，我想做个VB简易播放器，一运行播放器就自动播放指定的歌曲，该怎样做？谢谢！

Private Sub cmdBack_Click() '后退按钮单击事件代码
WindowsMediaPlayer1.Controls.currentPosition = WindowsMediaPlayer1.Controls.currentPosition - 10
End Sub

Private Sub cmdFor_Click() '快进按钮单击事件代码
WindowsMediaPlayer1.Controls.currentPosition = WindowsMediaPlayer1.Controls.currentPosition + 10
End Sub

Private Sub cmdFull_Click() '全屏按钮单击事件代码
WindowsMediaPlayer1.fullScreen = True
End Sub

Private Sub cmdPause_Click() '暂停按钮单击事件代码
WindowsMediaPlayer1.Controls.pause
End Sub

Private Sub cmdPlay_Click() '播放按钮单击事件代码
WindowsMediaPlayer1.URL = App.Path + "\test.mp3"
WindowsMediaPlayer1.Controls.play
End Sub

Private Sub cmdStop_Click() '停止按钮单击事件代码
WindowsMediaPlayer1.Controls.stop
End Sub
我的意思是，运行播放器不需按播放按钮就开始播放test.mp3歌曲。谢谢！

Answer 1

Private Sub Form_Load()
WindowsMediaPlayer1.URL = App.Path + "\test.mp3"
WindowsMediaPlayer1.Controls.play
End Sub

增加这个代码即可!

Answer 2

用控件有很多局限性，这个是我做的例子，你自己去看看

下载地址:http://www.1disk.cn/ContentPane.aspx?down=ok&filepath=doudou%2fPlay+Music.rar