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

在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

免费游戏开发经验谈:第一印象很重要 《近匠》小旭音乐:游戏音乐金牌匠人的练级之路 日600亿消息,月4.65亿用户——WhatsApp的Erlang世界 一周热点:Cloudera新一轮融资总额已达9亿美元 【走近院士】李未:实现云服务的有效方法是群体软件工程 大神云集 大型创客聚会2014深圳Maker Faire盛大开幕 直击Maker Faire,将精彩“一网打尽”! 电池革命:超级充电器来袭,30秒为手机充满电 风雨13载,Windows XP今起正式退役 向Facebook看齐,Twitter收购Android屏幕待机应用开发商Cover 绝对的超现实!Jaunt打造360&#176;全景VR电影 Unite China 2014课程解析:行业解决方案专场免费开放 Manhattan,Twitter规模的实时、多租户分布式数据库 Ceph浅析(中):结构、工作原理及流程 孙元浩:基于Spark引擎的高速内存分析和挖掘工具应用 腾讯私有云背后的团队,品高要做企业云计算的产品经理 撼动企业应用架构的十大技术趋势 Airbnb的管理之道:产品设计的点评策略与技巧 Windows 8.1 Update 1的下载地址和八点须知 《近匠》棱镜:手游渠道SDK平台的技术历程 OpenSSL究竟为何物,为何它的影响力如此之大? Redis大冒险:如何跳出SQL这个坑 【走近院士】张尧学:基于透明计算的云操作系统 微软转型之路:从Build 2014开始 大势所趋 HTML5成Web开发者最关心的技术 从火种到核心,浅析Hadoop大数据用户的演变 搭建高可用的MongoDB集群(上):MongoDB的配置与副本集 软硬件协同创新,共建未来数据中心 优秀Unix管理员的七个习惯 2014Unity亚洲开发者大会倒计时 干货内容日程汇总 TIOBE 2014年4月编程语言排行榜:Perl跌至历史最低点 如何在图片框中按鼠标时知道当前鼠标在图片框中的坐标?谢谢! 【骂人】destroy(只想灌的爽)进来 散分~~~~前5名!谢~ 请教两个问题,专家请进! 请问在什么地方可以找的计算机方面的中英文对照翻译? Dll向主窗口发送自定义消息? 如何用MoveWindow()和SetWindowPos()来改变窗口大小(最好有个例子)! script参数怎样传输到applet中 怎样把jpg转换位BMP,在线急等 我要开放mssql的访问,在防火墙中是不是只要开放1433端口就可以了? 外面买的2000安装盘有的里面只有一个程序,叫什么ghost,好象运行它后就可以非常快的安装2000,请问这个ghost是用哪个软件做的? 系统初始化把所有数据库里面的内容删除,保留表的结构,这是怎么实现的? 如何将AnsiString转换成LPCWSTR? 我想请问一下,当panel显示时如果下面有<select >控件是,这个控件不被盖住,结果好象panel破了下一样,请问题怎么办!谢谢 如何把这个程序转换成java程序,我够菜的:( 高分请教如何实现本地网址过滤?就好像反黄软件,或公安的监控软件一样。 又有问题了 谁能贴一个关于TQUERY,TTABLE等控件的数据库应用的详细使用 我会jsp+servlet sql server完成小项目 找相关工作还咬什么? vs.net的问题,看看你遇到过没有? 答者有分!怎样用超链接调outlook发邮件? 怎样把不同机子上的vc++模块连到一块 关于自增自减运算符的问题-缘引老师的教案 在SCO上配置Informix遇到n多问题 急!寻解线性代数方程组的算法程序或者相关资料 假设在 MDI 程序中打开了3个文档,现在想将其中一个文档提到前面显示 php语法的一个小问题 MM,有个难题急需解决(关于 DateTimePicker控件的) 请看图,长得巨像梁朝伟的工地民工!! §§如何从Variant变量中取出有符号long型值? 关于vc++和visual prolog的接口问题 Exchange 2000 Lotus connector 怎样把<<石器时代>>游戏里的图片和动画弄出来??? 有关PHP使用相对路径访问ACCESS数据库的方法。 大版主,特别是阿信,进来看! 怎么把数字以16进制格式输出 一个奇怪的顺序问题 怎样知道自己被“黑”了? 求一个三角形的组合问题 如何删除CListCtrl的单条或多条选中项 设个标志位,只取0,1两个值,该定什么类型好? 请问如何在vbscript的函数中嵌入asp的response.redirect方法 买了本VB书,很多的案例却不能用,高手帮忙看看! 求书Professional Active Server Pages 3.0 英文版!!!!! 谁有mdeamon服务器设置的相关中文资料呀?本人急需。 请问wacom合肥哪里有卖? 如何获取系统语言? ¥¥谢谢王小石,问题全部解决!我就剩50分了,都给你,过你天有分了,接着给你!! GDI的问题 放分大思考:如果没有IT,我们现在都在做什么?欢迎大家讨论哦 请问存储过程写在那里?我找aspx页面怎么没有看到呢?提示一下就好了 在显微镜下观察临时装片时,发现有异物,移动装片时异物不会跟着移动,是说明异物在物镜或目镜上可试用什么 第五题,全部 黎明鸟 程光锐1.通过阅读全诗,说说最吸引你的是那个诗节,谈谈理由.2.品析下列诗句,体会诗句所蕴含的思想感情.(1)很久很久,你没有唱出歌声了.(2)突然从梦中醒来,惶惑而又急速,你就殷 用低倍镜观察菠菜叶的下表皮细胞时,发现视野中有一异物,移动装片异物不动,换上高倍镜后异物仍在,异物可能在:A.物镜上B.目镜上C.镜筒上D.材料中另:怎么判断异物是在目镜上还是物镜上? 本人高一 物理和化学比较好 数学也不错 不过我感觉不理解 完全是套方法 不会创新 我应该怎么改进?我比较擅长实际问题 请问我应该如何发展我是对数学不理解 物理化学 不用背公式 题就 海洋地壳的平均厚度是多少? 若在低倍镜视野下发现有一异物,当移动装片时,异物不动,转换高倍镜后,异物仍可观察到,这个异物在目镜上还是反光镜上 如何考到满分? 用 "双线桥" 表示下列氧化还原反应 (1)2Cl2+2NaBr===2NaCl+Br2(2)NaBRO3+5NaBr+3H2SO4=3NaSO4+3Br2+3H2O (3)3cu+8HNO3=3CU(NO3)3+2NO+4H2O (4)4Mg+10HNO3=4Mg(NO3)2+NH4NO3+3H2O 一个学习小组的四名同学观察并测量了一个长方体 赵星说:“如果高再增加2dm,它恰好是一个正方体.” 吴尘说:“长方体的前后左右四个面的面积之和是60平方分米” 李越说:“它的底面周 初中体育考试长跑满分多少 怎么用双线桥表示CL2+2NABr=2NACL+Br2的氧化还原反应的得失电子情况啊? 四人学习小组对一个长方体进行观察和测量,交流如下:小红说如果在增加3分米,它恰好是一个正方体.小军说长方体的前后左右四个面的面积之和是160平方分米.小林说它的底面周长是32分米. 豫卫食字(2006)第N010号 是药品还是什么鸿翔蜂胶茯苓山药片 备案文号是:豫卫食字(2006)第N010号执行标准:企标Q/ZZHX001-2006这是药品还是什么 吃完对身体会不会有什么危害 什么是光子,什么是光波?回答不要太复杂.若答案很长,请删去一些. 字字皆辛苦的意思求求了 帮个忙 这个药是真的吗 豫卫食字(2006)第H023号 两年没上学了,英语忘光光的,怎样利用电脑学英语才能够达到高效,优质的效果,期待获得高人的指点 3003铝锰合金表面无任何处理的情况下,在室外应用,能够使用多少年 豫卫食字(2006)第0375号是什么? 一个具有E=13.6eV动能的、处于基态的氢原子与一个静止的、同样处于基态的氢原子发生正碰,试确定碰撞的性 铝合金(3003、4045/3003/4045、4343/3003/4343)怎么清洗机加工除油清洗,有超声波清洗机,有什么简易的清洗方式或者说是用什么清洗剂合适? 标准文号豫卫食字(2006)第0202号 是什么药品? 氢原子的基态能-13.6eV是势能和动能的总和吗 哪里有卖吸痰器的? =-=物理犀利且理解能力强的进.质量的单位为什么是kg(或g或t)呢?kg(或g或t)不是用来表示重的么?质量只是表示多少,为什么单位用kg(或g或t)? 1,已知氢原子基态能量为-13.6eV,下列说法中正确的有:A.用波长为600nm的光照射时,可使稳定的氢原子电离B.用光子能量为10.2eV的光照射时,可能使处于基态的氢原子电离C.氢原子可能向外辐射出11eV 验电计接地问题,为什么接地以后再移动极板距离,两个极板上的电荷量不发生改变?类似的接地什么情况下极板的电荷量会发生改变? 物理方面懂得多的高后进来看看,1电阻是指什么对电流的阻碍,或者说对电流的抵消,转化2电阻怎么用电压来除以,而为什么电阻乘电流是电压3为什么电压与电流一会乘一会儿除,电功率就是电 导体内电流增大,是说明导体内部的自由电子流动速度加快了,还是自由电子的数目(电荷量)增多了? 3003合金铝和6063合金铝有什么区别 物体震动发声的现象真是太多了,伱能向同学说出一些比较新奇的发声现象吗?例如:蝉是怎样发声的?格式:1.观察2.3.猜想4.设计,实验5.终结讨论得出结论 例如:题目(声音的传播)1.声音的产生 金属的氦外电子在电压升高的影响下成为自由电子的数量会增加吗. 如图,在直角梯形ABCD中,ad‖bc 角bad等于90°对角线bd垂直dc,ad等于4 bc等于9 则bd等于 急求一皮带轮设计,有图最好,在下先把题目发下:试设计一普通V带传动,主动轮转速n1=960r/min,从动轮转速n2=320r/min,带型为B型,电动机功率P=4KW,两班制工作,载荷平稳.请知道的亲~把计算过程和答 AgNO3溶液加稀HNO3加BaCl2溶液有什么现象 铝合金5182和5052的差别有什么差别 一道刚体转动的题(有关皮带轮)6.如图所示,两均质轮的半径分别为R1、R2,质量分别为m1、m2,两轮用皮带(质量不计)连接,如在主动轮A上作用一外力矩M,在被动轮B上则有摩擦力矩Mr,并设皮带 She has two________(bowl)of rice for breakfast 有没人能笑着面对死亡的? 中国色狼真多!是啊.怎么防狼啊? 自由电子的定向移动与电压有什么关系? “不曾哭泣的年轻人是野人,不曾欢笑的老人是愚人”什么意思? 为什么张策断定古鼎是假的 正棱锥中的斜高是什么? 如果是你们,假设你们是老人,你们会朝一个年轻人弯下身子笑着朝他点点头吗? 23.牛顿第二定律的表达式可以写成m=F/a,对某个物体来说,它的质量m   A . 跟合外力F成正比 B. 跟合外力F与加速度a都无关   C. 跟它的加速度a成反比 D. 跟合外力F成反比, 在电压作用下产生自由电子?电压是产生电流的原因吗?电流不是自由电荷(自由电荷是正电荷,自由电子是负电荷?)的定向移动形成的吗?那电压作用下产生自由电子是怎么回事 7.化学中常用类比的方法可预测许多物质的性质.如根据H2+Cl2=2HCl推测:H2+Br2=2HBr.但类7.化学中常用类比的方法可预测许多物质的性质.如根据H2+Cl2=2HCl推测:H2+Br2=2HBr.但类比是相对的,如根据2 中国夏朝时欧洲处在甚么时代? 为什么只有正棱锥有斜高 请问H2+cl2==2Hcl+Q1 H2+Br2==2HBr+Q2 其中Q为正值 为什么Q1大于Q2可是cl2的非金属性强于Br哒?从这的角度上来说,应该cl2更易反应吧 小鸟为什么早晨要叫? 问下,充电过程中,是不是自由电子在电压作用下发生移动? 在电脑的数学符号 ^ 这是什么意思啊?例如这个方程x^2-2x+4y-4=0 求解!本人在线等,速度! 清晨,被鸟儿叫醒陈嘉瑞阅读答案 正四棱锥的斜高是什么 脂肪肝是如何形成的呢 我是高二物化班的、我化学物理有点问题、我觉得物理读题理解很困难、不知道用什么方法.而且化学有机推断题很难有思路. 给我要一点清晨如同鸟叫的音乐有鸟叫的 好像在清晨树林一样能听到鸟叫的地方太少拉我希望在早晨安静一会儿 过的舒服点啊 美国为击毙塔利班头目辩护 称与巴基斯欧盟呼吁各成员国民众应减少使用轻薄塑英一小狗勇救弃婴 警方表彰以其名为婴香港一艘货柜轮与内河船相撞 12人坠美媒:大黄鸭在北京受欢迎 为中国经济日将设“国家战略特区”提升经济 首相舆论不支持 安倍政权解禁集体自卫权再舆论不支持 安倍政权解禁集体自卫权再花圃变向日葵园 新加坡华人被称“向日特写:伦敦举办“感受中国”教育展美国国务卿克里访波兰 有望就监听事件苹果联合创始人:希望苹果与谷歌成为合穆尔西受审质疑审判合法性 埃及民众意环球佳丽秀美衣 美国小姐化身“变形金法醉汉从马戏团“绑架”羊驼逼其合影留消息称利比亚首都发生激烈交火 枪声持英内政部拒绝两中国教师入境签证被批“古巴政府表示欢迎中国企业到其首个经济在马里遇害记者遗体运返法国 政府表示韩国仁川海警截获三艘“非法捕捞”中国法媒曝萨科齐下台后电子档案遭非法侦察能上也能下,干部队伍活起来眼科医生最想给大家的30条忠告浙江:无证面包房收190万罚单 老板扫一扫“下沙去哪吃”五大超值福利拿到男子花4000元买蚕丝被 事后要求赔谁是2016“浙江制造”的隐形冠军上公主邮轮,体验中日韩三种春节模式178理财俱乐部喊你来集结这个男子太奇葩碰瓷被识破,还追着车主企图借此制约中国发展但真正受伤的将是“次归”和“胭脂醉”坚守初心的民宿最老小区换上“智慧心”长三角旅游一体化达成“杭州方案”任你山呼海啸,我自岿然不动这部澳大利亚纪录片打破沉默揭穿了“中义诊走进湾南社区上百居民接受筛查叙利亚阿勒颇反对派控制区遭空袭大家请注意交警的集中整治行动开始了宁海试行银行网点办理营业执照不管汽油柴油,每升都省0.68元全面落实中央和省市委部署要求深入学习
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘