最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
如何用VB程序来播放WAV文件
时间:2022-07-02 11:14:35 编辑:袖梨 来源:一聚教程网
Wednesday, September 24 2003 1:24 PM 当一定事件完成时,程序发出特定的信号则可以增加程序的用户界面特性,比如在下载完成或者选择一个命令的时候。使用一个多媒体功能,通过一个VB程序来运行WAV文件是一件轻而易举的事情。然而,系统必须为这一操作而安装一个声卡。
你所需要的API函数称为PlaySound,以下为该函数的声明:
Public Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVallpszName As String, _
ByValhModule As Long, ByValdwFlags As Long) _
As Long
在这一函数中,第一个变量是名称,包括运行的Wave文件的路径。第二个变量在运行文件时通常不使用,所以你可以将它赋值为zero。最后一个变量包含控制函数如何工作的标记。
为了当前的需要,必须需要两个标记。它们是:
SND_ASYNC (value= 1):以异步方式运行,这意味着当播放声音时函数在运行。
SND_FILENAME (value = &H20000):第一个变量为一个文件名。
所以,以下代码播放了DingDong.wav文件中的声音:
PlaySound "dingdong.wav", CLng(0), _
SND_ASYNC Or SND_FILENAME
当运行在一个程序中运行音频文件时,还有其他两点值得注意。第一,你必须确保一个特定的音频文件存在,否则会产生错误。这一过程可以用以下一个简单的函数来完成:
Public Function FileExists(FullFileName) As Boolean
' Passed a filename (with path) returns
' True if the file exists, False if not.
Dim s
s = dir(FullFileName)
If s = "" Then
FileExists = False
Else
FileExists = True
End If
End Function
第二,程序必须具有为用户提供关闭声音的选择设置。这一过程可以通过使用一个比如gProgramSoundsEnabled的全局布尔变量来实现。
你所需要的API函数称为PlaySound,以下为该函数的声明:
Public Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVallpszName As String, _
ByValhModule As Long, ByValdwFlags As Long) _
As Long
在这一函数中,第一个变量是名称,包括运行的Wave文件的路径。第二个变量在运行文件时通常不使用,所以你可以将它赋值为zero。最后一个变量包含控制函数如何工作的标记。
为了当前的需要,必须需要两个标记。它们是:
SND_ASYNC (value= 1):以异步方式运行,这意味着当播放声音时函数在运行。
SND_FILENAME (value = &H20000):第一个变量为一个文件名。
所以,以下代码播放了DingDong.wav文件中的声音:
PlaySound "dingdong.wav", CLng(0), _
SND_ASYNC Or SND_FILENAME
当运行在一个程序中运行音频文件时,还有其他两点值得注意。第一,你必须确保一个特定的音频文件存在,否则会产生错误。这一过程可以用以下一个简单的函数来完成:
Public Function FileExists(FullFileName) As Boolean
' Passed a filename (with path) returns
' True if the file exists, False if not.
Dim s
s = dir(FullFileName)
If s = "" Then
FileExists = False
Else
FileExists = True
End If
End Function
第二,程序必须具有为用户提供关闭声音的选择设置。这一过程可以通过使用一个比如gProgramSoundsEnabled的全局布尔变量来实现。
相关文章
- 《燕云十六声》配置要求介绍 12-25
- 《燕云十六声》搬砖介绍 12-25
- 时空中的绘旅人天宇之间怎么玩 绘旅人天宇之间活动玩法介绍 12-25
- QQ2024年度报告怎么看 2024qq年度报告玩法介绍 12-25
- 归龙潮珠砂什么时候up 归龙潮红缘绮梦卡池介绍 12-25
- 王者荣耀S38赛季有什么更新 12-25