怎么调用MediaPlayer啊。

Question

我想调用MediaPlayer，要求弹出窗体的时候有声音。
但是不知道为什么我设一个按钮，按的时候可以调用（代码只有MediaPlayer.play），直接把代码写入form_load()里面就出错。错误显示为：play的方法IMediaPlayer2错误。哪位高手指点一下啊，小女子这厢有礼了。

Answer 1

Private Sub Form_Load()
MediaPlayer1.FileName = "e:\windows\clock.avi"
MediaPlayer1.AutoStart = True
MediaPlayer1.Play
End Sub

Answer 2

你如果播放简单的wav,mid文件
可以不用mediaplayer控件，那个太耗资原你可以用sndPlaySound等API

Answer 3

不行啊。 啊啊啊为什么啊这些代码运行后还是一样的错误啊，差别在于现在会响了，不过还是跳出个框框说有错。
（Private Sub Form_Load()
MediaPlayer1.FileName = "e:\windows\clock.avi"
MediaPlayer1.AutoStart = True
MediaPlayer1.Play
End Sub）
还有没有办法改进啊。sndPlaySound等API又要怎么用啊，小妹是新手，请大家多多指教啊。

Answer 4

什么错误？描述一下偶估计是你的avi需要专门的解码器吧
你换个媒体文件播放一下看看

Answer 5

错误就是跳出一个窗体显示：play的方法IMediaPlayer2错误。我只用了MediaPlayer1.Play
这行代码，如果把这行代码放到button_click()中，就没有问题，完全可以正常播放，放到form_click()中，就跳出那个窗体显示错误。我是新手，各位多多指教，谢谢了。

Answer 6

Private Sub Form_Load()
WindowsMediaPlayer1.Controls.Play
End Sub

Answer 7

Private Sub Form_Load()
    Public myPlaylist As IWMPPlaylist
    Public mymedia As WindowsMediaPlayer
    Set mymedia = WindowsMediaPlayer1
    mymedia.currentPlaylist = myPlaylist
    mymedia.Controls.Play
End Sub