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

在VB中用API实现多媒体

HTML文档下载 WORD文档下载 PDF文档下载
在VB中用API实现多媒体


秦嘉

  在VB中用API实现多媒体主要是调用Windows的mmsystem.dll库。以下为调用API的声明(这些代码放在程序的声明部分中):

1. '播放CD和AVI所需要的声明。
  Declare Function mciSendString Lib "MMSYSTEM"(ByVal lpstrCommand _
    as String,ByVal lpstrReturnStr as Any,ByVal wRetumLen as Integer, _
    ByVal hCallBack as Integer) as Long

  '播放WAV所需要的声明
  Declare Function sndPlaySound Lib "MMSYSTEM.DLL"(ByVal lpszSoundName _
    as String,ByVal wF1ags as Integer) as Integer

  '检测声卡所需要的声明
  Declare Function auxGetNaumDevs Lib "MMSYSTEM"()as Integer

  '所用到的全局变量声明
  Global Const SND_SYNC=&H0000   '播放WAV用到的全局变量
  Global Const SND_ASYNC=&H0001 '播放WAV用到的全局变量
  Global Const SND_NODEFAULT=&H0002 '播放WAV用到的全局变量
  Global Const SND_LOOP=&H0008 '播放WAV用到的全局变量
  Global Const SND_NOSTOP=&H0010 '播放WAV用到的全局变量

  '接下来是调用这些声明
  Function auxTest()as Boolean
    Dim i As Integer
    i=auxGetNumDevs()
    If i>0 Then
      AuxTest=True '如果有声卡则返回真
      Exit Function
    Else
      AuxTest=False '如果未检测到声卡则返回假
      Exit Function
    End If
  End Function

2.播放CD的源代码
  Sub PlayCD(b As Integer)
  'b为所播的音轨号
    Dim a As Long
    a=mciSendString("open cdaudio alias cd wait",0&,0,0)`初始化驱动
    a=mciSendString("set cd time format tmsf",0&,0,0)
    a=mciSendString("play cd from"& Str(b),0&,00) '播放音轨
  End Sub

3.播放AVI的源代码
  Sub playAVI(AVIFile As String)
    Dim RVal as Long
    AVIFile="play"+AVIFile+"fullscreen" '全屏幕播放AVI文件
    RVal=mciSendString(AVIFile,0&,0,0&)
  End Sub

4.播放WAV的源代码
  Sub playWAV(WAVFile As String)
    Dim Flag as Integer
    Dim a as Integer
    wFlag=SND_ASYNC or SND_NODEFAULT
    a=sndPlaySound(WAVFile,Flag)
  End Sub

中移动全力推进NFC 5月起乘公交可刷手机 支持Android与iOS,Qt 5.1 Alpha全新亮相 Google Play:劣质Android应用已无藏身之地! 360推出信用网站认证开放平台 联合百家协会围剿钓鱼网站 经验分享:百度测试架构师眼中的百度QA(一) 在线旅行服务行业开放API带来的新机遇 专访:悬疑恐怖游戏Year Walk美术及音效设计师 解密:微软都柏林数据中心的神秘“免费冷却”装置 云计算如何影响数字化营销? 榜单:十位帮我们打理数据的存储大佬 OpenStack Grizzly版发布 Comcast、CERN成为新会员 谷歌携Blink来势汹汹 WebKit将成明日黄花? 星巴克与苹果合作 顾客可免费下载付费App 微信回应信令争议 将启动2.5G网络优化计划 凤凰网CTO吴华鹏离职 先后供职长达10年 外媒:开发者每周编码时间仅19.1小时 AppGratis CEO现身说法:应用被苹果儆杀始末 一个Web设计师眼里的云计算 戴尔高管:服务器业务领先惠普五年时间 Hoodie:基于JS与CouchDB的超快速Web开发框架 设计优秀API的五大规则 盘点英特尔IDF2013第一天:技术产品新趋势 英雄组队去打怪!Nimble Quest开发团队访谈 云通讯平台打造本土Twilio 被逼无奈?传微软或明年秋发布iOS和Android版Office 欧洲各国政府将向大众开放公共数据 访联想云存储罗予晋:优化MooseFS,共建生态系统 磊友创始人赵霏:关于HTML5与Flash争执之我见 国际混乱C语言代码大赛优胜作品详解之“A clock in one line” 揭秘程序员大脑编程的七大“误区” 从Java到ObjC语言的桥梁:谷歌J2ObjC 0.7版本亮相 如何返咽一個二維數組? htm里面调用一个jsp页。用javaScript 怎么实现。 怎样添加*.dll文件,如cj60lib.dll,系统自带的吗? 关于记录修改的SQL语句!!! VC的DLL文件怎样在BC中使用?我试过不行 JAVA问题请教 打包运行错误can't start main setup program! 如何把表单上单选框组的内容传给报表啊 iptable怎样限制用户上网? 靠,我的表不能排序啊.....郁闷.... iptable怎样限制用户上网? 求教:输入1个集合,输出它的子集 请问,linux下能用access吗? 问一个“一个页面只能有一个form的问题“ 有关主板BIOS ROM的奇怪问题 请教各位高手,在VB中添加数字排列组合的代码如何编写?多谢!(在线等) # # # # # 200分诚心求教(由于限制,只能先放100),哪位能解决小妹这个问题啊 # # # # # 请问谁知道oracle中计算查询时间的命令? 有关操作系统的几个问题?感谢大家的指点? 大学四年心得-转帖 ORACLE 在本机WIN2000 上装了服务器端后,还需要装客户端才能进行数据库的一般操作吗? 关于PLC向计算机发送数据的问题。 构造函数? # # # # # 200分诚心求教(由于限制,只能先放100),哪位能解决小妹这个问题啊 # # # # # 据大力新闻中心消息:SQLServer版是CSDN气氛最好的版块。 在弹出窗口时出现问题 请多多指教:帮我推荐一本Asp.net+C#的书,入门和稍微难点的。谢谢了 想学java的库类 请各位大大推荐一本书 请问在VC6中如何调用chm帮助文件 简单的控件问题 ADO调用存储过程(ORACLE),用CommandText的问题 字体固定后,所有字符(包括汉字)的高度都相同吗? 请问applet和application之间有什么不同呢? 字体固定后,所有字符(包括汉字)的高度都相同吗 为什么看帖不回帖? 关于用c#操纵word的问题 为什么在WIN下可以,在LINUX下不行呀? 大数除法 那位高手解答一下 键盘被锁定!!!急 CSDN现在是怎么了!!!登录不了,想办法进来了背景又是一片白,左边菜单列表又不见了 找到新东家,祝各位兄弟中秋节快乐! 有喜欢骑自行车的吗,进来聊聊,你的车多少钱啊 怎么用javamail发送html页面的邮件? 请问各位一个网页路径问题,谢谢了。急急!分不够再加,本人在线等候!!! 简单问题 为什么我用FLASH做出来的GIF格式的图很大?一些最简单的都有3MB左右!谢谢高手来指教!! 很奇怪的问题,redhat9+adsl+iptable老是丢包,而且达到30%,在2k下没有这样的问题 2太电脑连网,为什么双击网络邻居的时候跳出对话框说无法浏览网络? 菜鸟请大家看看这个程序错误出在那? 请问一个进度条的问题?有谁用过x-scan软件 鱼有鳞吗钳鱼为何没有 在庙里见一个佛前面摆着七碗水七盏灯是什么意思 哪些是有鳞的鱼 为什么鱼有鳞鱼长鳞有什么用 什么样的鱼有鳞? 两小儿辨日给了你什么启发 高维生的《二胡》 1、为什么说欣赏二胡的时间最好在傍晚?2、第四段描写了江南特色景物,表现了琴声的什 两小儿辨日启示,理解,中心思想两小儿辨日启示,理解,中心思想! 父亲的二胡 佳乔写 父亲的二胡 佳 乔 ①父亲没念过多少书,还写得一手正楷字,而最让我佩服的是那一把二胡,有几十年的功力了.②六岁那年,我亲眼目睹了父亲做二胡的经过.父亲事先托人从 《两小儿辨日》给你啥启示? 英文名Micheal,麦克,他在英语中的意思是什么?比如 JACK是壮小火,DAVID是花花公子 特大生产销售假药告破 上万支假狂犬疫奥地利媒体称奥也遭到美国情报机构监听中国和伊朗签署互设文化中心谅解备忘录马来西亚外长:监听破坏盟友关系马来西亚外长:监听破坏盟友关系德国与巴西共同向联合国提交有关反监控白岩松评伤医事件频发:欠账改革让医生五角大楼否认美日制定“钓鱼岛共同防卫埃及宣布14日起解除紧急状态和宵禁印度首都新德里一成衣厂发生大火 至少印度发生火车撞人事故至少8人死池娜雅3.22从中国成为炼油国看油价遇到一个爱车如命的老公,我该怎么整?中国再不用看人脸色:石油后又一原料跌把宝马X6改到700匹跟玩似,可见他作品展示 | 第58期:魏玉方 江小海评图 | 色彩运用得不恰当?行摄头条 | 拍出绝美倒影的6个技作品展示 | 第59期:岑延惠 澳大小海评图 | 拍摄时如何处理前景?行摄头条 | 渐渐被遗忘的中国古建海军、武警部队首长机关已按新体制编制漂在他乡之奋斗逆冥圆月三缺傲剑凌仙雷撼星皇武止涯至尊妖莲末班车上的王才才兄弟之今生缘逆道兄弟穿越之大宋豪侠龙王潭旅游上海松江影视城旅游华严寺旅游希夏邦马峰旅游佩枯措旅游珠峰观景台旅游放鸡岛旅游浪漫海岸度假区旅游白鹭村旅游鸿德堂旅游上海胡适故居旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘