做企业的主人文章:VB播放资源文件中的声音
来源:百度文库 编辑:中财网 时间:2024/05/01 18:00:34
VB播放资源文件中的声音
━━━━━━━━━━━━━━━━━━━━━━━━━━
VB 提供的方法使我们可以很容易地使用资源文件中的字符、图片等资源。我们可以用以下方法播放资源文件中的wav 声音:
首先,在你的资源文件的源文件(RC) 文件加入下面一行:
MySound WAVE c: \ music \ vanhalen.wav
然后将其编译为RES 文件。
最后使用下面的声明及代码:
Private Declare Function PlaySound Lib _ "winmm.dll" Alias "PlaySoundA" ( _ ByVal lpszName As String, _ ByVal hModule As Long, _ ByVal dwFlags As Long) As Long
Private Const SND_ASYNC & = &H1
Private Const SND_NODEFAULT & = &H2
Private Const SND_RESOURCE & = &H40004
Dim hInst As Long
Dim sSoundName As String
Dim lFlags As Long
Dim lRet As Long
Private Sub Command1_Click()
hInst = App.hInstance
sSoundName = "MySound"
lFlags = SND_RESOURCE + SND_ASYNC + _ SND_NODEFAULT
lRet = PlaySound(sSoundName, hInst, lFlags)
End Sub
.....
━━━━━━━━━━━━━━━━━━━━━━━━━━
VB 提供的方法使我们可以很容易地使用资源文件中的字符、图片等资源。我们可以用以下方法播放资源文件中的wav 声音:
首先,在你的资源文件的源文件(RC) 文件加入下面一行:
MySound WAVE c: \ music \ vanhalen.wav
然后将其编译为RES 文件。
最后使用下面的声明及代码:
Private Declare Function PlaySound Lib _ "winmm.dll" Alias "PlaySoundA" ( _ ByVal lpszName As String, _ ByVal hModule As Long, _ ByVal dwFlags As Long) As Long
Private Const SND_ASYNC & = &H1
Private Const SND_NODEFAULT & = &H2
Private Const SND_RESOURCE & = &H40004
Dim hInst As Long
Dim sSoundName As String
Dim lFlags As Long
Dim lRet As Long
Private Sub Command1_Click()
hInst = App.hInstance
sSoundName = "MySound"
lFlags = SND_RESOURCE + SND_ASYNC + _ SND_NODEFAULT
lRet = PlaySound(sSoundName, hInst, lFlags)
End Sub
.....
如何在 VB 中播放资源文件中的声音?
VB中如何读取 DLL 文件中的资源信息?
VB怎样调用DLL中的资源
电脑中的播放文件只有声音没有图像
RT_DIALOG资源的格式(EXE文件中的)
无法播放网页中的声音
播放mkv文件无声音
播放swf文件没有声音
DVD文件播放没有声音?
flash8文件不能播放声音
播放mid文件没有声音
VB如何播放数据库中的MP3
为什么用WinDVD播放AVI文件中的DTS音频没有声音?
如何播放D-vb.rmvb文件?
用VB如何播放多媒体文件
绝对的高手请进!!!怎样才能录下启航网络播放器播放的.lec文件中的声音啊?
请问如何提取万众电子杂志中的声音资源啊
VB能否播放远程计算机上的声音
vb怎么做资源???
vb怎么调用资源
firefox中如何播放网页中的声音?
使用DREAMWEAVER中的行为播放声音
怎么翻译播放器中的声音?
为什么电脑播放mid文件没有声音?