说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

播放声音文件 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
播放声音文件 -VB资料

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

播 放 声 音 文 件

---- 在Microsoft Visual Basic 中 进 行 多 媒 体 音 乐 的 播 放 是 一 件
非 常 轻 松 的 事 情。 在Microsoft Windows 系 统 中 支 持 的 声 音 文 件
有WAV 文 件 和MIDI 文 件, 通 常 使 用Windows 应 用 程 序 编 程 接 口(
API) 函 数mciExecute 函 数 可 以 对MIDI 文 件 进 行 播 放。 而 使 用API
函 数sndPlaySound 则 可 以 对WAV 播 放 文 件 进 行 播 放, 当 然, 你 也
可 以 使 用mciExecute 函 数 来 播 放WAV 文 件。

---- 为 了 播 放WAV 文 件, 你 需 要 在 你 的 程 序 窗 体 的 通 用 声 明
部 分 中, 或 是 标 准 模 块 中 添 加 如 下 的 声 明 语 句:

---- Private Declare Function sndPlaySound Lib "winmm.dll" Alias "
sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As
Long

---- 以 及 如 下 的 标 识 常 量:

---- 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_FILENAME = &H20000
---- 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 文 件, 然 后 将 控 制 立 即 转 移 回 你 的 应
用 程 序 中, 而 不 管 对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" (ByVal lpstrCommand As String) As Long

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

---- Dim ReturnValue As Long
---- ReturnSoundValue = mciExecute("play C:\WIN95\MEDIA\CANYON.MID")

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

---- Dim ReturnValue As Long
---- ReturnSoundValue = mciExecute("play C:\WIN95\MEDIA\CANYON.MID from
10 to 100")
---- mciExecute 函 数 也 可 以 用 来 对WAV 文 件 进 行 播 放, 方 法 同
播 放MIDI 一 样。

样 例 程 序

---- 1. 在Visual Basic 中 开 始 一 个 新 的 项 目, 采 用 缺 省 的 方 法
建 立Form1。
---- 2. 将 如 下 的 声 明 语 句 添 加 到Form1 的 通 常 声 明 部 分 中(
注 意 每 个 声 明 语 句 需 要 被 书 写 在 一 行 内):

---- Private Declare Function sndPlaySound Lib "winmm.dll" Alias "
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" (ByVal lpstrCommand As String) As Long

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

---- 4. 在Form1 上 添 加 一 个 命 令 按 钮 控 件, 采 用 缺 省 的 方 法
建 立Command1。 将 它 的Caption 属 性 设 置 为" 使 用sndPlaySound 函 数
敗*

---- 5. 在Form1 上 添 加 一 个 命 令 按 钮 控 件, 采 用 缺 省 的 方 法
建 立Command2。 将 它 的Caption 属 性 设 置 为" 使 用mciExecute 函 数敗*

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


Private Sub Command1_Click()
Dim ReturnValue As Long
Text1.Text = " 使 用sndPlaySound 函 数 播 放TADA.WAV 文 件。"
ReturnValue = sndPlaySound("C:\WIN95\MEDIA\TADA.WAV", SND_SYNC)
End Sub


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


Private Sub Command2_Click()
Dim ReturnValue As Long
Text1.Text = " 使 用mciExecute 函 数 播 放Canyon.mid 文 件。"
ReturnSoundValue = mciExecute
("play C:\WIN95\MEDIA\CANYON.MID from 10 to 100")
End Sub


---- 通 过 按 下F5 键 来 执 行 样 例 程 序。 单 击" 使 用sndPlaySound 函
数" 命 令 按 钮 则 使 用sndPlaySound 函 数 来 播 放C:\WIN95\MEDIA 目 录
下 面 的TADA.WAV 声 音 文 件。 单 击" 使 用mciExecute 函 数" 则 使 用
mciExecute 函 数 来 播 放C:\WIN95\MEDIA 目 录 下 面 的CANYON.MID 文 件
的10 毫 秒 到100 毫 秒 的 部 分。


扁平化设计会扼杀人们的创造力吗? 又一巨头涉足移动视频分享领域:传雅虎欲收购短视频应用Qwiki 史上最牛:主要靠三消游戏IPO King也许会是第一家 乐视超级电视预约启动 1小时预约近1.4万台 王坚:未来一年阿里云会有很大变化 梁胜:开源并不是做好软件的唯一方式 如何为IE 10编写特定的样式 MySQL手册许可证更改乃是Bug惹得祸 开源世界高峰论坛首批演讲议题公布 测试工程师的心灵鸡汤:谦虚、不沉默、有危机感、不断努力 高德地图API“沿图有你,晒出你的LBS应用”活动拉开帷幕! 谁能找出Windows 8.1的安全漏洞,就将获得微软10万美元奖金! 【直击美国云计算】Facebook分享数据中心新网络架构Fabric 【直击美国云计算】OCP发起产业界的Maker运动 红帽刘长春:开源是推动云计算和大数据发展的重要力量 【直击美国云计算】出货量达x86的20多倍 ARM或将成为数据中心主角 孙小群:将SAP HANA打造为开放的PaaS平台 GitHub推出重大改进:强调速度、内容和交互性 如何打造测试工程师精英团队? 如何做个有“钱”途的测试工程师? 苹果开始关注企业移动化 iOS 7的10大办公功能 “开源群英会2013” 参会名单(持续更新中) 微软Builder2013前瞻 主打跨平台工具及服务 CMDN 29期:软件测试与管理之路 微软IE10与HIT FM 携手打造全新HTML5官网 专访GenMyModel CTO:一款全新在线建模工具背后的故事 【直击美国云计算】Jason Hoffman:数据和计算的融合将破坏全球利润 【直击美国云计算】如何做Hadoop、流处理框架等技术的采用选择 【直击美国云计算】细数云技术领域成王败寇:从SaaS到SDN 【直击美国云计算】谷歌Jeff Dean:成功的关键是专注 致远V5发布:强调大协同,企业移动化真来了 急!如何在VB中控制扫描仪,并按要求取得图象? 高手请指点 [给分]请global_boy(准备蒸发)进来领分!帮助解决Win2000启动选项的配置..原贴:http://www.csdn.net/expert/topic/592/592163.xml?temp= 请教高手!如何通过文件名获得其图标 MCSE?! 数据连接错误? 如何让datagrid绑定数据 ISAPI程序里输出的网页无法显示,大家救命! 请问如何在Jb6中使用中文字体,比如说宋体 HTTP 和 FTP 一个黑客问题? SQL 急的!谢谢大家帮忙!关于interbase与c++builder5的连接。 请教高手! 哪里有免费下载<thinking in c++>等图书的? 那位大侠懂在 VC 中用汇编??? 有会命名管道操作的高手吗 请教高手! 异步传送的问题? 如何杀死某个进程呢? 苦行僧与灌木丛来领分 如何把一个string转换成int delphi与Access ADO连接的详细设置? 请问能否用C#实现进程的完全隐藏? 创天中文VC6.0的问题????? 有谁知道类似WINDOWS98那个星空的屏保是如何实现的? 请各位大虾提供一些JAVA开发工具的下载网址 在Web Service中传递图像字段数据回客户端的问题!请教大侠! 买过深入浅出MFC的朋友请进~~~~~~ 会Java的究竟难不难找工作啊? 有什么方法可以让自己的机子有假的ip呢? root 是不是可以无限制看其他用户的文件? 高手看了吐血的问题(WinXP下无法执行.asp脚本) 这段代码错在那?? 我安装了一个winXp和win98,如何卸载win98阿,谢谢。 如何在picture控件里方便的画出坐标系,要完整的,要是一条一条画太麻烦了 在ASP中如何产生一个类似CLSID的,不会重复的值? flash5里如何制作填充渐变为任一色到透明色填充? 关于SESSION的问题 ado里怎么压缩access数据库 100分在线 谁发扬一下共享精神,借我看看背单词软件的源代码!!谢谢了!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 急啊,有谁有读写客户端数据库的控件,希诺在吗 己经开发了一个sql server2000与ASP的系统,怎么把数据库移到别的机子上去运行! 关于quake 如何把同一内容,通过一个按钮,提交到不同的地方(仅用javascript或html) 请问谁有bea的jdbc driver for mssql的license 哪位朋友知道钱能的《C++程序设计题解》下载,小弟先谢了! 请问listview控件中怎样修改选定的iterm及subiterm? 图书馆管理系统,急!急!急!(pb8+sql2000) select一有变动,就将select的值传给textfield.如何实现? 学VC是不是同时看几本书啊? 观2012有感,新颖的题目. 英语作文:英国笔友想知道李华高三的学习和备考情况.李华回信内容: 1.来自老师的压力 2.来自同学英语作文:英国笔友想知道李华高三的学习和备考情况.李华回信内容:1.来自老师的压力 看感动中国有感的作文 读后感作文的题目 我要考托福,问下如果没有学过toefl的话,能考到多少分? 甲,乙练习打字,甲打字的速度是乙的1.2倍,同样打600个字,甲比乙少用1分钟,问甲每分钟打多少个字?急啊! 游记作文700字 如果只考托福不考Sat ,能进排名前100的大学吗,托福至少要达到多少分呢 图书分为三类,其中科普类和文艺类占7分之6,文艺类和卡通类占3分之2,每类书各占全部的多少. 游记作文800字广东省内游啊,不要太夸张 在成都考托福 托福分数达到80分好考吗?知道的请回答 作文:读《台阶》有感... 游记作文700字! 6只铅笔和5本日记本共花去1.35元,3只铅笔和2本笔记本同价钱,问1只铅笔多少钱? 这篇短文的读后感,曾听到一位老农讲了一个黄鼠狼脱皮哺子故事:三年困难时期,他一家人经常找不到吃的.好在他会下夹子,偶尔也会夹到狐狸、黄鼠狼什么的.一天清晨,他去收夹子,见夹到一 回家去问妈妈(毕淑敏)阅读、答案文章太长,打不下~去网上看看吧~1、当我游敦煌回来时,那些词表现了我激动的神情?从哪些词语中表现出妈妈和我相反的神情?这是什么写法?2、所有的妈妈 我要考托福,想问一下TOEFL考中短信答案可信吗? 速度给我一篇读后感作文要关于时间的要求400字 回家去问妈妈(毕淑敏) 阅读题 小明买了2本日记本和12枝铅笔共用了10.8元,2本日记本和6枝铅笔的价钱相等,那么一本日记和一枝铅笔价各多 考托福可以自己复习吗?可以不报新东方之类的班自己复习吗?大概每天应该花多长时间复习,总共需要几个月?只考过四、六级,成绩分别是624,621 考托福托福是什么?考了托福能干嘛? 童鞋们谁考托福了!我今年高一,考托福的前一个月还不知道托福是什么,然后一个月后就考了,68分怎么样啊ps,能上大概什么样的美国高中呢,我因为去年12月底才决定出国,结果比大家都晚了.托 自己准备考托福 应该怎样复习 准备? 想考托福有3个月的准备时间 平时成绩110左右吧 如果拼命努力的话托福大概考多少能不能至少达到80以上 英语作文 假设你是李梅,你的加拿大笔友Clark对中国的传统节日中秋节很感兴趣,请给他回信内容包括:1.中秋节是中国重要的节日之一2.中秋节,有些人会走亲访友相互祝福.3.中秋节晚上,一家 邻居餐桌上的谜底 1、文章写到第九自然段,作者已经明白了邻居餐桌上的谜底,第十自然段是否多余,可否删去,为什么 还有半年的时间考托福,怎样才能更好的去理解托福阅读文章呢? 观阅兵有感 作文题目不一定要是《观阅兵有感》,写有关于爱国的文章就行了,不要太长,500字左右.注意,是500字左右! 考托福需要复习多长时间? 请问我想2011年2月份考托福,应该在什么时候报名啊?我北京的 观09阅兵仪式有感的作文急 字数不要太多 像个初中生写的 不要太深奥 我的老师的作文结尾 写游记的作文600字要有意义,写春天的! 观看阅兵的感受 作文观看了国庆大阅兵后的感想 请问我打算考托福,大概需要多长的复习准备时间?我现在大三,英语水平一般,四级复习了下547,六级裸考是448.想考托福,目标是100.需要多长时间复习呢? 一篇优秀的游记作文(写事的)500-600字 观阅兵式有感的作文重点写感受 八年级作文《我的老师》,给个开头结尾!直接等! 观2011春晚有感500--600字左右的议论文,重点写其中的1、2个节目,反映了什么社会现象,有什么亮点.语言深刻、朴实,富有表现力.好的有加分.(文章多一个/少一个字扣五分)o()^))o 唉、1L的 父母对我的爱 (作文) 如果我2011年1月30号考托福,什么时候能拿到成绩? 关于猫妈妈和小猫当初我家的院子里有一只母猫生了3只小猫.然后我发现他们是在他们一个月左右,然后我就看太可爱了所以抓了两只猫回来,我想让他们保持野性,又让他们知道我们,所以三天 观2011春节联欢晚会有感是要2011年的,还要是中央台的,答好了另外加分! 父母对我的爱作文 猫妈妈不见小猫怎么办? 观09年春晚有感求一份09年春晚的作文 书面表达:假设你是李华,现在是一名高一的学生.请你给你的初中外籍英语老师Miss Evanc写一封信.(英语主要内容如下:1.简单介绍一下自己现在的情况;2.感谢老师在英语学习上给予你的帮 从现在开始准备SAT来得及吗..准备六月考2,暑假考托福,十月考1英语基础还是不错的 已经高二下了 两年后要考托福,现在有必要报托福班熟悉吗?想先了解清楚有针对性的训练 我现在只有一个月多天准备时间了,六级低分飞过,考托福80分怎么难吗?来电复习建议呗各位大神…… 关于考托福和sat的准备~我现在准备开学上高一,想去美国读大学,最迟想在高二上学期就考完然后申请学校。我知道难度可能有点大~初中英语基础比较好。想得到最详细的准备计划,现在是9 准备考托福,报名是个老大难的问题,大家推荐个托福代报吧希望是信誉好的,不要是什么骗子公司 山西有哪些名人 而且写一篇作文 600字的 急. 先准备SAT,再考托福可以吗? 春节游记作文800字别太远福州境内,不是境内最好农村的比较好改,最后一天了,拜托拜托!这个是高中的作文,水平起码也要初中水平 鱼为什么不吃食? 高中生想考托福和SAT要做什么准备?我今年初中才毕业,马上就要去军训,然后开始高中生活,我想高中毕业后去美国读本科,目标是世界百强的大学..我的英语一般,虽然从分数上看还不错,但是总 一篇游记的文章,800字.一篇写游记的文章,散文,抒情,意境,最好是春天的. 冬天鱼怎么不吃食
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘