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

Visual Basic 5.0多媒体创作技巧

HTML文档下载 WORD文档下载 PDF文档下载
Visual Basic 5.0多媒体创作技巧

Visual Basic 5.0因其可视化的编程方式越来越受到编程人员的青睐,我们可以使用Visual Basic 5.0编写拥有漂亮的界面、动听的音乐的多媒体软件。但在实际的编程过程中可能会遇到一些难以解决的问题,以下是笔者在多媒体创作中的几点经验,或许能丰富一下你的多媒体配件箱。

一、背景音乐

在使用Visual Basic 5.0编制应用程序时,我们可以利用OLE嵌套的方 法很容易的为一个应用程序加入背景音乐。

进入Visual Basic 5.0系统环境,建立一个新的表单。点击‘表单控制’上的‘OLE容器’,并将其拖至FORM中任意位置。在‘插入对象’窗口中选择‘媒体剪辑’,选中‘以图标显示’栏(必须选中此栏,否则无法将其隐藏起来),按‘确认’键退出。
在‘媒体播放机’窗口中,选择‘文件’、‘打开’,从文件列表中选择想要作为背景音乐的声音文件。由于音乐文件一般不是很长,所以要求循环播放,可以通过设置‘媒体播放机’重复播放来实现。然后选择‘编辑’菜单中的‘选项’,在选项窗口中选中‘重复播放’和去掉‘重放的控制条’前的选中标记,确认后退出。
回到Visual Basic 5.0系统环境,按下鼠标右键,在弹出菜单中点击‘属性’栏调出属性窗口。选择‘Ole1’对象,将它的‘Visible’属性设为.F.,‘Autosize’属性设为.F.。再按下鼠标右键,在弹出菜单中点击‘代码’栏进入过程书写窗口,编写‘Form1’对象的‘Load’过程:
Private Sub Form_Load()

OLE1.DoVerb (0)

End Sub

4、 按‘F5’键运行即可。

二、透明效果立体按钮

在制作多媒体软件时有时需要有透明效果的立体按钮,我们可以利用标签(LABEL)与形状(SHAPE)的组合来完成这一设计。

进入Visual Basic 5.0系统环境,建立一个新的表单(FORM1),并设置FORM1的Picture属性为一个WINDOWS位图文件(.BMP)。
鼠标点击“表单控制栏”中的“形状”,并在FORM1上拉出一个矩形方框(SHAPE1)。以同样方法创建SHAPE2、SHAPE3和SHAPE4。在属性窗口中对这四个SHAPE的属性进行如下设置:
SHAPE1:

BorderColor = &HFFFFFF

BorderWidth = 3 Left = 2160

Top = 2040 Width = 1100

SHAPE2:

BorderColor = &H80000008

BorderWidth = 3 Left = 2160

Top = 2520 Width = 1100

SHAPE3:

BorderColor = &HFFFFFF

BorderWidth = 3 Left = 2160

Top = 2040 Height = 500

SHAPE4:

BorderColor = &H80000008

BorderWidth = 3 Left = 3240

Top = 2040 Height = 500

鼠标点击“表单控制栏”中的“标签”,并在FORM1上拉出一个矩形方框(LABEL1),调整其大小以刚好嵌入四个SHAPE中。设置它的属性Caption为定制的按钮的标题,Alignment为2,Backstyle为0。
双击LABEL1,编写LABEL1的MouseDown过程和MouseUp过程如下:
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Shape1.BorderColor = &H80000008

Shape3.BorderColor = &H80000008

Shape2.BorderColor = &HFFFFFF

Shape4.BorderColor = &HFFFFFF

Label1.Top = Label1.Top + 10

End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Shape1.BorderColor = &HFFFFFF

Shape3.BorderColor = &HFFFFFF

Shape2.BorderColor = &H80000008

Shape4.BorderColor = &H80000008

Label1.Top = Label1.Top - 10

End Sub

按‘F5’键运行即可。
三、移动字幕

在电视上我们时常会看到屏幕下方会有一行提示文字或广告信息由右至左移动,这样既起了提示作用又不会破坏整体屏幕。在Visual Basic 5.0中我们同样可以完成这种设计。

进入Visual Basic 5.0系统环境,建立一个新的表单(FORM1),并设置FORM1的Backcolor属性为一个RGB(192,192,192)。
鼠标点击“表单控制栏”中的“标签”,并在FORM1上拉出一个矩形方框(LABEL1)。设置它的属性Caption为“活动字幕演示”,Autosize为 .T.,Backstyle为0,Forecolor为RGB(128,128,128),Fontname为“隶书体”,Fontbold为 .T.,Fontsize为36。
鼠标点击LABEL1,按CTRL + C(拷贝)键,再按CTRL + V(粘贴)键,在FORM1上创建另一个标题与LABEL1相同的标签(LABEL2),设置它的Forecolor属性为RGB(255,255,0)。调整LABEL2的位置,使其刚好比LABEL1高一些,使LABEL1
LG再战平板市场:将推出8.3英寸平板G Pad 编程语言与工具专题论坛:各类编程语言使用体会分享 淘宝、腾讯、豆瓣、支付宝、网易专家热议大数据分析与BI实战 “创新或灭亡”:Google的80/20只是转移视线的说辞罢了 自动化编排,配合SDN的iMC V7更加开放 [回顾]比尔·盖茨传奇的前半生 IT基础设施与运维论坛:IT基础设施及运维经验分享 记华为HCC2013 Day1:发力高端存储 HCC 2013虚拟化论坛:虚拟化未来发展方向 Windows 8操作系统市场份额增至7.41% Windows 7仍最受欢迎 【开源专访】Sea.js创始人玉伯的前端开发之路 SDCC 2013:阿里周宝方谈“去IOE”战略及实施 百度和高德:最后谁是地图的王者? 【CTO论道】瑞智和康CEO陶建辉:软硬结合是消费电子新潮流 10大高效率原型设计工具 JIRA与敏捷:李小龙教给我们的敏捷开发之道 百度开放云:Light Up The World,与开发者共享云未来 有胆你就来!11个在线编码大赛 CTO如何避免决策失控:第一步-定义角色 后机械硬盘时代,那些引领风骚的闪存初创公司 致远文杰:传统企业如何实现移动化转型? 记华为HCC2013 Day2:SDN开放编程系统OPS打造生态圈 HCC2013:华为FusionCube融合至简,性能至优 已确认Stephen Elop候选微软下任CEO 英语对于软件开发者来说到底有多重要? SDCC 2013中国软件开发者大会成功落幕 新浪微博宋琦:PHP在微博优化中的“大显身手” 8月份浏览器份额:IE浏览器PC端出现反弹 移动端跌出前五 如何让Ruby项目速度提升10倍 跨平台进行到底:Facebook发布Unity SDK 云薪资管理初创公司ZenPayroll:年处理薪资超1亿美元,获多位知名CEO力挺 sprintf(a,"%2X",b)问题 关于简单的access查询 java字符转换问题!!! 请教一个Struts标记问题! 一个cab下载的错误信息解读,请教高人。 OutLook?怎么用它发邮件,经常提示错误? 帮看这段删除纪录代码有什么问题?三层结构oracle 本人要做一个WEB合同管理平台,由于以前没做过,请大家指示? Web Application 中怎么来调用 Web Server?谢谢! DataGrid中模板列嵌套的DataGrid怎样相应其事件 [调查]程序员证在你们公司里到底有多大的作用?有多少人有证?希望有没有证的都进来说一下。 怎样把字符串"C;\aaa\bbb"变成字符串"C:\aaa\ccc\dd"?用什么函数,操作? 我的SQL Server 装好后,出现下面的错误 这个文件查找真是怪!......msdn源代码居然有问题, 进来看看... 请问在TreeView控件中如何通过光标的上下移动获得光标所在项在数据库中的ID值 對掌上電腦Sony Peg-TG50和ACER N10怎麼看??? 使用SOAP协议传递服务器端查询结果容量问题? 菜鸟问题:数据窗口怎么设置检索参数?急!!在线等 ****入门提出的问题****,请各位高手指教! 很简单的一个问题。 这个问题怎么处理? vb如何调用一个组件?? 一个小问题,可不简单哦! 应聘CMM时,会被问到什么有关CMM的问题? 调用servlet出现这个错误HTTP method POST is not supported by this URL 在公网上如何连接远程数据库啊。。 这算不算bcb的bug?关于Image控件的使用。 使用 GDI 函数画直线时,如何同时在该直线的两端画出箭头来? 怎样改变网卡的工作模式???~~ 疑难杂症--关于共享adsl专线的网络问题--疑难杂症 小弟有一事请教??? 我的IE WEB 控件---TREEVIEW控件,怎么没有treeView.AfterSelect()事件? 新手接触midas的若干典型问题!小的头都搞大了!还是不行!望各位大虾赏个脸解答一下! 一个静态页面中的困惑!心急如焚.................. 请问这句话什么意思? 如何判断一个用户的会话已经失效?-解决立马给分 急:如何改变datagrid的背景色 string sqlstr=DataGrid1.Items[1].Cells[1].Text有错吗? 帮忙,请教一个问题! 请教高手:以下情况如何写sql语句和填写datagrid? 如何对dbf的数据库进行操作 请教大虾 写一个画流程图软件的需求分析(用VB做)(简单步骤也行) 关于权限问题。 如何让客户端在1024*768的状态下,显示800*600的效果 include和header有什么区别? 如何把从数据库中读到的值赋给变量 如何在owc做的饼图上写上 名称,数量,百分比 ?急,用过的请帮忙,先谢了 如何使对话框的菜单项无效? 兄弟姐妹们,帮帮忙给兄弟投票 如何访问Web.config文件中的属性? 请帮我写段程序!很简单的,谢谢! 下列有关细胞间的信息交流的叙述正确的是()A激素与靶细胞膜上蛋白质结合,将信息传递给靶细胞B细胞分泌的化学物质必须经过血液的运输才能将信息传递给靶细胞C高等植物细胞之间的胞间 材料作文怎么审题 一道高中生物题,从图中怎样看出亲和蛋白进入细胞,既需要载体也需要能量的? 如图为细胞间信息交流的一种方式,下列有关叙述不正确的是( ) A.图中a可能表示某种信号分子 B.图中甲表图A.图中a可能表示某种信号分子 B.图中甲表示分泌细胞图中乙细胞表示靶细胞 C. 材料作文审题阅读下面的材料,根据要求作文.3月11日,最新的《福布斯》富人榜出炉,墨西哥的电信大鳄卡洛斯•斯利姆成为世界新首富.《福布斯》杂志说:盖茨和巴菲特在富翁榜上的位次 植物六大器官是哪些? 服务器的定义是什么? 材料作文审题立意材料:猴子出名会模仿人,一个老人看到一个猴子,便扔一个草帽过去,然后猴子拿着帽子高兴的走了.数年后,老人的孙子重复他爷爷的事情,猴子不再捡帽子,猴王出来便说:“ don't work on it The sign on grass says,“Don't walk on it.__ __"A:Look at B,Look out C,Keep out D,Keep on DELL NBD 我想问一下DELL 的服务有哪几种分别是什么 ,还有这个NBD 是什么服务 , 加湿器里面可不可以加空气清洗剂 人体内的六大营养物质是什么? 求满足{x|x^2+1=0,x∈R}真包含于M包含于{x|x^2-1=0,x∈R}的集合M的个数快 船做好后,下没下水呢?他还战胜了哪些困难?阅读 鲁滨逊漂流记 初中生日记;读后感;有重赏日记300字10篇;《钢铁是怎样炼成的》《名人传》《朝花夕拾》600字读后感 M={x|2x+1>=0},N={x|x^2-(a+1)+a 有什么物质溶于水显碱性,不溶于水不显碱性呢?如题.顺便问下怎么判断这种溶液显碱性? 用碘酒的方法检测() A=(-∞,-3)∪(2,+∞)B={x|mx+1 You should get up e______to catch the bus谁会了帮忙填一下, 为什么是work on it而不是work it on?也有cup them up啊!这些怎么区分? 已知A={x|x²+x-6>0},B={x|mx+1<0},若B包含于A,求m的取值范围 电熨斗高温挡那个55欧怎么算的 work on it 能不能写成work it on.如果不能,为什么? 第二天早朝时,吴王会怎么对大臣么说取消攻打楚国的事.请替吴王写个发言稿.注意写出人物的神情、语气等.急100到200字之间 细胞之间的信息交流图二中①表示什么,②表示细胞膜上的什么,其化学本质是什么. 碳片与碳-12、碳-13一样都属于碳的同位素原子(这句话为什么错?)附:科学家利用精密的仪器把石墨折成只有一个或几个原子层厚的“碳片”,碳片为世界上最薄的材料. 那些进行科学研究的科学家,怎么记得了那么多公式,定义,还有各方面的应用技术我在大学读通信工程的,看到那么多定理、定义,头就大了,不知道那些研究员怎么记得了那么多东西来进行研究 鲁滨逊用了几年时间造了一艘木船不要答非所问 还要是在荒岛上做的船 work on it had begun 为啥不用被动? 夜雨寄北 译文 鲁滨逊造木船的经过 什么叫做离子 细胞识别与细胞间信息交流细胞识别与细胞间的信息交流有哪些区别? 鲁滨逊在海岛上造独木船的过程请看好题目在答 行么. 什么叫做“等离子”商埸里有卖一种“等离子”电扇这是什么原理的电扇呢 鲁滨逊造木舟之后有没有下水 自上高二后,语文竟成拉分项 每次90多(150)原来语文一直是长项的啊,现在却.作文较弱 尤其材料作文平时有看书 有做题 听讲啊,看着平时睡觉不下功夫的人都轻松的拿高分 更心里不平衡了 书本知识一定要通过实践才能真正变成自己的学问.举出一个例子说说《冬夜读书示子聿》告诉我们:书本知识一定要通过实践才能真正变成自己的学问.你也有这样的体会吗?能举出一个例子 吴王准备出兵攻打楚国为什么遭到了一些大臣的反对要仔细一些的吧! Don't worry.You shall get the book you want this Friday ,____according to the record,(————接上)Mr..Clark is to come to return it.A afterB whileC whenD while脑抽了 D 是when 举一个例子说曾经从以上哪种传,获得了说嘛知识汽车排放污染物百分之90来着什么,因此许多国家制定了控制什么的标准 吴王准备攻打楚国,大臣为什么要反对? He got his book this Sunday.(改为否定句)I _____ _____ his book this Sunday. 什么叫等离子?如题 you could help—— the desk a repairing b repair c repairs drepaired 与蛋白质有关的氨基酸在人体其他部位的细胞内是否存在,简要说明理由?重赏. 什么叫离子 …… 求高手剖析电路(要微观~,如里面的电子如何移动等),我是高2的新生,刚学完物理第一章电场,和第二章电路,譬如,学的电势差就是电路中的电压,为什么电路中有电压,为什么串联电路的电流会保 There is a c___ on the desk .you can get onlionC是单词开头的字母! 神经细胞存在身体的哪个部位呢?最好有图片 中国三大海峡之一—琼州海峡阅读答案 what's the matter?my desk is broken it's requires_________ A repair B repaired C to repairD repairing,Q1036592830,还有题 肝细胞蛋白质代谢图,那里错了?有图 关于细胞间信息交流叙述不正确的是A、信号分子与靶细胞的识别与结合具有专一性B、与不同激素分子结合的受体是不同的C、胰岛素和甲状腺激素的受体分布在不同的体细胞上D、细胞间的信 鲁滨逊的船造好了,他一定会设法离开荒无人烟的孤岛.那么,他是怎么样离开孤岛的?他经历了怎样不可思议的航行?请你充分发挥自己的想象,把故事接着写下去.不少于400字. The bottle---------milk,so you can drink some 台湾海峡,琼州海峡,直布罗陀海峡的英文是什么?请分别注明! 鲁宾逊在第几次什么时,船在途中遇到袭击,鲁宾逊来到荒岛 人的六大器官有哪些? 美国承诺不再窃听联合国 对此前传闻不中国—东盟能源合作进入“零关税”时代中国驻圣彼得堡总领事和留学生谈梦想中国军方就日舰闯入我演习区提出严正交日本发现一种化合物可预防糖尿病等疾病全球发展中国家每年新增200万名15国防部回应安倍抗衡中国言论:不自量力澳大利亚利用“特等舱”为美国搜集亚太我军2名专家将赴叙利亚执行化学武器销埃塞俄比亚“中国通”总统:中国值得埃“中国周”活动走进墨西哥高校国防部就日舰机闯入我演习区干扰演习提野田:小泉时代便开始探讨“购买”钓岛我军2名专家将赴叙利亚执行化学武器销日方渲染“中国威胁”旨在为扩充军备制陈昌智会见缅甸联邦议会代表团中国赴马里维和部队准备工作就绪国防部:日方有关言论颠倒黑白不自量力国防部:日方应习惯并接受别国合理合法国防部就日舰机干扰我军西太平洋演习提金正恩观看火力打击训练 欲打造精锐强滘口汽车站19日迎客流高峰广东平均一个家庭只有3.2人2016C罗独孤求败翻墙潜入别墅盗走近20万财物惯偷换装里氏国足,何时破荒?教师资格考试:后日报名3月11日考这套放松操助你缓解路途疲累罗斯临阵玩“失踪”怀疑治疗错误加重病情男子杀害医生被判逾一成符合政策家庭生了二宝将“八年抗战”改为“十四年抗战”时报体育频道爸爸昨日终于带她回家了算命师接生婆证案犯年龄?靠谱!近距离、多角度感受南沙警务微创新成果广州市副市长简历传达学习中央有关会议和省委经济工作会猎德村摘市千村足球赛冠军景点织毛衣上 来个二重合影今起到周日小雨加强党风廉政建设和反腐败工作推动全面
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘