请教播放MP3的方法

yrysf · 发表于 2010-10-24 08:55

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

kevinchengcw · 发表于 2010-10-24 09:00

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

yrysf · 发表于 2010-10-24 09:05

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

yrysf · 发表于 2010-10-24 09:24

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

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

kevinchengcw · 发表于 2010-10-24 09:34

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

kevinchengcw · 发表于 2010-10-24 09:37

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 · 发表于 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, 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 · 发表于 2010-10-24 11:07

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

kevinchengcw · 发表于 2010-10-24 11:12

原帖由 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 · 发表于 2010-10-24 11:21

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

		自动登录	找回密码
密码			免费注册

请教播放MP3的方法

回复 7楼 kevinchengcw 的帖子

回复 12楼 kevinchengcw 的帖子