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

在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

HashSet的equals和hashCode重写问题 PendingIntent实现原理和代码 IntentService实现原理及内部代码 AsyncTask实现原理和内部代码 Neither user nor current process错误 ListView的右边滚动滑块启用方法 Live Wallpaper动态壁纸开发 控制软键盘显示和隐藏 设置Activity大小不再全屏原理 Android面试题,看看你基础如何? Android Canvas绘图抗锯齿解决方法 Android xliff和字符串资源 android.hardware.USB类介绍 Android开发经验谈之应用间数据共享 android_asset这个URL详细使用方法 Android 2.3系统自带高清UI图标下载 设置ScrollView滚动条的颜色 WakeLock使用方法示例代码 Concurrent并发库常见问题总结 Android数据库SQLite性能优化技巧 Android开发之Java设计模式基础篇 Android开发之Java设计模式入门篇 Android开发之Java设计模式 Android开发之Java并发包集合类性能分析 Android开发之Java集合类性能分析 Android开发之Java虚拟机原理和内存分配 Android开发之Java基础系列教程目录 Android Theme主题样式开发注意点 Android 3.0开发用的平板推荐 android.resource://这个Uri你知道吗 ADT插件的10.0.1必须要Eclipse 3.5才能升级 刚刚完成的改版公司主页。大家去支持一下小弟呀! ? 有谁知道上海的做J2EE薪水有多少(平均水平),谢谢大家! 几个算法问题,参与者都有分! .NET制作的安装程序安装好后如果删除了打包的一个文件,再次通过快截方式启动时会重新安装,怎么不让他安装? 哪位能给提供一套ISO文档的实例? 如果procedure中执行的是一条SQL语句,如何得到返回的数据集? 可不可以在单线乘里开2个SOCKET? 帮我看看这个c语言的程序! 怎样处理窗口标题? 高分求助 !!!怎样利用INTERNET实现异地多台机器互连? 很简单,如何得到当前的时间和日期?(在线等待) 请问哪里有用applet做的,能绘制数学曲线的动态演示系统?各位,请不吝赐教 今天大清早被人诅咒! Delete 多个表时一条语句怎样写?? 请教:如何获取文本框中SQL语句。50分 日期型的格式应该怎样写?? windows xp internet 浏览器的问题 大家帮我看看这段代码:它是如何得到name和phone的值,并写到文件中取得 100分求李维的delphi5.x分布式系统开发的源代码,电子书我已经有 奇怪。为何win2000的搜索选项中的日期控件是Delphi中的样式?欢迎来讨论,给分!!! 请教一个数据库查询的问题! 哥、姐帮帮小第,一生成并打印表格问题(有图片及字体适应),急急,十万火急。 怎样在ASP.NET的页面中,把DataGrid的表头改名??急急急!!! 在线求教:怎样在自己定义的函数里封装自己的MouseMove类??? (高手求救………100分)怎么样用socket(http)实现上载!请提供思路或source code! 怎样调用Dll中导出的变量??? 那位大哥有关于颜色渐变的算法的代码,给小弟一份 小弟万分感谢 颜色渐变的算法 颜色渐变的算法 问一个有关缓存的问题 更换基类的问题? 感谢上学期大家的帮助——散分 一个奇怪的问题,100在线送给你!!! 用rave生成的pdf格式报表,中文字符怎么是乱码? 请进来: windows 2000 能不能用API的方式将Imagelist中的图画在命令按钮(Commandbutton)上? 请各位指点怎么从SQL65升级到7,还有数据备份?请大侠指点迷津? 请问如何解决.exe文件在其他机器上的运行问题 允许DBGrid对记录进行编辑,在线等待,急急急~ 如何在vb.net定义失去焦点事件? 如何读出文章中的部分内容(在线等待) 怎么样在VB中实现象PING -A命令 有没有一个更好的论坛????????????????????有没有人来踢馆?????????????????????????????? 如何访问隐藏共享的硬盘 请大家评评,先谢了 一个有趣的问题: 慢的问题 我在windows下的FormInput里有多个sqlDataAdapter 数据几百条 DataSET.fill慢及了 如何返回当前程序目录的上一级目录? EA,你给我进来,你又欺负我MM啦? 请问PB的DATA window如何实现分页? 关于pb中我在sqlserver中定义的字段类型是varchar(1000),结果在做数据窗口时它总是自动截取为char(255),为什么?如何解决这个问题(除了 IIS出错了,凡是需要数据库的asp程序在执行时出错: 测电路中的波形是电源所产生的电磁波吗?波形对应电路中的哪些参数在变化? 十月革命前的俄罗斯法的特点 社会主义国家土地制度都是公有制吗?世界上采取土地公有制的国家都是有哪些? 云脚的意思 酸雨作为全球性环境问题之一,请问主要由哪一种气体的排放引起 新中国成立到人民公社化之间的这段时期,土地是私有制还是公有制1949—1962这段时期实行的农村合作社,是土地公有还是私有? 为什么H2SO4(aq)与KOH(aq)反应生成1mol水(l)晗大于57.3mol\L汗.......答案是H2SO4二级电离吸热我的错打错了,是晗小于57.3mol\L我想问强酸电离还吸热吗?那HCl与NaOH反应不也电离吗它的反应就 有关滑轮组的问题我们老师说,这个滑轮组的动滑轮受力方向是下面这样的,为什么?上面的不对吗? 谁有初中语文教学用书? 什么是温室气体 滑轮组的题怎么做? 我国现在的土地制度是公有制还是私有制分界线是什么? share 这边怎么译share one's character and personality怎么翻译噢? 为知道金属丝电阻的大小,小明用铭牌为20欧1A滑动变阻器和金属丝,电流表串联接入电路,请写出测电阻的主要并金属丝电阻的表达式. "井底之蛙"这个成语大家都很熟悉吧?你能解释为什么"坐井观天,所见甚小"吗?你能根据光的直线传播原理画图来说明吗?第2问可不答 “春风一度”是什么意思啊? 如图所示(两根绳子系着动滑轮的),工人用滑轮组在5秒内把重80N的物体匀速提高2m,克服绳重及绳与滑轮间摩擦过程中做了10J的额外功,每个滑轮重15N,则A.拉力F的大小为47.5N B.滑轮组的机械效 关于光线的物理题在水平版上竖直插上一把直尺,选一个有太阳光的地方,每过半个小时(中午12点左右时,每过15分钟),在直尺影子的顶端做一个记号并量出影长,找出一天中影长最短的时刻怎 什么叫做 春风一度 滑轮组的问题定滑轮动滑轮都懂 但是看不懂滑轮组比如这个怎么看拉力是物体重的几分之几求教判断方法以此为例 物理题,光线光线垂直射到镜面上时,入射角为( ),反射角为( ),入射角和反射角的夹角是( ),反射光线的方向改变了多少? 只有金属离子才带二个单位正电荷,为什么? 春风一度,胜却无数. 滑轮组第四题 电液伺服阀与对称缸的流量是不是相同 羌笛何须问杨柳,春风一度玉门关,这首是的含义 酸雨作为全球性环境问题之一,主要由哪一种气体的排放引起? 极目,毛毡,骠悍,驰骋,无垠,比喻什么? 英语翻译When we share laughter,There's twice the fun;When we share the success,We surpass what we've doneWhen we share problems,there's half the pain;When we share tears,A rainbow follows rain.When we share dreams,They become more real;When we sh 1.能引起温室效应的气体是 2.会引起酸雨的气体是氧气 氮气 二氧化碳 二氧化硫四个选项都要填入 妈妈拿起水果刀,挑选了一个又大又红的苹果熟练地削着,削好后,递给我,我的心里十分温暖.“削”字平淡无味,可以把“削”换成其他动词吗?可以找个好一点的吗? 一行军队伍长60m,匀速前进,一位通信员从排尾赶到排头,立即又赶回排尾,这时队伍前进了144m,设通信员走的速度大小不变,求通信员走过的路程. 世界反法西斯战争是胜利的原因概括性,精辟 妈妈给我削苹果,我内心的感受 使用托盘天平之前,要对它调节底板谁平,再需调节( )若发现指针偏指向标尺左侧,为了正确使用,应将横梁右端的螺母向( )移动,衡量左端的 螺母向( )移动 世界反法西斯战争取得胜利的根本原因是? 妈妈拿出水果刀,挑选了一个又大又红的苹果熟练地削着,削好后,递给我,我的心里十分感动.全面.45字以上 俄国十月革命成功之后建立的第一个社会主义国家是应该是苏俄1922年苏联成立,苏俄可以说改称苏联 世界反法西斯战争胜利是哪一年? 下面是王宁同学的作文片段,老师提出了修改意见,请你帮他改一改.【原文】 妈妈拿起水果刀,挑选了下面是王宁同学的作文片段,老师提出了修改意见,请你帮他改一改.【原文】妈妈拿起水果 英语翻译Sustained annual average grwoth of more than 3 per cent might sound quite good and for most advanced industrial economies already operating at full(ish) employment it would be.主要是and后面的这句,不太明白 世界反法西斯战争胜利的决定性因素 电液伺服阀使用问题QDY6电液伺服阀是如何使用的?工作原理是根据输入电流的正反相来控制流量正反向,以此来控制机床前后运动,但是我们在使用时是加电压进去,然后通过一个驱动系统来转 美好的反义词是什么呀 Fe和硝酸铁 电磁波防盗系统和射频防盗系统有什么区别?3Q电磁波防盗系统和射频防盗系统有什么区别?各自的优缺点是什么? 17.(3分)滑轮组即能省力又能改变力的方向,建筑工人用自制的滑轮组把600N的重物缓慢提升2m,如右图所示,绳自由端的拉力F=250N.拉力做的功是____J,该滑轮组的机械效率等于____,若不计一切摩擦和 滑轮组的试题 B离子带一个单位正电荷比氧原子多2个电子 问,B是什么? 日光灯有时能亮有时不能亮.打开开关的时候会闪一下.刚开开关的时候灯有时会闪一下,然后过几分钟可能就亮了,但是有时候根本就没反应. 人静止在地球表面上受不受摩擦力 问下带2个单位正电荷的镁离子和+2价的镁元素怎么分辨啊,为什么一个上面是+2,另外是2+我到底该怎么写啊!到底是不是+号在前面啊! 动滑轮上绕了三段绳子 有4个钩码 每个0.5N 将钩码匀速上升20CM 弹簧测力机移动60CM弹簧测力几 试数为1N 求有用功和总共 机械效率 滑轮组的题题不计滑轮自重,要想站在地面上用250N的力提升起600N的重物,至少需要用几个滑轮?怎样绕绳?二楼的,最后的力是向上的,题上说是站在地面力应该向下拉??是吧?那该怎么办? 莫斯科保卫战怎么样 滑轮组试题F与G的关系如何? 爬树时,人受到的摩擦力,与地球重力相反方向的摩擦力是说成地球的摩擦力还是与树产生的摩擦力? 求一无线电能传输系统中的直流射频电源设计的电路图无线电能传输是将电源的电能转变为可无线传播的能量,在接收端又将此能量转变回电能,从而到达对用电器的无线供电.本课题是利用电 关于十月革命前的俄国1.十月革命前夕的俄国是各种矛盾的集合体,对此理解准确的一组是( ) ①垄断资产阶级和无产阶级 ②沙皇专制与人民大众 ③大俄罗斯民族与少数民族 ④俄帝国主义 第一次世界大战卷入国? “京城土豪聚会超海天盛筵美女全裸上阵江苏沿江8市今起用“苏五” 耗油量几吉林前郭地震灾区已发现2户房屋倒塌、江苏全省出现液态奶供不应求 物价上涨调查显示逾半受访香港公司明年平均加薪中国最后一个未通公路的县墨脱今日举行通讯:通往“高原孤岛”的“生命线”高薪由五毛一块凑起 过万很少聚焦激发社会投资活力:用改革撬动“活快递哥倒在送货路上香港官员:监护人代双非儿童买房应被豁复旦大学研究:PM0.5“杀伤力”盖传美国在台北设监听站 台方回应:台美宁波实现大灾之后无大疫 传染病例同比南京:空气质量不达预期将人工增雨消霾南京:承诺绿地不兑现 开发商将受处罚宁波市将新启用一批电子警察规范行车秩《温家宝谈教育》首发 卸任总理后首次孟加拉国列车脱轨致两人死亡诺基亚亏损大幅收窄 手机总销量同比下俄罗斯达吉斯坦共和国首府发生爆炸致1图集 | 印尼空军“大力神”撞山坠毁武汉说唱团打造方言贺岁喜剧《财神来敲上海公交实时查询虽好问题也不少 系我国霾区达75万平方公里 明起范围扩解放军军机与台湾山脉合影 台“国防部首届山东金博会:如何投资理财可让财富京哈哈牡等高速因冰雪路面禁止七座以上武林八大门派齐聚南京 以武会友各显神“兼爱”与“称数”:荀子如何批判墨子所罗门群岛海域发生5.9级地震 震源京东仓库起火无人员伤亡 或影响部分订宁夏加强重点区域、重点企业污染物排放吉林将提高农村低保与国家扶贫标准“两官员涉毒,更应被“封杀”松花江上冬日龙舟赛也门亚丁发生自杀式爆炸袭击至少20人朴槿惠答辩状:弹劾案缺乏法律依据 宪新骗局!你的微信账号被盯上了,速看!没有人开的潜航器,中国到底有没有权捞美警察破窗救濒死老人 结果哭笑不得齐齐哈尔市举办雪地足球比赛 43支队
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘