上面那位rainstormmaster(rainstormmaster)的 on error resume next 我也用了.但是.....在windows2000/XP下面出现 播放器.exe出现非常操作.应用程序需要重新启动,正在创建错误日志. 在windows98下面就直接退出了.唉.咱办呢?
'那就不用MCI控件麻! '引用ActiveMovie Control TypeLibrary对象库 '这个对象库的功能非常强大!!!! Option ExplicitDim objTest As New QuartzTypeLib.FilgraphManager Private Sub Form_Load() objTest.RenderFile "C:\111.mp3" objTest.Run End SubPrivate Sub Form_Unload(Cancel As Integer) objTest.Stop Set objTest = Nothing End Sub
mmcontrol1.command="open"
mmcontrol1.command="play"
就这么简单.如果引起错误的话.就算程序退出N次再进入也是一样.
用Vb环境直接运行也是一样.而且所有用Multimedia MCI 控件制作的应用程序都一样.
不知道有不有初始化Multimedia MCI 控件的函数或许能解决这个问题.
on error resume next 我也用了.但是.....在windows2000/XP下面出现 播放器.exe出现非常操作.应用程序需要重新启动,正在创建错误日志.
在windows98下面就直接退出了.唉.咱办呢?
'引用ActiveMovie Control TypeLibrary对象库
'这个对象库的功能非常强大!!!!
Option ExplicitDim objTest As New QuartzTypeLib.FilgraphManager
Private Sub Form_Load()
objTest.RenderFile "C:\111.mp3"
objTest.Run
End SubPrivate Sub Form_Unload(Cancel As Integer)
objTest.Stop
Set objTest = Nothing
End Sub
先看看是不是声卡的问题,直接双击c:\aa.wav看能否播放,如果可以则向下看再重新安装vb试试(换一张没有问题的安装盘),估计是你的mci有问题还是不行的话,重装系统后再重装vb试试还是不行的话,换一台好一点的计算机重复上述动作