1个回答
展开全部
Dim strFileName As String '语音文件名
Dim strDir As String 'exe的绝对路径
Dim strCmd As String
If strFileName = "" Then
Return
End If
strDir = Application.StartupPath'获取exe所在的绝对路径
strFileName = strDir + "wav\" + strFileName '假设音频放在exe所在文件夹为“wav”的目录下
strCmd = "play " + strFileName
mciExecute(strCmd)
'ps:如果Application.StartupPath这东西编译不通过,好像在类的前面得加上 Inherits System.Windows.Forms.Form 这一串
补充:我上面说的是假如音频文件在你的可执行文件目录下面,名称为“wav”的文件夹内。。。如果你把你要播的音频放到这个目录下,上面的代码不用修改。
如果不想放在那目录下,哈哈,偷懒点,直接把你wav音频的绝对路径赋值给strFileName。
Dim strDir As String 'exe的绝对路径
Dim strCmd As String
If strFileName = "" Then
Return
End If
strDir = Application.StartupPath'获取exe所在的绝对路径
strFileName = strDir + "wav\" + strFileName '假设音频放在exe所在文件夹为“wav”的目录下
strCmd = "play " + strFileName
mciExecute(strCmd)
'ps:如果Application.StartupPath这东西编译不通过,好像在类的前面得加上 Inherits System.Windows.Forms.Form 这一串
补充:我上面说的是假如音频文件在你的可执行文件目录下面,名称为“wav”的文件夹内。。。如果你把你要播的音频放到这个目录下,上面的代码不用修改。
如果不想放在那目录下,哈哈,偷懒点,直接把你wav音频的绝对路径赋值给strFileName。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询