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

播放声音文件 -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 毫 秒 的 部 分。


EMC收购闪存初创公司DSSD,走出联合储存战略第一步 创业失败的七个原因及解决之道 集结号:最受开发者欢迎的跨平台游戏引擎 Cocos2d-x v3.0正式版本发布!优化C++、Lua、JavaScript接口 定价99元首发1万台 360安全路由器启动预约 AMD新产品线曝光 首次实现X86与ARM针脚融合 IT界最难以替代的9个角色 《近匠》英特尔® XDK:从开发、测试到部署,一站式HTML5开发工具 手游云测工具TestBird:测试走入垂直细分领域 阿里巴巴赴美IPO的种种及马云内部邮件全文 盘点EMC World 2014三大看点 2014年Q1:智能手机总销量下滑,WP同比反增119% 着眼无人驾驶技术 英特尔投资日本ZMP公司 移动云服务UCloud快速扩张 成立北京分公司 精准推送 个推推出2.0产品“Smart Push” 从张小龙的七大价值观说开去 2014高德LBS应用大赛正式启动 助力打造生态圈 专访永洪科技CEO何春涛:管理者的炼成及国内大数据公司的挑战 R语言如何发展?商业支持或许可行 专访InMobi CEO Naveen Tewari:Banner广告已经OUT 效力苹果18年的资深高管Katie Cotton将退休 主打“全、新、独、准”,华为推出游戏中心平台 阿里云计算出海挑战亚马逊 首站香港及东南亚 TIOBE 2014年5月编程语言排行榜:Adobe ActionScript挤进Top20 秒杀iPad Mini?微软或将下月发布Surface Mini 大道手游:详解应用内购买的定价趋势与技巧 与英特尔软硬合作,Cloudera将在中国建立业务机构 准备迎接第一个量子计算软件公司吧! 搜狗搜索发布新LOGO和移动App 正全面入驻腾讯各条产品线 做好扁平化设计-视觉篇 关于敏捷研发的跨界反思 除了面板上的控件之外,其他一些VC自带的控件在哪里? 谁能把本期的变成擂台题目概要贴一下? 小的是菜鸟,想问一个查询问题 在平面上如何实现三维坐标的模拟定位?(在线急等) 在VB中怎样压缩磁盘中的文件或文件夹 如何在平面上实现三维坐标的模拟?(在线急等) 请问各位高手《Delphi 6程序设计从入门到精通》里的例子代码谁有? 在平面坐标里如何实现三维坐标的模拟定位(在线急等) 怎样实现这个简单的功能? “将事件写入日志”选项不能改动了?奇怪 如何在平面上实现三维坐标的模拟?(在线急等) 如何比较两个字符串 NCNE--国家网络技术水平考试介绍 在问个简单的问题:Delphi中引号的问题 怎样知道windows的应用程序的路经 哪位高手给俺讲讲with xx as xx do 的用法,谢谢! 很菜的问题 请前辈进,请高手进!!! 那位仁兄有JAVA开发的五子棋游戏,我用一套软件交换 怎样用com技术C/S三层做中间件和使用,谈一点原理和实例。 高手请进 100分!!!!!!!!!!! NCNE 国家网络技术水平考试 介绍 软键盘的问题?UP有分 关于装配件的问题 想购买一套人事管理系统的源代码!!!!!!!!!!!!!!!!!!!!!!! 对话框中标题栏上面的颜色如何改? 对服务器来说,内存更重要还是运算更重要? 关于jdk与windows xp 我举报:信息产业部的领导根本没有学习好“三个代表” 聘驱动开发人员!!! 本人在运行REALPLAY8.0的时候出现了这样的错误窗口. 普通常量与符号常量有何区别,怎样使用? 怯怯地问: 问题一:我的网页是用表格分的区域,把表格线设为0 ,但加了背景后 ,背景上总是有一小条白线 ,那是表格的边框线 , 问怎么办? 这个不是太难,但很不简单! 报错---[Linker Fatal Error]Fatal:Expected a file name:,什么原因?大虾指教,在线等待 远程调用时传输数据的问题! 2000 不能正常关机 初当网管,请教大家都用什么工具? IIs重新启动一个web服务出现死机,怎么回事? 问题二 :我做了个POP窗口 ,我想在POP窗口打开时是固定大小的 ,不能调整, 该怎么弄? 希望有一个网络安全的开发专版 关于中国万网的域名解析问题。急救! IIs重新启动一个web服务出现死机,怎么回事? 系统提示有错啊! 请教各位高手,本人在运行REALPLAY8.0时出现以下错误提示! 用javascript如何判断textbox中的串是否是汉字及其个数? 用DELPHI的都是一些比较菜的程序员的工具!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 数据更新的问题 QueryString 多参数如何分隔?? 《C++ Primer》和《C++ Language Programming》有类似吗?是否都买来看? 张鸿铭任杭州市委副书记 提名为市长候买房配套利用率不高 业主争论12万改东站乘车设施不完善 网络购票需提前取杭州气象台发布高温报告 未来最高温可温州整顿行政审批搭车服务 对强制收费高铁开放五种买票方式 换乘时间要预留宁波首趟高铁列车发车17分钟时速达3杭州东站换乘有攻略 每层都设购票点宁波今明最高气温达38℃ 夏季小儿易杭州朝晖六区房屋变形 倾斜远超危房标杭州昨首发高温橙色预警 今明预计最高宁波到上海高铁昨天中午在杭州东站停靠金华市区公办中小学报名首次执行人户一宁波高温不断攀升 马路隆起包孩子都病暑期户外隐患多 儿童安全莫停课5081万千瓦 浙江用电新高两个三峡杭州东站进入暑运状态 前往福建动车票市中医院一天收14个蛇伤病人 夏天出一个小区有两个物业 能耗纠纷业主吃亏义乌黎明小学招收181名借读生 报名金华天气突变热 25岁小伙上班中风实现营收101亿元我省招培55名政法干警北京:旅游车导游专座新华社济南8月26日电(王瑶 莫小亮参与三江湿地公园规划赛前声音沪指险跌破2200点拒用黄赌毒艺人北京四大鬼宅《诡八楼》再上银幕明明是腐败,别假装“人情往来”中秋何处去赏月 ?社保费用不落实不批征地“经济型月饼”走俏《卫子夫》造型获赞到印尼乌布感受海岛田园创纪录签约迪马利亚“走读干部”走失民心安倍政府将进行首次政策精准发力 决战经济下半场早餐真那么重要么?我省举办智慧旅游 专题培训
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘