请教播放MP3的方法

kevinchengcw

你是要用VB??

yrysf

说错了,是1秒钟

yrysf

我知道错在哪里了,是时间忘了放进去了,我再试试

yrysf

加了个sleep 1000 ,还是没反应,看来还是不对

yrysf

加了括号也试过了,不行.您那儿调试出来是可以的吗?

yrysf

是的,我用vb,不是VBA,VBA是基于VB的.
我分开来试过了,分成定时和播放,定时可行,问题出在播放.
可是,播放这个代码我看不出有什么错误。那既然不能运行，说明还是有错误。

kevinchengcw

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Sleep (1000)
ShellExecute 0, "Open", "d:\test.mp3", "", "", SW_SHOW
End Sub
以上代码放到commandbutton的click事件里运行正常，API申明要放到最上面

VB6下测试正常，改成sleep(10000)后10秒后启动播放。

[ 本帖最后由 kevinchengcw 于 2010-10-24 11:55 编辑 ]

yrysf

我把这个延时写入工作簿中，能够延时运行，说明错误就是
ShellExecute 0, "Open", "d:\阿姐鼓.mp3", "", "", SW_SHOW
这一句

yrysf

您运行通过了?

kevinchengcw

我这里运行通过且工作正常，你是不是什么地方没弄对啊，比如什么库之类的未引用啊。

还有，注意下是不是文件名未写对啊

[ 本帖最后由 kevinchengcw 于 2010-10-24 12:05 编辑 ]