VB中播放WAV文件

最新推荐文章于 2024-09-10 15:49:01 发布

wq1282

最新推荐文章于 2024-09-10 15:49:01 发布

阅读量2.2k

点赞数

分类专栏： VB源码文章标签： vb string function integer 图形 command

VB源码专栏收录该内容

45 篇文章 0 订阅

订阅专栏

http://zhidao.baidu.com/question/33440250.html

在模块中输入以下代码
Public Declare Function sndPlaySound Lib "winmm" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long ' flag uitzetten Public Const SND_SYNC = &H0 Public Const SND_ASYNC = &H1 Public Const SND_NODEFAULT = &H2 Public Const SND_MEMORY = &H4 Public Const SND_LOOP = &H8 Public Const SND_NOSTOP = &H10 Public Sub PlaySound(strSound As String) sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT End Sub

在窗体中输入以下代码
Private Sub Form_Load() PlaySound "D:/sound.wav" End Sub

VB中播放WAV文件
作者：赵鹏
在多媒体软件的开发设计中，声音是一个相当重要的多媒体元素，优秀的声音设计会为多媒体软件增色不少。而WAV格式的声音文件是一种最常用的声音文件格式，也最容易得到，比如通过Win 95中的“录音机”程序，利用麦克风就可以非常简单地录制WAV文件。VB是一个相当经典的多媒体开发的工具，在VB中播放WAV文件的方法主要有这样几种。

     一、利用OLE控件
     建一窗体，用鼠标选择OLE控件，在窗体上拖出OLE区域，在图一的窗口中选择新建和声音然后按确定键就完成了在窗口中添加OLE控件，如图二。
     这样就可以在OLE控件的ResourceDoc属性中选择所要播放的文件，程序运行时双击OLE控件即可。
在实际的程序设计当中，往往需要单击某个图标或按钮来控制声音的播放，其实现方法是这样的：首先将OLE控件的VISIBLE属性设置为FALSE,然后在图标或按钮的单击事件中编写如下的程序：
Private Sub Contol_Click()
OLE1.Action = 7
End Sub
     二、利用MMControl控件
     VB5.0提供了许多设计多媒体的控件，在PROJECT/COMPENENTS/CONTROLS中选择MMControls 控件，窗体上就出现了多媒体控件对象，在这个对象上有不同的图形功能标识，其名称从左到右分别是Pre、Next、Play、Pause、Back、Step、Stop、Record 、Eject 如图三。
     这个多媒体控件可以播放多种格式的声音，播放WAV格式声音文件的程序代码
Private Sub form_load()
MMControl1.DeviceType = "waveaudio"
MMControl1.filename = "c:/win95/media/ding.wav"
MMControl1.Command = "open"
End Sub
'以下是为图形标识Play事件编写的代码
Private Sub MMControl_playclick(cancel As Integer)
MMControl1.Command = "play"
End Sub
     当运行这个程序时，MMControl控件中的Play键被激活，点取此按钮即可播放ding.wav文件。
在实际的软件设计当中，更多的情况是鼠标点击按钮或图标来控制声音的播放, 其实现方法是这样的：首先将MMControl控件的VISIBLE属性设置为FALSE,然后在图标或按钮的单击事件中编写如下的程序：
Private Sub Control1_Click()
MMControl1.Command = "play"
End Sub
     运行程序时单击相用的按钮或图标，WAV文件照样可以播放。用自行设计的按钮或图标取代多媒体控件中的固定按钮，可设计出更加灵活方便的用户界面。
     三、利用VB的API函数
     在窗体的DECLARATIONS(声明)中输入如下代码：
Private Declare Function sndPlaySound Lib "winmm.dll" 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:/WINDOWS/MEDIA/DING.WAV", ＆H0)
End Sub
     运行时单击命令按钮即可播放WAV文件。