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

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
思科 IBM 微软等巨头联合开发开源SDN项目OpenDaylight 巾帼不让须眉:2012年度云计算领域Top 10女性 中移动全力推进NFC 5月起乘公交可刷手机 支持Android与iOS,Qt 5.1 Alpha全新亮相 Google Play:劣质Android应用已无藏身之地! 360推出信用网站认证开放平台 联合百家协会围剿钓鱼网站 经验分享:百度测试架构师眼中的百度QA(一) 在线旅行服务行业开放API带来的新机遇 专访:悬疑恐怖游戏Year Walk美术及音效设计师 解密:微软都柏林数据中心的神秘“免费冷却”装置 云计算如何影响数字化营销? 榜单:十位帮我们打理数据的存储大佬 OpenStack Grizzly版发布 Comcast、CERN成为新会员 谷歌携Blink来势汹汹 WebKit将成明日黄花? 星巴克与苹果合作 顾客可免费下载付费App 微信回应信令争议 将启动2.5G网络优化计划 凤凰网CTO吴华鹏离职 先后供职长达10年 外媒:开发者每周编码时间仅19.1小时 AppGratis CEO现身说法:应用被苹果儆杀始末 一个Web设计师眼里的云计算 戴尔高管:服务器业务领先惠普五年时间 Hoodie:基于JS与CouchDB的超快速Web开发框架 设计优秀API的五大规则 盘点英特尔IDF2013第一天:技术产品新趋势 英雄组队去打怪!Nimble Quest开发团队访谈 云通讯平台打造本土Twilio 被逼无奈?传微软或明年秋发布iOS和Android版Office 欧洲各国政府将向大众开放公共数据 访联想云存储罗予晋:优化MooseFS,共建生态系统 磊友创始人赵霏:关于HTML5与Flash争执之我见 国际混乱C语言代码大赛优胜作品详解之“A clock in one line” 应用程序性能评测器 (APE,Application Performance Explorer)大家有没有使用经验?来交流以下了! 关于outlook express和MSN Messager的问题 我想从指定的文件初始化 Bitmap 类的新实例。我怎样才能更改那个新实例的大小和分辨率呢? 各位软件开发人员:大家都看到了IT市场的不景气,你们各自有什么看法,请发表意见!!! 送分了! 菜鸟提问: 用TDBNavigator + DBGrid删除记录时,会弹出一个英文的删除确认对话框,请问如何去掉该对话框? 急!!!win2000 server安装server pack 2重新启动进入系统后,一切都变成黑白的了???怎样解决?谢谢! 大家帮忙,哪里有datalist中绑定datalist或者datagrid的例子啊? 分啊 程序发布 dephi中用哪个函数可以解决两个日期的差,要求精确到分钟! 谁知道ipvod的透屏技术? 怎么从没有信任关系的网域的机器B上copy文件?有一个可以访问B的账号和密码. jsp中如何实现树状结构? applet 与servlet的通讯 请大虾们进来看看 请问大家如果使用了两个session会有什么影响吗?? 中国古典四大名著教给我们什么? 在iis中,如果需要让访问每个主页的用户都看到一个主页通知,该怎么做?就好象是做一条广告一样 怎么开始学习JAVA,没有c++的基础,很困惑 请教专家高手有什么好建议,谢谢 wingsun,bcb等大虾帮小弟看看这个"参数错误"的问题.谢谢 如何理解连接身份 如何用TURBO C编背景音乐? 我用exec() 来执行notepad.exe , 用它来打开我想要的文本 , 可是并没有得到notepad.exe执行。 你是想找一个爱你的人还是会找一个你爱的人? VC++中如何列出SQL_SERVER服务器?急救!!! 发展方向的问题??? 急救!!在线等待!!关于XmlHttp!! 关于wsad的使用上哪个论坛比较好,请大家推荐 关于Windows CE下面的密码验证 关于Visio2002版的安装问题 搞不定了:为啥我的EnumWindowsProc会引起outlook提示?附源码 给中国足球的一点建议,如果照着这条路走,20年后中国队还可以闯进世界杯 急急急!!关于打印问题!!!!!!!! 有谁在WIN2000P+ORACLE805安装了PROC? 寻找北京地区的兼职项目. 谁知道VB MSDN在哪里有下载,我给分! 关于Visual C++的编译器手册。 在一个程序中如何控制Ftp的执行??(急,用windows API实现,不是MFC) vb.net安装和vb6冲突么? 关于JDialog的问题! 各位帮帮忙,怎样读写一个二进制文件?急!!!!!!!(答对了给高分) 有些什么好的中程书籍??? 如何动态的切换数据窗口呢? 各位任兄,谁知道如何对jsp文件加密,就像php那样 为什么自定义过程,出错。说[Error] Unit2.pas(29): Undeclared identifier: 'NMFTP1'unit Unit2; 浏览器插件讨论 问一个Linux下安装软件的问题,太弱了别笑!!!! 急急急:如何让dbgrid控件实现排序功能,,100分 新手问题~~帮帮我啊~~ 求救一个问题,PID_SYM符号表看不到,我是一个上传的程序里面有一个PID,看不到PID_SYM符号表,我试了一下,新做的程序,做完PID块就有D_SYM符号表,但是上传的怎么能看到?麻烦告知一下, 山地车飞轮下面两个小齿轮和飞轮不在一条直线上 骑起来有响声 什么材质的地毯是防静电的? 铝与稀硝酸反应吗 怎么在家做大块盐结晶和糖结晶 使用防静电地毯,防静电桌垫手腕时注意哪些事项 如何把握主观能动性和客观规律性的辩证关系 盐结晶怎样做? 大连地毯清洗,如何清洗地毯,如何保养地毯 汽油的质量谁管我是搞摩托车修理的,这一阵子来了好多奇怪的毛病,4冲程车气门涩住关闭不严不启动或由于气门涩住不回位被活塞顶弯 出这样毛病的车进气口处都有沥青样的粘稠物;更厉害 难道从月球上带来的尘土能杀灭病菌吗?是什么句?这是 小学语文三年级 第22课 《月球之谜》中的一句话,同事们有说陈述句,有说反问句,真搞不清楚了 麻烦哪位名家指点迷津~~~~~~ 在稀硝酸中放入铝片产生N0.请问这体现了稀硝酸的强酸性吗?为什么?酸与金属反应放出氢气不才体现了其强酸性么? 汽油箱加油管上的延伸管有什么作用? 小数补码怎样移位正负小数补码怎样左右移位, 泡沫垫有毒吗 汽油2KW发电机发出的电,一会有电,一会没有电,请问是什么原因?怎样处理? 人要忠心,火要空心 是说柴火要架空一些,与充足的氧气接触,燃烧得才更旺,请再举出一个与燃烧有关的俗语或者诗句, 什么是移位修饰法? 非链传动变速自行车现在人们每天都能看到链式传动的自行车,如果不用链式传动,那又会怎样,比如说用齿轮、连杆、皮带,那会是怎样传动呢?希望有兴趣的一起讨论一下了我关键想知道不用 为什么燃着的火柴一吹就灭,而灶里的柴火越吹越旺?说出理由 清楚一点 求补码一位乘(booth乘法 比较法)计算x=11011y=-11111求x*y的详细过程 六级变速自行车车速是多少?我打算买一个这样的自行车,请问车速可以到多少? 为什么人吹灯灭,而吹一堆柴火时,火更旺? 怎么样让食盐结晶 石灰石的化学方程式? 为什么湿柴火会冒烟?冒烟算是真正的燃烧吗?燃烧后的产物是炭吗? 生活中哪些应用到了滑轮、轮轴、齿轮?并说出是哪一部分应用到的.(各6个) 静电是怎么回事 山地车能用自行车脚蹬吗?为什么我用了自行车脚蹬一个星期就坏了,山地车的脚蹬和普通自行车的脚蹬那个好 什么字代表燃烧一切的火焰 除去冰醋酸中少量水常用的方法是?(单选题) A 加热 B加干燥剂 C蒸馏 D加入醋酐 E加入浓硫酸 山地车骑行的时候产生嘎吱嘎吱的声音,大概在脚蹬子和中轴附近.但脚蹬子和中轴都换新的了. 产生火焰的一定是燃烧么,燃烧一定产生火焰么?为什么? 亲们.硫酸锰(MgSO4) 做干燥剂 除去 有机相 里面的 水时,一般加多少呢?是硫酸 镁 打错了,不好意思。 【科学】关于自行车,下列说法错误的是( ).A.自行车车把是省力轮轴 B.手刹是省力杠杆,脚蹬是省力轮轴C.中轴和大轮盘组成省力轮轴 D.后轴上的小齿轮和后轮组成滑轮组 燃放烟花爆竹有什么危害 为什么有静电 用嘴吸一下汽油,汽油就可以源源不断的流出来,这个原理是什么? 春节即将来临燃放烟花爆竹会带来什么样的危害 吊扇调速器和吊扇是怎么连接的?串联还是并联?调速器是不是相当于变阻器?若是串联,是不是通过调速器调阻改变吊扇电机两端的电压来实现调速的? 嘴里进了汽油要怎么样吧汽油味去除掉? 问什麽摩擦力做功既与始末位置有关,又与路径有关? 人为什么会起静电啊? 列化学方程式并计算将黄铜样品粉末(含锌铜)7g,投入到49g稀硫酸中,恰好完全反映,生成氢气0.06g,求1:黄铜中通的质量分数是多少?2.生成硫酸氢的质量是多少? 泪干了 怎么办 人为什么有时候要带静电 实验室制取 O2 CO2 H2的 制法分别是什么 请写下化学方程式 泪干以后怎么从来 化学试验中除水的干燥剂有哪些 求帮列下下面的化学方程式(1)氢氧化铝与氢氧化钠溶液反应(离子方程式) (2)氯化铝溶液中加过量氨水(离子方程式) (3)除去乙烷中混有的乙烯,可选用试剂______.(5)2,2,3-三甲基 珍珠是贝痛苦的结晶,是海的泪.修辞手法 现在自行车与脚踏板连接的那个齿轮尺寸有国家标准么?包括山地车等等 结合社会主义建设的实践经验谈谈如何把握主观能动性与客观规律的辩证统一关系错了要求是1200字 珍珠是贝痛苦的结晶,是海的泪.运用的修辞手法 发动机高压油管为什么要弯曲 自行车的后轮及其中间的小齿轮(飞轮)也是一个轮轴装置,对此下列说法正确的是( ) A.作用在该轮轴上的动力小于阻力B.作用在该轮轴上的动力大于阻力C.作用在该轮轴上的动力等于阻力D.以 防静电地毯真的可以防静电吗? 月球上的尘土 可以杀菌吗 自行车的后轮及其中间的小齿轮,也是一个轮轴装置,对此,下列说法正确的是A.作用在该轮轴上的动力小于阻力B.作用在该轮轴上的动力大于阻力C.作用在该轮轴上的动力等于阻力D.以上都不对 铺地毯的屋里怎样防静电
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘