vb实现播放声音文件

张扬霸道247

张扬霸道247

2016-02-19 14:53

今天图老师小编给大家展示的是vb实现播放声音文件,精心挑选的内容希望大家多多支持、多多分享,喜欢就赶紧get哦!

  在某些情况下,例如编写游戏,或将要进行一项非常冗长的过程, 可以通过播放音乐来增加游戏的声光效果或是减少漫长的等待所带来 的困倦。本文介绍如何在Visual Basic 中播放声音文件。

  在Windows系统中支持的声音文件有WAV文件和MIDI文件,通常使 用Windows应用程序编程接口(API)函数可以对MIDI文件进行播放;而 使用API函数sndPlaySound则可以对WAV 播放文件进行播放,当然,也 可以使用nciExecute函数来播放WAV文件。播放WAV文件

  需要在程序窗体的通用声明部分中或标准模块中添加如下声明语 句:

  Private Declare Function sndPlaySound Lib "winmm.dll" Al ias"sndPlaySound A"((ByVal lpszSound Name As String,ByVal uF lags As Long)As Long

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  然后添回如下标准识常量:

  

  Public Const SND_SYNC=& H0  Public Const SND_ASYNC=& H1  Public Const SND_NODEFAULT=& H2  Public Const SND_MEMORY=& H4  Public Const SND_ALIAS=& H10000  Public Const SND_RESOURCE=& H40004  Public Const SND_ALIAS_ID=& H110000  Public Const SND_ALIAS_START=0  Public Const SND_LOOP=& H8  Public Const SND_NOSTOP=& H10  Public Const SND_VALID=& H1F  Public Const SND_NOWAIT=& H2000  Public Const SND_validflags=& H17201F  Public Const SND_RESERVED=& HFF000000  Public Const SND_TYPE_MASK=& H170007

  sndPlaySound函数需要两个参数,第一个参数soundfilename是要 播放的WAV文件的名称,第二个参数是一个表明播放方式的标识常量, 其值如上述常量定义,通常所使用的标识意义如下:

  ?SND_SYNC播放WAV文件,播放完毕后将控制转移回应用程序中。

  ?SND_ASYNC播放WAV文件,然后将控制立即转移回应用程序中。

  ?SND_NODEFAULT不要播放缺省的WAV文件,以免发生某些意外的 错误。

  ?SND_MEMORY播放以前已经加载到内存中的WAV文件。

  ?SND_LOOP循环播放WAV文件。

  ?SND_NOSTOP在开始播放其它的WAV文件之前,需要完成对本WAV 文件的播放。

  值得注意的是SND_LOOP标识通常需要同SND_ASYNC共同使用,也即 在两个标识之间添加与播放符,以免在对WAV文件进行播放的时候将系 统挂起。

  播放MIDI文件

  需要在程? 体的通用声明部分中或标准模块中添加如下声明语 句:

  Private Declare Function mciExecute Lib"winmm.dll"Alias" mciExecute"(ByVa l lpstrComman As String)As Long

  mciExecute函数只需要一个参数CommandString,顾名思义,它是 一个命令字符串,用于表明对声音文件播放的命令,例如,希望完整播 放声音文件,则该字符串就是字符串"pl ay"加上声音文件的路径以及 文件名称,如下所示:

  Dim Return Vsalue As Long

  ReturnSoundValue=mciEecute("play C:WIN95MEDIACAYON.MI D/")

  如果希望对声音文件的部分进行播放,可以使用fromto语句 格式,例如若要 播放CANYON.MID文件的10毫秒到100毫秒的部分,可以 使用如下的语句:

  Dim Return Value As Long

  RetumSoundValue=mciExecute("play C:WIND95MEDIA/CASNYON .MID from10 to 100")

  micExecute函数也可以用来对WAV文件进行播放,方法同播放MIDI 一样。

  样例程序

  1.在Visual Basic中开始一个新的项目,采用缺省的方法建立For m1。

  2.将如下声明语句添加到Form1的通常声明部分中(注意每个声明 语句需要书写在一行内):

  

Private Declare Function sndPlaySound Lib"winmm.dll"Alia s"sndPlaySoundA" (ByVal lpszSoundName As String,ByVal uFlags As Long)As long    Const SND_SYNC=& H0    Const SND_ASYNC=& H1    Const SND_NODEFAULT=& H2    Const SND_MEMORY=& H4    Const SND_ALIAS=& H10000    Const SND_FILENAME=&H20000    Const SND_RESOURCE=& H40004    Const SND_ALIAS_ID=& H110000    Const SND_ALIAS_START=0    Const SND_LOOP=& H8    Const SND_NOSTOP=& H10    Const SND_VALID=& H1F    Const SND_NOWAIT=& H2000    Const SND_validflags=& H17201F    Const SND_RESERVED=& HFF000000    Const SND_TYPE_MASK=& H170007    Private Declare Function mciExecute Lib"winmm.dll"Alias" mciExecute"(ByVa l lpstrCommand As String)As Long

  3.在Forml上添加一个文本框控件,采用缺省的方法建立TexT1。 将其Caption属性设置为NULL。

  4.在Form1上添加一个命令按钮控件,采用缺省的方法建立Comman d1。将其Caption属性设置为"使用mciExecute函数"。

  5.在Form1上添加一个命令按钮控件,采用缺省的方法建立Comman d2。将其Cpaption 属性设置为"使用mciExecute函数"。

  6.将如下代码添加到Command1的单击事件中:

  Private Sub Command1_Click()

  Dim Return Value As Long

  Text1.Test="使用sndPlaySound函数播放Canyon.mid文件Return Value=sanPlaySou nd("C:WIN95WEDIATADA.WAV",SND_SYNC)

  End Sub

  7.将如下代码添加到Command2的单击事件中:

  Private Sub Command2_Click()

  Dim Return Value As Long

  Text1.Test="使用sndPlaySound函数播放Canyon.mid文件。"

  ReturnSoundValue=mciExdecute"play C:WIN95MEDACNYON.MI D from 10to 100"

  EndSub

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  按下F5键来执行样例程序。单击"使用sndPlaySound函数"命令按 钮,则使用sndPlay Sound函数来播放C:WIN95MEDIA目录下的TADA.W AV声音文件。音击"使用mciExe cute函数来播放C:MIN95MED IA目录下CANYON.MID文件的10毫秒到100毫秒的部分。

展开更多 50%)
分享

猜你喜欢

vb实现播放声音文件

编程语言 网络编程
vb实现播放声音文件

利用API播放声音文件

编程语言 网络编程
利用API播放声音文件

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

利用Java Applet播放声音文件

编程语言 网络编程
利用Java Applet播放声音文件

幻灯片插入声音文件后复制到其他电脑上却无法播放声音

电脑应用 计算机应用技术 powerpoint
幻灯片插入声音文件后复制到其他电脑上却无法播放声音

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

PowerPoint中如何嵌入声音文件以及删除嵌入的声音文件

软件教程 powerpoint
PowerPoint中如何嵌入声音文件以及删除嵌入的声音文件

vc在应用程序中播放声音资源文件

编程语言 网络编程
vc在应用程序中播放声音资源文件

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

怎么修改动感影集的名称?

怎么修改动感影集的名称?

WML——XML标记语言开发实例详细解析

WML——XML标记语言开发实例详细解析
下拉加载更多内容 ↓