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

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环境中调试通过。
“部落战争”开发商Supercell融资1亿美金 投资公司争先恐后 Kiip 90后华裔励志故事:从遭解雇到誉满全球 大数据基因测序的成本逼近1000美元:个性化医疗的时代来临 携程开放平台发力 将实现旗下产品全流程API支持 Puppet labs发布2013自动化运维报告 “国”字号开发者:航旅纵横负责人薄满辉专访 金山云杨钢:核心算法保证安全和低成本 加速软件交付 企业级模拟测试服务CA LISA受追捧 盛大云业务重点转向自服务 转战中小型企业:Prediction API请求一个月内飙升至7亿多次 利用光子 耶鲁大学研究人员让量子计算机离现实更近一步 技术为王的云计算会让IT部门消亡么? 从Discuz到APP:安米移动社区转化工具 覆盖全领域:Google、Facebook、Twitter等大师的最佳推荐 苹果CEO宣布更改保修政策 并向中国用户道歉 拒绝使用现有Web组件的6个愚蠢理由 Github宣布支持SVN方式访问 iPad,正在改变什么? Go Mobile:行业大牛谈行业应用开发 亚马逊Cloud Drive新增文件同步功能 对抗Dropbox 35万奖金发放,BlackBerry 10大赛奖项揭晓 超越Google Apps:排行榜前10的相关云应用 荣耀终将消散 全球第一台千万亿次级超级计算机退役 谷歌已推免费Android和iPhone版Quickoffice,微软你呢? 用于响应式设计的9个CSS技巧 微软Surface Pro正式登陆中国市场 售价6588元起 岳雷:Windows Server 2012虚拟化性能提升巨大 陈健:Windows Server 2012让企业轻松管理IT 智能手机:革命已经波及到阴间 兄贵草泥马:重口味单机移动游戏为什么能火? 最炫HTML5框架Famo.us 将免费面向开发者 ActiveX访问数据库的问题? REDHAT LINUX 7.2下如何建立多个用户?多谢指点! 关于网线!高分!!!!! 关于生成文件的方法? 课程表开发 请问各位前辈,是否只有新增加的字段才有可能成为计算字段?谢谢! 俺要写一个简单的文本的报文,string类型的 关于生成文件的方法?..... 有谁能告诉一下我CVS和SSF是什么?,具体是指些什么?? WIN2K 的问题:1、怎么允许本地普通用户(user)关机;2、怎么能让本地普通用户开机后,客户机连接到SQL SERVER?3、为什么我的SQL量SERVER2K需要停止然后再启动客户才能用? 如何用VB把存储在ORACLE库中的图片字段取出成.JPG格式的图片文件????急在外出差呀多谢了~~~~~ 如何退出函数?exit function??? 测试2000的TCP/IP是否通,用什么命令 求助开发课程表提示 (*****向斑竹你提个小见意,大家最好都来看看,这个想法好不好!****) 为什么我做的增加功能有两个必须要按两次“添加”按钮才能新增一条记录啊? 很急,请教高手,如何把一个ip格式的字符串转换成ip类型,不是用getbyname(),而是像int和string转换一样的概念 请问如何让基于对话框的工具条一开始就浮在上面 来者有分,关于ado的 毛子青论文<<动态规划的优化>>,一个最长子序列的算法,请高手看过来(给出c实现代码的送20分!) 在鼠标单击时间中,可以使用什么函数取得鼠标点击处的坐标值 怎样在单击左键时弹出PopupMenu? 连续20多天加班,近来明显感到体力透支,做个调查!!!(有分) ASP调用VB编写的ActiveX DLL的问题 请教一sql语句 在Unix下用cc(实际上是cc_bundled文件)编译c程序时,报错“const" will become a keyword,或者告诉我“Function prototypes are an ANSI feature" 为何加入winsock2.h后会出现很多问题? 热烈庆祝:Kingron重出江湖!!!菜鸟们有福喽……散分 you shen me qu bie ? please tell me , xie xie ! [■■■Delphi猛料■■■]V1.3发布~~~~~~~更新到2001.12.12 提问:如何在ToolBar上加控件? 我在OLE里调用了word2000文档,为什么只显示第一页,我查了半天资料都没有解决,请帮我 哪里有多媒体软件制作论文啊? 继续请教各位前辈:能否将非新增加的字段定义成计算字段?谢谢! 软件创意、需求大汇集:列创意,拿专家分,120分值大赠送(以后可继续追加) 局渔网 巨简单问题~~~ 进来有分,回答多分,不够再加!!! 关于关闭和启动数据库的问题,很急的!! java VS c#^-^ ?? 请进 寻求QuickReport3以上版本 for Delphi3 的源代码或者安装包? 請問哪大俠用過 ibm 的 bridge2java啊,我把Excel的所有類都導出來了,但它的QuickExcel.java文件還是運行不了, 求救!新装了一块硬盘,为何找不到呀? SetWindowLong函数在delphi里可用,为什么在c++builder 中不能用??? 用弹出式菜单命令弹出一个dialog,可以响应键盘,可是不响应鼠标? 请教,Inserts类是拿来干什么用的? !!!急急急!!!怎样在WIN2000下把NTFS转换成FAT32啊。数据不丢失。 回复太短!或太长!!! visio2002的数据库建模,能不能生成SQL脚本? 急急啊,有關servlet的問題,源碼如下: 添加数据的问题 坐标问题 焊锡大多是63%锡的,另外37是什么?铅是有毒的啊!吸入焊锡发出的烟会不会中毒啊?市场上无铅焊锡很少啊!另外松香怎么用,用100%酒精混合使用? 海水可以结冰么?不可以,因为大海里的水含有盐分,有盐的东西都不会结冰的. 甲物体质量为乙物体的三分之一,乙物体体积是甲物体体积的2倍,求乙物体的密度明天就得交 在雪地上撒盐后雪的温度如何变化?为什么?各位好心的前辈,学妹我刚步入初三,请你们看清我的题目要求,我只想知道在雪地上撒盐后雪的温度如何变化,极其原因.至于为什么撒盐我已经弄清 哪里有卖无铅焊锡丝和吸锡线的?最好在小白楼附近,别的地方也行.大概什么价钱?吸锡线一定要小日本的,没办法质量好. 海水结冰温度是多少? 焊锡材料方面问题,无铅焊锡中的Sn-3Ag,锡占多少比例,银占多少比例? 海水结成的冰是咸的马? 海水结冰问题冻牛奶时,冰和奶是分开的 冻豆腐会留下空室海水结冰盐会留在里面吗 在雪地上,为什么撒上盐雪就化得快 海水结的冰是咸的吗? 关于海水结冰问题海面上的水结冰,结成的冰融化后与没有结成冰的水的含盐量大概是多少比多少,如果给出各是百分之几更好.还有把海水晒成盐这种工艺叫做海水什么? 沸腾的液体是什么液体? 设计实验验证海水结的冰是淡的还是咸的.海水是淡的还是咸的,请利用厨房里的物品,设计实验模拟海洋环境制作“海冰”、并设计实验证明海冰是咸的还是淡的,要实验具体步骤。 中国那些地区海水结冰了? 液体沸腾的条件是什么 为什么海水是咸的.而海上的冰却是淡的? 海水易结冰还是河水易结冰? 饮料冰冻之后再冷藏味道淡了.能喝吗、 海水为什么这么咸?南北极的冰是不是"咸冰"?这么咸对人类有什么好处?真的没想到,我第一次下海,就是这样的感觉.海水太咸.所以想到了这些. 家庭和实验室常用的温度计是根据什么的规律来测量的 为什么饮料冻成冰之后味道会变淡比如说牛奶、橙汁之类的 为什么海水不结冰呢? 固体密度大概是液体密度的多少倍? 怎样快速冰冻汽水越快越好啦 怎么提纯焊锡中的锡?在家搞实验. 固体密度大于液体密度? 汽水会结冰吗如题那会不会爆炸 如何从助焊锡中提取焊锡 河水和海水哪个更容易结冰 锡焊的锡有几种状态(比如焊锡丝、焊条)? 海是河流汇聚而成的,还又流道各个河流,为什么海水是咸的,而河水是淡的?为什么呢? 为什么海水比河水难结冰 压力表锡焊用焊锡量多少的焊锡丝 为什么海水会又原先的淡变咸 怎么样求固体,液体的密度用五种方法测量物体的密度,方法越多越好。、文字说明,最好有图画,要讲清楚,不能有遗漏, 如何在焊锡丝中分离出纯锡 为什么海水咸,河水不咸 540kg的水化成冰 体积是多少 焊锡丝焊接时为什么锡会飞溅 为什么海水是咸的而河水、湖水是淡的呢? 1kg的水化成冰它的质量、体积分别是多少? 液体沸腾的两个条件是: 海水为何是咸的 甲乙两木块的质量比为3:2,其体积比为1:2,则其密度比为多少? 液体沸腾的条件 金属温度计\电子温度计的原理 甲乙两质量分布均匀的物体的体积相同,它们的质量之比是5:3,则它们的密度之比是_________.若甲截去3/5, 海水为什么不会结冰? 温度计的原理问一下温度及时利用什么原理制作的?温度计的刻度是怎么画的?每一度之间的刻度是怎样计算的?为什么温度计选择酒精而不选择别的液体?是因为酒精防冻吗?希望可以说的详细 海水结冰是盐为什么会分离出来? 焊锡是锡铅合金,把铅加入锡中制成合金的主要目的是增加强度和抗腐蚀性生铁和钢是含碳量不同的铁合金,其中生铁的含碳量大于钢的含碳量这两句话 哪句对? 温度计的原理是什么? .冬天,小明在海边散步,发现路面上的水结冰了,但海水并没有结冰,他猜想:可能是海水中含有盐,导致凝固表格 制造焊锡时把铅加进锡中的重要原因 海水会不会结冰?如果不会结冰那为什么南极和北极会结冰? 某物质的密度是105kg/m3,该物质的状态是?a.固态 b.液态 c.气态 d.无法判断额,不好意思啊.密度是1.5kg/m3啊 制造焊锡时,把铅加入锡的主要原因 海水为什么不会结冰吗? 什么状态的物体密度大 固态还是液态还是气态
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn