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

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
《近匠》专访小熊尼奥:从软硬结合到IP合作,AR产品的机遇 W3C启动Web支付标准工作,推进在线结算流程 W3C中国区会员沙龙在京召开 W3C CEO Jeff分享W3C未来发展重点 【SDCC讲师专访】车轮互联总架构师韩天峰:PHP是最好的编程语言 SDCC 2015讲师专访精彩集锦(一):你想知道的,都在这! (入门篇)带你走进Erlang 【大神来了】Elixir语言设计者José Valim:释放Erlang VM的能量 【SDCC 2015讲师专访】刘小溪:Vert.x3的异步框架实战 【CTO讲堂】支付接入开发的陷阱有多深? 程序员界“香饽饽”、大神级别人物集体亮相——SDCC 2015编程语言专场议题曝光 【CTO沙龙】CDN在共享经济下的创新应用 深入浅出Fetch API 带你入解应用场景及适用问题 SDCC 2015讲师专访精彩集锦(二):途牛网、饿了么、快的等大牛都来了 百度、饿了么、美团专家齐聚SDCC2015,剖析前端开发核心技术 【SDCC讲师专访】百度乔刚:前端可视化难点分析及探索实践 【CTO讲堂】Growth Hacking背后,数据分析平台的架构调整 BAT、巨杉、南大、柏睿等齐聚SDCC—新一代数据库专场议题曝光! 《近匠》BeeCloud创始人黄君贤:三行代码集成支付的技术实现 【SDCC讲师专访】AdMaster技术副总裁卢亿雷:分布式数据库挑战与分析 tvOS真的代表了应用的未来吗? 使用Fetch API和ES6生成器构建异步API Android应用性能优化实践 华云数据:OpenStack的技术践行之路 【SDCC讲师专访】腾讯潘安群:腾讯云金融级数据库TDSQL分析 高颜值、高品质——安全技术论坛议题曝光! 移动应用开发者正饱受折磨 在Android平台上加载本地库的危险性 《近匠》程序员客栈,程序员背后的经纪人 【CTO讲堂】浅析工业级物联网项目的快速开发 云适配陈本峰:平台型企业级浏览器是未来办公移动化的核心 警报:XcodeGhost已扩散至第三方框架 TADOTable如何实现记录定位?——求救! 谁知道怎么让WEBLOGIC中消息驱动BEAN的例子MESSAGE跑起来?.. 請問各位為何javabean在suse linux的調用問題 请问如何在weblogic中设置一个jms topic?. 请教关于游戏平台的问题!! 使用QuickVxD不能生成 .h ,.cpp .mak文件,那里不对? 请问:框架(Frame)为什么不能动态生成两次 ????????????? 在win2k下有人知道ActiveReports报表怎么自定义打印纸张大小 大家讨论一下运算符重载的问题!!!! 位操作问题?欢迎各位朋友讨论! data控件能连接sqlserver数据源么? 有没有办法使重复的值只显示一个,空值不显示也不要占位置?(急呀!!!) 用TURBO C2.0能不能写32位的软件? 如何设置WN98中的硬盘驱动器盘符 SOS pekie 请教啦! 投影仪投出的图像中间部分呈粉红色,是不是投影仪坏了? 在MYSQL中我想修改root密码,可是总报错说user表是read only,如何把只读的属性去掉? 关于开发网络麻将游戏需求的问题。。谢谢。 关于jsp或applet调用本地DLL的问题 在BCB中如何添加自己的类? 关于APPLET从服务器下载图片的问题! 建议下一次改版的时候考虑一下这个问题:CSDN 的很多页面好像用NetScape不能浏览? 我不用IE很多年了, 因为太容易死机 有没有做股票的朋友? 急!!!50分求购一个在程序中实现按下按钮功能的小程序,多谢了 在图象上的汉字显示问题 请问谁知道把AVI文件转换成BMP位图数据的算法 圣诞快乐 用什么工具可以从exe文件中把资源文件,如图像、图标提取出来? Word与Delphi的结合!高手请进! 贴子为什么掉到第二页上再UP就回不到第一页去了?见龟!——千山一刀 ^^^^^^^^^如何配置sybase的clinet端????^^^^^^^^^^^^^^^^^^^^ 进程与线程 在win2000系统下,构建asp+sql的web站点,但在web页中无法显示出小数点前的零? 如何配置sybase的clinet端? 关于webbrowser。 TO:riolee(随风) 关于directshow的 开始菜单中的运行找不到 请问各位谁能提供 CString 里有一个operator LPCTSTR,难道这个LPCTSTR也可以被重载,它不是操作符啊,也不在可被重载的范围中啊? 请问到何处用蚂蚁下载photoshop6.01软件 在UPDATE的时候,如何返回受影响的记录个数?[Oracle8i] 请问各位谁能提供jpeg文件格式的中文说明??????????????????? [question]tmd的,有人惹我,怎么办 Windows CE, Windows NT Embedded等嵌入式操作系统和相关开发工具在上海如何购买??? mobile web application 里的softkey到底是怎么回事呀 [心情不好]砂粉阿 告他[我好伤心] 将2进制(16位)转为16进制(4位),怎么做? 请教!( VC.NET 里面怎么使用 MSFlexGrid ? JAVA的版本问题 哪儿有C#单独的编译器下载啊 代数式3分之x+y+z的意义是______________. 12和13题,13题过程要完整 求11 12 使代数式2x-3分之x-1有意义的是 求解12和13题, 11,12,13题 代数式3分之x+y+z的意义是(). 12和13题要过程的 北师大附小六2班共有学生60人.其中13岁的占百分之五,11岁的占百分之十,其余的都是12岁.六2班11岁的和13岁的一共有多少人?12岁的比11岁的多多少人? 12和13题. 甲数乙数的3倍,甲乙两数的和是104,甲数是多少.我急用呀朋友们帮个忙! 育才小学六(1)班同学做广播体操,体育委员在前面领操,其他学生排成每行12人或每行16人都正好是整行,这个班至少有学生多少人? 求第12和第13题的详细解答过程 如图所示,正方体的每一个面上都有一个自然数,已知相对的两个面上两数之和都相等,13、9、3的对面的数分如图所示,正方体的每一个面上都有一个自然数,已知相对的两个面上两数之和都相 11 12 13 在△ABC中,已知a=7,b=8,cosc=13/14,求最大角的余弦值? 将正整数按如图所示的方式,每层四个数分A,B,C,D四个方向连续的排列下去.请回答下列问题(1)2013排列在什么方向上 B方向的第100个数是什么(2)书否在某一层上的四个数和为200?为什么(3) 11 12 13 14 在△ABC中,若tanAtanB=1,则cosC+cosC等于多少 有甲,乙,丙三个数,甲,乙两数的和是90,甲,丙两数的和是82.乙丙两数和是86.甲,乙,丙三个数的平均数是多少? 求解11、12、13、14题 11.12.13.14,做几题都OK,D 第11.12.13题 请解答第11,12,13,14题 11.12.13.14 麻烦您了, 11题 12题 13题 当x为何值时,分式|x|-2/x的平方-2x的值为0?要有过程啊 A+B+C=16,若ABC分别代表不同的数,那么A+2=B-2=C*2,那么A是(?.. 在三角形abc中,角a+角b=104度,角b十角c=95度,角a、角c、角b各是多少度 在等腰三角形ABC中,∠A=4∠B,则∠C=在等腰三角形ABC中,∠A=4∠B1.若∠A是顶角,则∠C=2.若∠A是底角,则∠C=若等腰三角形的一腰上的高与另一腰的夹角为30°,则其顶角的大小是_____度 (1- a²+8/a²+4a+4)除以4a-4/a²+2a abc代表3个数,在5·A·B·C·20.4这5个数中,从第二个数开始,每个数都比前一个数大 N .A·B·C和N分别是 已知三角形角A加角B等于106度,角B加角C等于95度,求角ABC各是多少度 若代数式(x+1/x+2)/(x+3/x+4)有意义,则x的取值范围是 若a+b+c=0则abc三个数中A 至少有2个负数 B有且只有一个负数 C 至少有一个负数 D有且只有一个正数 11.12.13题需要解答 (1-10分之1)×(1-11分之1)×(1-12分之1)×····×(1-100分之1)快,thank 11.12.急 11.12.13题解析 10*11份1+11*12份1+……59*60份1简算 字母A,B,C代表三个不同的数字其中A比B大B比C大若用数字A,B,C组成三个三位数相加的和为777这三个数是 11,12,13题, 若代数式 x+2/x-1除以x/x-1有意义,则x的取值范围是什么? 字母a、b、C代表不同的数字,其中a比b大,b比C大,如果用字母A B C组成的三位数相加的和为777那么C等于?A B C+B C A+C B A______=7 7 7A B C+ B C A+C A B_________=7 7 7 在三角形ABC中,角A+角B=104度,角B+角C=112度,求角A角B角C各多少度? 代数式x+2分之x-1除以x分之x-1有意义,则x的取值范围是?急如题 a+b+c=16 a+c=9 b+c=5 abc各是多少 11.12.13题的答案 2又5分之4*0.6-2又4分之1除以1又3分之2+0.55*1又5分之1 高一数学,12.13题,要过程 当x 时,分式2x-4/1+x的平方的值是负数急! x 取( ),代数式x+3/x-3 除以 x+2 /x-4有意义 右边的竖式中,ABC个代表一个数字,请你求出它们个代表哪数字A B CA B CA B C+ A B C7 7 7A =( ) B = ( ) C= ( ) 当x()时,分式1+x的平方分之2x-3是负数 [170+1 /12] ×1 /13+11 /12 A B C +A B C =B C C 竖式 ABC各代表什么数字 在三角形abc中,若角A:角B:角C=2:3:4,求A,B,C弧度数 有正方形A,B,C,A的面积是B的4分之3,B的面积是C的8分之7,那么ABC的面积比是多少? 设a,b,c为有理数,数由a/|a|+b/|b|+c/|c|+abc/|abc|构成的各种数值? 在三角形ABC中,已知a:b:c=2:√6:(√3+1),求三角形的各角度数
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn