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

Visual Basic影音控制

HTML文档下载 WORD文档下载 PDF文档下载
Visual Basic影音控制

  播放背景音乐

  声明:

   Declare Function MCISendString& Lib ″MMSYSTEM″ (ByVal LPSTRCOMMAND$, ByVal LPSTRRETURNSTR As Any, ByVal WRETURNLEN%, ByVal HCALLBACK%)

  开始播放:

   R% = MCISendString&(″OPEN EXAMPLE.MID TYPE SEQUENCER ALIAS NN″, 0&, 0, 0)

   R% = MCISendString&(″PLAY NN FROM 0″, 0&, 0, 0)

   R% = MCISendString&(″CLOSE ANIMATION″, 0&, 0, 0)

  停止:

  R% = MCISendString&(″OPEN EXAMPLE.MID TYPE SEQUENCER ALIAS NN″, 0&, 0, 0)

   R% = MCISendString&(″STOP NN″, 0&, 0, 0)

  R% = MCISendString&(″CLOSE ANIMATION″, 0&, 0, 0)

  其中EXAMPLE.MID 为播放的文件,NN为自定义名称标志。

  使XMPlayer自动播放VCD

  XingMPEG Player是软解压播放VCD的优秀软件,但调入XM—player、进入播放状态、隐藏面板等一系列操作,需要多次点击鼠标,较为麻烦。下面用VB程序首先检查光驱是否准备好或光驱中是否为 VCD光碟,然后利用VB模拟XingMPEG的键盘动作,通过短短的几行程序,实现 VCD光盘的自动播放。

  1.进入VB环境,设置窗体Form1的Visible属性为 False,然后在窗体上建立一个驱动器列表框Drivel,亦设其Visible属性为False,以使窗体和列表框在程序调入时不被显示出来。其它属性均取默认值。

  2.双击窗体,编写过程代码

   Private Sub Form—Load()

   On Error GoTo finderr ′检查光驱是否准备好或光驱中是否为VCD光碟

   startline:

   drvnmb=Drive1ListCount

   cdname$=Drive1List(drvnmb-1)

   files$=Dir$(cdname$ & ″\mpegav\*.dat″)

   If files$=″″Then GoTo finderr

   act=Shell(″C:\Program Files\Xmplayer\XMPLAYER.EXE″,1)

   ′假定Xmplayer位于该目录,打开并使之获得焦点

   SendKeys ″%(fv)″,True ′模拟Ctrl+fv键盘动作,开始播放VCD

   PauseTime=2 ′一些VCD光碟因制作不规范,播放前会提示有一些错误,为对这些错误作出处理,所以暂停若干秒,此暂停是在后台进行,不影响正常 VCD连续播放

   start=Timer

   Do While Timer
   Loop

   SendKeys″{enter},^s,^p,^{f4},%{esc},^4″,True ′模拟其它键盘动作,满屏播放,隐藏面板等

   End

   finderr:

   msg$=″光驱未准备好,或光驱中非VCD光盘,将光驱准备好,″

   msg$=msg$ & ″或换一张光盘,然后回车重试,或按取消退出″

   er=MsgBox(msg$,53,″出错提示″)

   If er=4 Then Resume startline Else En ′由用户选择重试或退出

   End Sub

  3.将上述程序编译成EXE文件,然后将其快捷方式拖至桌面,双击该图标,即可装入Xing MPEG Player并自动开始满屏播放VCD,同时置PLAYER面板于Standard Bar状态,并将之隐藏。程序中^表示Ctrl,%表示Alt。之所以程序中要连续插入暂停“^S”和播放“^P”两个动作,是因为20版本的VCD在按Alt+FV后即开始播放, 10版本在按Alt+FV后还要求按Ctrl+P,而Ctrl+P在播放状态下又等价于Ctrl+S(即暂停);所以如果只有一个“^P”则使VCD10开始播放而VCD20暂停,为了兼顾两种版本的VCD,首先模拟Ctrl+S动作实现暂停,然后再模拟 Ctrl+P开始播放,从而使两种版本的 VCD在执行本程序后都能实现自动播放。

  上述程序在Pwin 95、VB 5和XingMPEG Player 3.2环境中调试通过。
程序员想玩转大数据:需要知晓的12种工具 2012年谷歌应用商店增长迅速 但苹果最赚钱 Apple微软Google都在竞购一家创业公司 违反新条款?苹果强行下架AppShopper 2012移动开发教程盘点:最棒的国外游戏开发站 重思JavaScript的好与坏 细数那些 NeXT 留给 OS X 的遗产 一张图让你知道大数据的生态系统 Camera360开放SDK:拍照和滤镜一行代码搞定 一周消息树:计算机将拥有五感 人类面临威胁? 通晓数学的人就可以当程序员吗? 360发布企业版4.0 可自定义软件白名单 不要总是依赖机器 MongoDB扩展彰显分片功夫 Dell与HP的OpenStack的战略:渠道对抗SLA 路况电台王雷:未来车载系统会是Android的天下 移动周报:2012移动开发工具系列盘点 谷歌不愿错失机会 Android或不再成它人独享 黑客文化:Facebook公布2012年Hackathon大赛顶级“黑客作品” 中国移动音乐开放平台正式对外开放 GitLab 4.0发布 更好地支持PostgreSQL 傻瓜式移动应用开发平台:专访摩讯创始人赵健 日本DeNA进军中国智能电视,与海信战略合作 扎克伯格不仅为Poke编码,而且还“献声” Wordament:首款支持Xbox Live成就的iPhone游戏 使用Storm实现实时大数据分析! 孙博凯:微软日益开放,Windows Azure更加拥抱开源 大数据计算:如何仅用1.5KB内存计算十亿个不同的对象 我们为什么爱EC2和S3却彻底抛弃EBS 不畏Surface:诺基亚明年或推Windows平板 Linus Torvalds:用户程序被破坏永远是Kernel的问题! Python高效编程技巧 我为中国队加油,看看我的为中国队加油首页! 关于FLASH的??<在线等待> 请教各位大虾!!!急,我的分数全部送出!!! 高手们怎么样才能在窗体上引入FLASH动画呀????? 好烦啊!oracle 7.3.4数据导到oracle9i的字符集问题 每当我最困难的时候,我就想起了csdn,50分奉送!!!!!图像问题 QuickReport设置的问题 如何打印源代码! 那位大虾知道ACTIVEX命名的由来 请问什么错误,在brinkster测试通过,但是放在另外的站点,却不行了。 中国必胜 mfc 中的类型是怎么定义出来的(比如 dword,LPTSTR 等) 救急!!关于表单中文件域的使用。 奇怪的问题!!!!! 请问什么是contentPane? 用Delphi作网页用IE浏览不行 求助:AfxBeginThread的编译问题! 用C裸写聊天软件,谁能? 菜鸟问题:如何安装和配置ASP.NET开发和运行环境? 快来呀,破解QQ密码,高分相送! 有需要域名和空间的吗?我这里有。 我的服务器CPU占有100%,如何解决?!!加急!!!!!! 请问谁在csdn上订购过书啊?需要多少时间才能拿到啊!!!! 小问题:关于AfxBeginThread的参数调用问题 请教高手:关于在ACCESS中的两个数据库之间复制表结构问题 请问谁在csdn上订购过书啊?需要多少时间才能拿到啊!!!! 问题求解 现实一点,各位,我和别人赌了巴西不能赢中国队净3球以上,大家如何看? datagrid连接adodc access转化为mssql时出现的一些问题??? 工作流运行时出现了问题!很奇怪! 一个注册表的问题? 关于STL的弱问题 很少有人问的问题 请教学习路线,散分 一个困扰我很久的难题?(高手帮忙啊) 告诉帮我解决文件关联问题!! 请问如何添加备注字段,用sql server建表,有一备注字段为text类型。。。。。。。。。。。 函數啊﹐怎么么搞的?氣死人了。一百求救。 关于数据库的问题 生命游戏问题!!!!那位大哥指点迷津 VB做的免费软件,大家随便下载!给我提点建议也行! RichEdit问题,急!!! 关于IF语句。我是新手我理解不了请高手帮我,谢谢 请问oricle 有没有像sql server 2000 的企业管理器一样的工具? 关于richedit的问题! 誰能告訴我﹐我給他發又發(88分求找) asp.net就没有什么不足吗? 问题:高级程序员的《数据结构》该怎么复习?请有经验的人给指个明路,多谢! 如何将中文文件存入数据库?是文件,不是表单,谢谢!! 怎样才能得到CDialogBar的控件(如Button)的消息及消息处理 火焰的红色是什么怎样的颜色还有和绯红的区别 在实验室中常用氢气还原氧化铜,若还原8克氧化铜,实际参加反映的氢气的质量为多少?(写出反应式) 什么东西腐蚀羽绒服面料? 有机化学鉴别丙醇 溴乙烷 丙酸乙酯 油电混合电动车性能怎么样 主焦煤有哪些用途?主要用在哪些地方,有哪些买家需要这样的煤炭. 火焰一共有几种颜色?是如何形成的?我想问下,火焰一共有几种颜色?火焰的这些颜色是如何形成的? waters 2695-2489高效液相色谱的日常操作如何断开检测器?如何操作? 电解水试验的的宏观现象 正极 负极 现象 结论 金属的火焰颜色请问Al,Fe的火焰颜色是什么 铜片、锌片和稀硫酸组成的原电池工作时,电解质溶液的pH为什么变小? 电解水的实验,那个主要仪器叫什么?分正极和负极的. 亚硫酸亚铁在水中能双水解吗,不太懂 化学题一道(在苯酚钠溶液中通入CO2...)在苯酚钠溶液中通入CO2 变浑浊 再升温至65度以上 溶液为什么会变澄清? 在80克溶质质量分数为15%的硝酸钠溶液里进行如下操作,请回答(1)若加入20克水,则溶质的质量分数为______.(2)若加入20克硝酸钠,且完全溶解,则溶质的质量分数为______. 在温度不变的情况下,将某物质的不饱和溶液变成饱和溶液,溶质质量分数一定增大么? 皮肤很黄怎么用词形容 在80克15%的硝酸钠溶液中,加入20克硝酸钠全部溶解,求所得硝酸钠溶液中溶质的质量如题 研究不同物质的吸热本领(3)归纳上述实验可知:物体吸收的热量与物体质量、——和——有关,而且————————————————. 回答1、2、3 电动车的优势 劣势我要做健身自行车的项目策划书,竞争分析汽车,电动车,健身车的比较 10℃时,40克水里溶解32克硝酸钠,溶液达饱和,这时硝酸钠的溶解度是多少;溶质的质量分数为多少.我想知道溶质质量分数是 55.56% 还是 44.44% 说理由 .效率回 大学有机化学实验乙醚的制备相关文献 2CO2+6H2=CH3CH2OH+3H2O的反应中,为什么可以使用CU-ZN-FE催化剂?FE不是回和52O反应吗?催化剂不是不反应的吗? 80克15%硝酸钠溶液中,加入20克硝酸钾全部溶解,硝酸钠溶液的质量分数?如果加20克水,硝酸钠的质量分数? 为什么火焰是好几个颜色的?为什么内层是接近黄色而外层是红色呢?\x09谢谢了, 什么样的物质溶解放热,什么样的物质溶解吸热.举几个例子 实验室用一定质量的氢气还原8g氧化铜,当剩余固体的质量为6.56g时,求:有多少氧化铜参加了化学反应? 硝酸钠燃烧时的火焰色 “为什么你不是黄皮肤呢”.英语怎么说. 离子方程式:①双氧水在酸性条件下氧化亚铁离子 ②向苯酚钠溶液中通入二氧化碳③等体积等物质的量浓度氢氧化钡溶液与碳酸氢铵溶液混合 ④次氯酸钙溶液中通入过量二氧化碳 ⑤向次氯 鉴别乙醚,乙烯基乙醚,丁烷 Waters超高效液相色谱仪多少钱 配制90g10%的硝酸钠溶液后,再向其中加入10g氯化钾并搅拌至完全溶解,则所得溶液中硝酸钠的质量分数是?19% 10% 9% 21.1%为什么加入10g氯化钾并搅拌至完全溶解,此时溶液总质量为90+ 喝酒精.會不會酒精中毒而死?喝酒精.會不會因爲酒精中毒而死? waters高效液相色谱仪中 Delta 英语高手请进:不要开黄腔用英语怎么说帮忙给翻译下 42度的白酒喝几瓶会酒精中毒而死 waters HPLC 紫外灯寿命如何看?waters HPLC 紫外灯闪烁,不能正常工作,怀疑寿命到了,但无确切数据,想知道如何看灯用了多长时间. 金属会被什么东西腐蚀呢? 说几个生命的奇迹列子,要具体! waters 2695-2489高效液相色谱如何断开检测器?如何操作? 同素异形体之间的摩尔质量相同吗比如C60和C540 生命的奇迹是什么 向苯酚钠中通入少量二氧化碳的方程式 苯酚钠中通入少量二氧化硫的反应离子方程式?一定要能确定的! 生命的奇迹是怎么的? 苯酚钠中通入二氧化碳方程式用等号还是箭头 苯酚钠溶液中通入足量二氧化碳的离子方程式如题…并且:硫化钠的水解离子方程式;次氯酸钙溶液中通入足量的二氧化碳气体离子方程式…急!谢谢 光在均匀介质中沿直线传播,物理学中常用_______来表示这一传播规律光在均匀介质中沿直线传播,日常生活中能说明这一规律的实例有日食、月食,物理学中常用_______来表示这一传播规律 请问高效液相色谱仪供试液图谱中有杂质峰,对照的相对应位置也会出现这个杂质峰吗?没有出现是什么原因? 皮肤变差 和 我不想活了 的英语翻译? 物理学中光在同种均匀介质是沿直线传播的, 高效液相色谱仪效能的测定中奈和菲谁先出峰,为什么? 什么布怕腐蚀 光在均匀介质中沿直线传播,“均匀”如何理解? 向20%的硝酸钾溶液中再加入1.5g硝酸钾和4.5g水,溶解后所得到溶液的溶质质量分数大于、小于或等于20%?快!说说过程好吗. 什么介质可以将布料腐蚀,我的不锈钢管道中堵住了布料,是U型管,不知道有没有知道什么介质可以腐蚀布料而不伤不锈钢管道. 一道物理题:如果光从一种介质射入另一种介质时,它的传播方向是弯曲的吗?如果是,光不是直线传播的吗? 20摄氏度时在等质量的水中,分别溶解硝酸钾和硝酸钠,当分别形成饱和溶液时,——溶液中溶质的质量分数较大 腐蚀布料有什么化学物质可以腐蚀布料?抹布掉在厕所里了,堵了!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘