windowsmediaplayer控件

[ncutqi]

我用了windowsmediaplayer控件，想利用它打开并播放媒体文件，即有一个commanddialog控件，用一个按钮启动它
Private Sub Command1_Click()
CommonDialog1.ShowOpen

CommonDialog1.Filter = "(*.avi;*.mpeg;*.dat;*.mp3;*.mov)|*.avi;*.mpeg;*.mp3;*.dat;*.mov"
Dim a$
a = CommonDialog1.FileName
WindowsMediaPlayer1.FileName = a
WindowsMediaPlayer1.autoStart = True
End Sub

却提示说对象不支持该属性或方法！如何解决？

[lxqlogo0]

没问题啊，

[hhjjhjhj]

默认时控件名为MediaPlayer1,即
MediaPlayer1.FileName = a
MediaPlayer1.autoStart = True

[rainstormmaster]

默认时控件名为MediaPlayer1,即
MediaPlayer1.FileName = a
MediaPlayer1.autoStart = True

呵呵，这样的错误

建议输代码的时候，前面先输入me.这样应该就不会类似的错误了

[online]

看看
' 初始化窗口
Private Sub Form_Load()
CommonDialog1.Filter = "影像文件(*.Avi;*.Mpg;*.Dat;*.Asf)|*.Avi;*.MPG;*.DAT;*.Asf| All files (*.*)| *.*"
End Sub

' 打开文件并自动播放
Private Sub open_Click(Index As Integer)
Dim MFile As String
CommonDialog1.ShowOpen
MFile = CommonDialog1.FileName
MediaPlayer1.FileName = MFile
MediaPlayer1.AutoStart = True
MediaPlayer1.AutoSize = True
End Sub

[ncutqi]

http://asp.7i24.com/smartboy/xz/123.zip
这个是原码，大家帮忙看看
[e-mail]
谢谢

[hhjjhjhj]

你用的是自制控件或第三方控件,无能为力,

[rainstormmaster]

WMPOCX1.settings.autoStart = TRUE
WMPOCX1.URL = MFile