admin管理员组文章数量:1567038
2024年7月21日发(作者:)
VB中播放WAV文件
作者:赵鹏
在多媒体软件的开发设计中,声音是一个相当重要的多媒体元素,优秀的声音设计会
为多媒体软件增色不少。而WAV格式的声音文件是一种最常用的声音文件格式,也最容
易得到,比如通过Win 95中的“录音机”程序,利用麦克风就可以非常简单地录制WAV
文件。VB是一个相当经典的多媒体开发的工具,在VB中播放WAV文件的方法主要有这
样几种。
一、利用OLE控件
建一窗体,用鼠标选择OLE控件,在窗体上拖出OLE区域,在图一的窗口中选择新
建和声音然后按确定键就完成了在窗口中添加OLE控件,如图二。
这样就可以在OLE控件的ResourceDoc属性中选择所要播放的文件,程序运行时双
击OLE控件即可。
在实际的程序设计当中,往往需要单击某个图标或按钮来控制声音的播放,其实现方
法是这样的:首先将OLE控件的VISIBLE属性设置为FALSE,然后在图标或按钮的单击事
件中编写如下的程序:
Private Sub Contol_Click()
= 7
End Sub
二、利用MMControl控件
VB5.0提供了许多设计多媒体的控件,在PROJECT/COMPENENTS/CONTROLS中
选择MMControls 控件,窗体上就出现了多媒体控件对象,在这个对象上有不同的图形
功能标识,其名称从左到右分别是Pre、Next、Play、Pause、Back、Step、Stop、Record 、
Eject 如图三。
这个多媒体控件可以播放多种格式的声音,播放WAV格式声音文件的程序代码
Private Sub form_load()
Type = "waveaudio"
me = "d:考试注意事项.wav"
d = "open"
End Sub
'以下是为图形标识Play事件编写的代码
Private Sub MMControl_playclick(cancel As Integer)
d = "play"
End Sub
当运行这个程序时,MMControl控件中的Play键被激活,点取此按钮即可播放
文件。
在实际的软件设计当中,更多的情况是鼠标点击按钮或图标来控制声音的播放, 其实
现方法是这样的:首先将MMControl控件的VISIBLE属性设置为FALSE,然后在图标或按
钮的单击事件中编写如下的程序:
Private Sub Control1_Click()
d = "play"
End Sub
运行程序时单击相用的按钮或图标,WAV文件照样可以播放。用自行设计的按钮或图
标取代多媒体控件中的固定按钮,可设计出更加灵活方便的用户界面。
三、利用VB的API函数
在窗体的DECLARATIONS(声明)中输入如下代码:
Private Declare Function sndPlaySound Lib "" Alias
"sndPlaySoundA" (ByVal_lpszSoundName As String, ByVal uFlags As Long) As Long
'lpszSoundName是一个字符串变量,表示一个WAV格式的文件名。
'uFlags 用于设定播放状态的各种选项。参数值为0X00时,实现同步播放,参数值
为0X01时实现非同步播放。
在命令按钮的单击事件中输入如下代码:
Private Sub Command1_Click()
Dim plays As Long
plays = sndPlaySound(“E:", &H0)
End Sub
运行时单击命令按钮即可播放WAV文件。
版权声明:本文标题:VB中播放WAV文件 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://www.elefans.com/dianzi/1721566633a885484.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论