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

Visual Basic 5.0中实现视频画中画

HTML文档下载 WORD文档下载 PDF文档下载
Visual Basic 5.0中实现视频画中画

在VISUAL BAISC 5.0中可以使用播放视频动画文件(*.AVI)的方法在我们的软件中加入动画效果,但在软件中如何实现视频画中画的效果呢?经笔者摸索,发现利用WIDOWS 95的API函数mciExecute、mciSendString和SetWindowPos可实现这一效果。

下面笔者以最常用的大画面中叠加小画面为例来说明视频画中画的实现方法。

一、建立窗体。进入VISUAL BAISC 5.0系统环境,建立一个新的窗体FORM1。

二、建立视频窗口。在这里笔者使用了一大一小的两个图画框(PictureBox)作为视频窗口。选择控件工具箱中的PictureBox控件,在窗体中拉出两个方框(Picture1和Picture2)。其中Picture1为大画面,播放AVI01.AVI文件;Picture2为小画面,播放AVI02.AVI文件。

三、编写相应控件的脚本。

通用模块:

Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String,ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

FORM1的ACTIVATE过程:

Dim AA As Long

Dim PlayAvi As Long

Dim tmpVal As String

Dim KeyValSize As Long

On Error Resume Next

tmpVal = String$(1024, 0)

KeyValSize = 1024

PlayAvi = mciSendString("STATUS AVI01 READY" + Str(Picture2.hwnd),tmpVal, KeyValSize, 0)

If PlayAvi <> 263 Then

PlayAvi = mciExecute("close AVI01")

End If

tmpVal = String$(1024, 0)

KeyValSize = 1024

PlayAvi = mciSendString("OPEN AVI01.AVI ALIAS AVI01 TYPE AVIVIDEO STYLE CHILD PARENT " + Str(Picture2.hwnd) + " WAIT", tmpVal, KeyValSize, 0)

x1Pos = Picture1.Width

y1Pos = Picture1.Height

tmpVal = String$(1024, 0)

KeyValSize = 1024

AA = mciSendString("STATUS AVI01 WINDOW HANDLE WAIT", tmpVal, KeyValSize, 0)

If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then

tmpVal = Left(tmpVal, KeyValSize - 1)

Else

tmpVal = Left(tmpVal, KeyValSize)

End If

AA = SetWindowPos(tmpVal, 0, 0, 0, x1Pos, y1Pos, 0)

AA = mciExecute("WINDOW AVI01 STATE SHOW")

tmpVal = String$(1024, 0)

KeyValSize = 1024

PlayAvi = mciSendString("STATUS AVI02 READY" + Str(Picture1.hwnd), tmpVal, KeyValSize, 0)

If PlayAvi <> 263 Then

PlayAvi = mciExecute("CLOSE AVI02")

End If

tmpVal = String$(1024, 0)

KeyValSize = 1024

PlayAvi = mciSendString("OPEN AVI02.AVI ALIAS AVI02 TYPE AVIVIDEO STYLE CHILD PARENT " + Str(Picture1.hwnd) + " WAIT", tmpVal, KeyValSize, 0)

x1Pos = Picture2.Width

y1Pos = Picture2.Height

tmpVal = String$(1024, 0)

KeyValSize = 1024

AA = mciSendString("STATUS AVI02 WINDOW HANDLE WAIT", tmpVal, KeyValSize, 0)

If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then

tmpVal = Left(tmpVal, KeyValSize - 1)

Else

tmpVal = Left(tmpVal, KeyValSize)

End If

AA = SetWindowPos(tmpVal, 0, 0, 0, x1Pos, y1Pos, 0)

MciExecute "WINDOW AVI02 STATE SHOW"

MciExecute "PLAY AVI01 REPEAT"

MciExecute "PLAY AVI02 REPEAT"

On Error GoTo 0

FORM1的QueryUnload过程:

mciExecute "STOP AVI01"

mciExecute "STOP AVI02"

mciExecute "CLOSE AVI01"

mciExecute "CLOSE AVI02"

运行此程序可见两个动画同时播放,实现了视频画中画的效果。以上程序在VISUAL BAISC 5.0及WINDOWS 95中运行通过。
搜狗商业平台Java技术实践 Java在电信软件领域的技术实战 关于Java框架Vert.x的几点思考 Java在游戏服务器开发中的应用 Java框架研发思考 那些年,Java程序员用过的开发工具 Java内存模型的历史变迁 Java 8与Apache Ignite Java开发与技术挑战——关于技术的技术思考 专访唯品会架构师肖桦:做编码的架构师 越来越“简单”的Java 我的Java!越过山丘 专访沙梓社:做个“Think Different”的技术牛人 基于ES6,使用React、Webpack、Babel构建模块化JavaScript应用 财税街创始人石克清:创业须空杯心态+有效社交 自我知识管理:连贯性就是生产率 玩转Google I/O 2015:Android M、IoT、Glass 2.0、VR、ATAP ARC中Retain Cycle揭秘 失控与逆转!企业移动化2.0时代下如何求变? 玩转物联网之MQTT 专访都灵创客教育奚炎:被忽视的Maker教育 13岁iOS开发者:Swift开发Sprite Kit游戏实践 专访豌豆荚「自动装」开发团队:无需Root即可批量点击「下一步」 iOS项目的持续集成与管理 《近匠》谛听科技,探索智慧家庭的智能网关 【简讯】Python 3.5.0b1发布 《算法的乐趣》作者王晓华访谈:多看、多做、多想是秘诀 专访李祎:Java在Testin的技术应用 React首部经典图书推荐:全程经典实例,360度剖析React.js 再做一个Android!Google发布第二代VR眼镜Cardboard Go语言开发常见陷阱,你遇到过几个? 如何成为一个程序员? 事务以及回滚的问题 有做完一个作业,放60分。 关于ASP调用VC编的DLL接收返回参数的问题 我提问,大家回答 有没有关于触发器的电子书籍? 怎么能够获得数据库的连接字串呀?? 大讨论:目前用什么工具、做什么开发最能赚钱?散分啦!感兴趣的程序员们快来!! 在IE中,打开某个页面,会连接到www.lop.com页面 关于islower(ch),isdigit(ch) 疑问 BQQ的服务器端有没有保存用户的聊天记录的? 如何获得程序方向键输入?多谢! 求助有关IFS-HOOK 高手请入!!急救!求msflexgrid 的打印源码????? 如何在list中显示文件夹 哪里可以看到Obejct类clone的实现方法? 系统的FOUND.00*文件夹里放的FILE000*是什么文件?可以删除吗?刚装系统时没有这些文件的阿 给分啊 今日郁闷之至……散分! 来来来,大伙们一起来衷心祝愿xxmm (晓箫)的老爸老妈顺利赴美参加晓箫的毕业典礼!! Dev-Cpp 使用 NetAPI32.lib 的问题 急寻严蔚敏,吴伟民版《数据结构习题集》c语言版的答案,请问哪有啊 高手们给我一个超级简单的HOOK API的例子好吗?求你们了。 错在哪里 好郁闷啊~ 谁有站内关键字模糊查询的代码?紧急求救、在线等待!!!! 字符串转化为数组的问题 讨论<<标准C++库大全>> 上次是哪位兄弟要的《新编API参考大全》CHM版呀?我找到了一个,还行。 欢迎大家访问我公司的网站! 请学c++builder 有份量的人推荐一本经典的教材(适合初学者) 欢迎大家访问我们公司的网址! 关于分页的问题 请帮我看看这个小程序 欢迎大家访问我公司的网站! 已知一个文件夹的路径,如何得到该文件夹中的文件的名字? 关于StreamReader的问题 欢迎大家访问我公司的网站! 有关编辑框的问题 各位大侠一个很菜的问题,来帮帮忙! 关于集合的一个小问题 最菜的问题,100分白送!!! 很基础问题,脑子不清楚,大家帮忙看看 紧急问题! 终于 知道MESSENGER 只是 WIN2K 的服务了! 那么 这 个怎么办?? 请问以下我如何实现一个带滚动条的子窗口 问一下,resin和iis集成后class文件放在什么目录下 用 http://www.rc80.com (c# + sqlserver2000) 只想换一个.net 的完整的分页代码! 什么是free candy He would likes some banans.改错 蝎子有几条腿?据说,有地方的蝎子有8条腿,有地方的蝎子有10条腿(全蝎).同样是蝎子,腿得数目会不同吗? 上海哪里有CANDY SUGAR的包要皮的那种,日本学生用的那种手提包 一个果园的李树棵树是桃树的8分之7,桃树的棵树是梨树的6分之5.已知李树有1680棵.梨树有多少棵要用方程和算术方法解 有谁知道此昆虫叫什么名字?身体如芝麻大小,有8条腿,2条形状如蝎子的大钳子.以前没见过. bag,desk,egg,apple,C,evening,Amy,Ben,D,B,name.Aa哪些是开音节 那些是闭音节不会的别来捣乱 He likes to_______ some interesting stories and tells them to us. 某人上山的速度是1米每秒,到达山顶后立即返回.下山的速度为3米每秒,则上山和下山全过程中的平均速度是 祖国六十华诞阅兵式作文具体,600字以内,要有阅兵的过程, I have a little time to go out and play on the weekend 还是I have a little time to go out and play in the weekend Sometimes it rains heavily.可以改写成Sometimes there is___rain we.egg,bed,he.pen,she,desk,me,这几个单词怎么分类? 长兴果园的桃树和李树共360棵 桃树的棵树是李树的1/3 桃树和李树各有多少棵 英文句子I am Ann e.g.pen—name—egg—good —desk问:arm— — — —tall— — — — cow— — — — duck— — — — juice sth up 还是 juice up sth 加油的意思吗 How old is Ann Read going to be?的意思 写祖国60华诞的阅兵式的作文 【六人行】juice this puppy up a littlemonica发现精子银行的donor竟是joey,她说那里的竞争还真大,因为有个donor是火箭科学家,於是joey就说把他演的那部戏也报上去,然后就说了这句:juice this puppy up a l This is Read Ann 这句话错在哪 并改正 He likes flying a kite的同义句 there isn't_____tomato in the bag.a:any b:somethere isn't_____tomato in the bag.a:any b:somewhich one is right? 我的伯父鲁迅先生第二自然段“我”羞愧什么,悔恨什么? He likes flying a kite.的同义句 请教新楖念二册27课中一个句子的发间The tent was full of water!那个was怎么发成了/tuz/的音呢.我是指97版的发音.谢谢楼下的朋友,但是我试着连读也发不了/tuz/的音,怎么回事?出尔反尔╮ 朋友 英语作文《I know the diffience》怎么写 腔肠动物中的共生现象;外表很温柔,内心很残暴的海葵? the tent was full of water 为什么不用the tent full of water 英语作文:I don‘t know the time 全文发送,九点之前发 ______cute pigs they are What/how,为什么? The tent was full of water !two boy woke up and began to shouting.请问这句话中后面为什么要用began shouting请问用began to shout可以吗?为什么?谢谢 一块面积是4/5公顷有果树园,其中的2/5种苹果树,其余种桃树,桃树的面积是这块地的几分之几? 一个作文是“那轮明月想起了你” 联系中秋节, 怎么写? 新概念英语第2册的27课 A wet night 有句话的疑问 The tent was full of water!我感觉不能这么说话The tent was full of water!我感觉不能这么说话 我感觉这么说合适点It was full of water in the tent! 听了伯父的话我羞愧什么悔恨什么? What great they are!还是How great they are! 假如你叫王林,写求职信,内容:2010年12月10日在中国日报上知道BAC公司招办公室秘书,本人东方学院毕业熟悉办公室,电脑工作,随信附简历,望获面试资格 急求英文翻译,有高手速度答了 本 听了伯父这句话,我又羞愧,又悔恨"是原因: 求以《中秋节·明月·团圆》为话题的作文~~~~题目自拟,600至800字~~~~ 假设你是李华,请你向ABC公司的人力资源部经理写一份求职信.1你是在中国日报看到的广告2你想应聘该公司的医疗器械销售部经理的职位3你简单介绍一下自己的出生日期,毕业院校,所学专业4 小强上山每小时3千米,到达山顶原路返回,下山每小时5千米,求小强在整个过程中的平均速度.要完整所有数都写出来 中秋明月寄情作文 一直以来,我的历史和政治成绩都不太好,特别是大题丢分特别严重,求求各位能给我一个答题技巧 everyone ____ having a good time now. 千篇一律,有没有这个词 有关中秋节的散文 心中的明月 好的+分300到500字的. 高考历史最后一大题,材料分析题一般貌似都是用SOLO评分法,好像不是很容易拿满,求高手点拨, ride on 和ride in区别如题 英语翻译they are a direct current in the brain on which faster AC ( alternating current) waves ride. 课间操铃响.我们走向操场.合并为一句只要写关联词 ride与 ride on有什么不一样Rather than ( )a crowded bus ,he prefers ( )a bicycle to go to work.A ride on ;to ride B ride on ;to ride on C ride ; to ride 帮我说说为什么 他们搭配有什么规律?即通常ride on 后跟什么?ride后 一个正方体冰箱,棱长为4分米,装满水后,把水全部倒入另一个长8分米,宽2分米的长方形冰箱中,水深()A 2分米 B4分米  C8分米 思考题;he doesn't like ice cream.l don' like it pr ther .变成肯定句 get on motorbike和ride motorbike有什么区别 一个棱长4dm的正方体冰箱,装满了水.这箱水倒入一个地面长0.5米,宽25cm的长方形冰箱中,水深是多少?求列式 镜子对着门好吗 the water is boiling.为什么是主谓结构而不是主系表结构? I'd like a small juice.为什么会有一个a,果汁不是不可数的吗,我是在课本上看到的,应该是对的吧. 镜子正好对着门好吗 王毅同意大利外长博尼诺举行会谈菲律宾为美军重返苏比克湾放行男子27美元购比特币被嘲笑 4年后暴8宗叫停1宗流拍 杭州土地市场接连遇外媒:中国高层或在治理司法腐败上有所巴基斯坦愿率先加入中国空间站 进驻天芙蓉姐姐万圣节化身僵尸新娘 透视婚纱突尼斯总统高度评价突中双边关系新型冠状病毒感染者首现阿曼Facebook测试软件监控鼠标所有世界首条跨亚欧海底铁路隧道开通全球空姐制服比拼 日韩空姐靓丽抢眼(路透社关注《新快报》记者陈永洲被批捕美报:安徽官员“悬浮照片”引嘲笑气味让居民受不了 泰国辣酱工厂加州遭日媒:西方低估中国“西进战略”重要性世行称斯里兰卡为南亚商业经营环境最好印度长途巴士车祸后爆炸 45名乘客被因特尔向Verizon移交了流媒体电一颗遥远行星堪称地球“兄弟”俄媒:学术腐败成中国科技进步拦路虎在寒假遇见更好的自己奥朗德访印签大单 印欲购买36架“阵独立学院纷纷自立门户英探险家计划80天徒步穿越南极 不幸从微米到光年韩国机场停航3天后复航 近9万名旅客寒潮中,平凡劳动者的温度就是社会的温共青团十七届五中全会关于深入学习贯彻泰国确诊一例中东呼吸综合征病例(高清不是平壤!韩国平昌改英文拼写凌一洲:玩出来的小发明家俄外长:不支持撇开朝鲜举行朝核问题会浙江去年民告官胜诉近1/3张芝榕:让小众创业者有个舞台走出来危机四伏!伊斯兰国在欧洲密设训练营俄GDP萎缩3.7% 经济今年或继续系沙特王室馈赠! 马总理洗清贪腐指控希拉里选情告急 奥巴马力挺助选保存历史记忆 普京自称留存苏共党员证难民问题继续发酵 德小城泳池对男性难马政府:泰国南部所发现残骸不属于MH
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘