请教播放MP3的方法

yrysf

我也是自学的,看来我们是革命同志啦!
我常常感到那些代码象天外来客一样,

kevinchengcw

其实用久了理解的就深了，慢慢消化。以后大家可以多多探讨。

yrysf

我学过VB,C语言,但也只是限于完整地看完这两本书,
VB(二级),C语言,谭浩强写的,却发现任何程序也不会编,
您呢?肯定比我强多了

yrysf

Sub test()
ShellExecute 0, "Open", """" & ThisWorkbook.Path & "\1.mp3""", "", "", SW_SHOW
End Sub

请教这段代码表示MP3 放在ThisWorkbook下,怎么放呢?
这段程序的效果您试过吗?

kevinchengcw

我是自学的QB,TC,谭浩强的书也看过，以前编过点小的程序自己玩，扔了七八年，去年年底无聊才又开始学vba

kevinchengcw

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

Sub test()
ShellExecute 0, "Open", """" & ThisWorkbook.Path & "\1.mp3""", "", "", SW_SHOW
End Sub

放到模块里，把文件保存后放一个mp3到同一目录下，mp3名可以改成自己要的，运行就可以打开了，是以系统默认的打开方式打开的。
本地测试过的。

yrysf

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 cmd_Click()
ShellExecute 0, "Open", "d:\阿姐鼓.mp3", "", "", SW_SHOW
End Sub
老师您好,这段代码我把它放在VB中运行,定时1分钟播放,可是不行,能帮我看看吗? 我想可能是倒数第二行的问题.

yrysf

因为有5.6个M,传不过来,否则整个传过来可以方便您调试.

kevinchengcw

原帖由 yrysf 于 2010-10-24 10:55 发表
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, ...

点击后一分钟后开始播放吗？？

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 cmd_Click()
sleep(1000)
ShellExecute 0, "Open", "d:\阿姐鼓.mp3", "", "", SW_SHOW
End Sub