计算机二级考试VB辅导:VB中播放WAV文件

在多媒体软件的开发设计中，声音是非常重要的多媒体元素，优秀的声音设计会为多媒体软件增色不少。WAV格式的声音文件是最常用的声音文件格式之一，也是最容易获得的。例如，通过Win 95中的“recorder”程序，使用麦克风就可以非常简单地录制WAV文件。VB是一个经典的多媒体开发工具。在VB中播放WAV文件有几种方法。
1。使用OLE control
构建一个表单，用鼠标选中OLE control，拖出表单上的OLE区域，在图1的窗口中选择New和Sound，然后按OK，完成在窗口中添加OLE control，如图2所示。
这样就可以在OLE控件的ResourceDoc属性中选择要播放的文件，在程序运行时双击OLE控件。
在实际编程中，经常需要点击图标或按钮来控制声音的播放。实现方法如下:首先将OLE控件的VISIBLE属性设置为FALSE，然后在图标或按钮的click事件中编写以下程序:
private subcontrol _ click()
OLE 1 . action = 7
end sub
二、使用MMControl控件
VB5.0提供了很多设计多媒体的控件，在PROJECT/components/CONTROLS/CONTROLS中选择MMControls，窗体上会出现一个多媒体控件对象。这个物体上有不同的图形功能标记，它的名字从左到右依次是前进、前进、播放、暂停、后退、前进、停止、记录和弹出，如图3所示。
这个多媒体控件可以播放各种格式的声音，程序代码
private subform _ load()
mm control 1 . device type = " wave audio "
mm control 1 . filename = " c:win 95 mediating . wav "
mm control 1 . command = " open "
end sub
'下面是为图形logo Play事件编写的代码
private sub mm control _ Play click(cancel为整数)
点击此按钮播放ding.wav文件。
在实际的软件设计中，经常会出现鼠标点击某个按钮或图标来控制声音播放的情况。实现方法如下:首先将MMControl控件的VISIBLE属性设置为FALSE。然后在图标或按钮的click事件中编写以下程序:
private subcontrol 1 _ click()
mm control 1 . command = " play "
end sub
运行程序时，点击所使用的按钮或图标，WAV文件仍然可以播放。用自己设计的按钮或图标代替多媒体控件中的固定按钮，可以设计出更灵活、更方便的用户界面。
三。使用VB的API函数
在窗体的声明中输入下面的代码:
私有声明函数snd playsoundlib "winmm.dll "别名" sndplaysoundda "(byval _ lpszsoundname为string，byval uflags为long
' lpszsoundname为string变量，表示WAV格式的文件名。
' u flags用来设置播放状态的各种选项。当参数值为0X00时，实现同步回放，当参数值为0X01时，实现异步回放。
在命令按钮的click事件中输入以下代码:
Private subcommand 1 _ click()
Dim Plays As Long
Plays = SND Playsound(" E:Windows Media ding . wav "，&h0)
End sub [