windowsmediaplayer控件

ncutqi 2003-11-22 07:50:40
我用了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

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

...全文
37 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
rainstormmaster 2003-11-23
  • 打赏
  • 举报
回复
WMPOCX1.settings.autoStart = TRUE
WMPOCX1.URL = MFile
hhjjhjhj 2003-11-23
  • 打赏
  • 举报
回复
你用的是自制控件或第三方控件,无能为力,
ncutqi 2003-11-23
  • 打赏
  • 举报
回复
http://asp.7i24.com/smartboy/xz/123.zip
这个是原码,大家帮忙看看
ncutqi@21cn.com
谢谢
online 2003-11-23
  • 打赏
  • 举报
回复
看看
' 初始化窗口
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
rainstormmaster 2003-11-22
  • 打赏
  • 举报
回复
默认时控件名为MediaPlayer1,即
MediaPlayer1.FileName = a
MediaPlayer1.autoStart = True

呵呵,这样的错误

建议输代码的时候,前面先输入me.这样应该就不会类似的错误了
hhjjhjhj 2003-11-22
  • 打赏
  • 举报
回复
默认时控件名为MediaPlayer1,即
MediaPlayer1.FileName = a
MediaPlayer1.autoStart = True
lxqlogo0 2003-11-22
  • 打赏
  • 举报
回复
没问题啊,

7,768

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧