急急急：有关media player控件

Question

你可以用两个窗体第一个窗体放media player，第二个是主窗体
unload form1
form2.show

Answer 1

MediaPlayer提供一个End事件。
在播放结束后响应此事件，调用.stop即可。

Answer 2

有提供end事件吗，请问具体该如何调用，请叫具体点，拜托了

Answer 3

Private Sub Command1_Click()
    MediaPlayer1.FileName = "F:\Music\HJ20.MP3"
End SubPrivate Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
    MediaPlayer1.Visible = False
End Sub

Answer 4

PlayState=3 '表示正在播放媒体
PlayState=5 '表示正在下载媒体
PlayState=6 '表示正在缓冲媒体
.....
共有8个．其它的你去试吧．你的问题就可以用这个PlayState属性来解决．做一个时间控件．如果PlayState=1或者10就表示你的媒体已经播放完成．其它的就你去做吧．