请各位帮我看下Media Player 控件的几个属性(paly,stop,pause等)

Question

我看的书上可能是7.0的，有些属性FileName,play ,pause,stop,autostart,autosize等在我现在用的9.0上用不了，但我也想实现停止，暂停，继续，等功能，我不知道这些属性在9.0上是怎么改了，还请各位兄弟帮我看看
Private Sub Form_Load()
MediaPlayer1.Visible = False
cmdPlay.BackColor = vbRed
cmdPause.BackColor = vbRed
cmdContinue.BackColor = vbRed
cmdStop.BackColor = vbRed
cmdNext.BackColor = vbRed
cmdContinue.Enabled = False
cmdPause.Enabled = False
cmdStop.Enabled = False
Text1.Text = "本播放器支持各种音乐格式。谢谢使用。 土人。"
Text1.BackColor = vbBlack
Text1.ForeColor = vbYellow
End Sub
Private Sub cmdPlay_Click()
Text1.SetFocusWith CommonDialog1
.Flags = cdlOFNAllowMultiselect
.InitDir = App.Path
.Filter = "Midi Files(*.mid)|*.mid|MP3 Files(*.mp3)|*.mp3|Wave Filse(*.wav)|*.wav|(*.m3u)|*.m3u"
.FileName = ""
.ShowOpen
End With
MediaPlayer1.URL = CommonDialog1.FileName
MediaPlayer1.play   /这个地方在9.0不行，怎么改*************
Text1.Text = " 现在正在播放：" & CommonDialog1.FileName
cmdPlay.Enabled = False
cmdPause.Enabled = True
cmdContinue.Enabled = False
cmdStop.Enabled = True
Exit Sub
End Sub
Private Sub cmdPause_Click()
Text1.SetFocus
MediaPlayer1.pause /这个地方在9.0不行，怎么改*************
cmdPause.Enabled = False
cmdContinue.Enabled = True
End Sub
Private Sub cmdContinue_Click()
Text1.SetFocus
MediaPlayer1.play  /这个地方在9.0不行，怎么改**************
cmdPlay.Enabled = False
cmdPause.Enabled = True
cmdContinue.Enabled = False
End Sub
Private Sub cmdNext_Click()
On Error GoTo NextErr '播放非m3u文件时只能播放单噬柚贸龃泶?br> MediaPlayer1.Next
Exit Sub
NextErr:
MsgBox "现在正在播放单曲，没有一下曲。", vbOKOnly, "出错信息"
End Sub
Private Sub cmdStop_Click()
MediaPlayer1.stop      /这个地方在9.0不行，怎么改********
cmdPlay.Enabled = True
cmdPause.Enabled = False
cmdContinue.Enabled = False
cmdStop.Enabled = False
End Sub还有AutoSize,AutoStart等怎么改呢?
谢谢

Answer 1

WindowsMediaPlayer1.Controls.play'播放
WindowsMediaPlayer1.Controls.pause'暂停
WindowsMediaPlayer1.Controls.stop'停止

Answer 2

WindowsMediaPlayer1.settings.autoStart = TrueAutoSize没找到
你可以到M$的网站上下载一个WMP9的SDK参考一下，下载地址我一时找不着了

Answer 3

找到了http://www.microsoft.com/downloads/details.aspx?FamilyID=e43cbe59-678a-458a-86a7-ff1716fad02f&DisplayLang=en

Answer 4

首先非常感谢你的帮助,不过我还有个问题就是我现在不想通过CommonDialog1来选择音乐文件,因为我做的是数据库,到时我是想得到这些多媒体文件的地址之后打开,我试了下把我上面的那个CommonDialog1的东西去了之后,改为一个固定的音乐就不行,请问怎么办呢,如果不用mediaPlayer控件,有没有方法打开我的各种多媒体文件呢,谢谢
Private Sub cmdPlay_Click()
Dim file As String
file = "f:\music\1.mp3"
MediaPlayer1.URL = file
MediaPlayer1.Controls.play
End Sub
改了之后没反应了,怎么办呢