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

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
移动游戏峰会(上):小团队如何做出大制作、游戏防作弊攻防战 深圳微信开发者大会:拒绝概念 这次只谈“怎么做” AMD应邀出席HPC China 2014,重磅推出新一代Firepro-S系列高性能显卡 你就是主角,MDCC 2014交流对接活动回顾(组图) 解读最具O2O属性—哈根达斯微信企业号的成功之道 值得Java开发者参与贡献的十个开源项目 LokiJS:纯JavaScript实现的轻量级数据库 OpenStack第七次北京Meet Up:谈私有云现状 中国电信携手电商打造跨界O2O联盟 【MDCC 2014】移动开发技术与平台峰会(下):系统演进、应用数据泄露风险 惊喜太多 IntelliJ IDEA 14正式发布 欧派、南航、招行、哈根达斯等加盟 深圳微信大会第二批讲师议题公布 【MDCC】用友高级副总裁谢志华:企业移动化的变革与挑战 HTML5定稿了,为什么原生App世界将被颠覆 走苹果的路子!Jawbone推低端健身追踪设备 专访POWER 8编程挑战赛选手吴亮:集众家之长, 激发算法性能极限 微信沟通接口上线,开启移动应用与公众号的连接 【特惠最后1天】参加深圳微信开发者大会赠书及全套讲师讲义(附大会最新日程) 编码运行两不误!KZPlayground,Objective-C中的Playgrounds 专访PopCap:AR是数字与物质世界的调和剂 【多图】Github编程语言分布统计:JavaScript称霸 【最具价值CTO评选秀】途家美女CTO杨孟彤:不创业会后悔 2014腾讯WE大会:开启未来的五大科技发展趋势 TIOBE 2014年11月编程语言排行榜:R受大数据影响跃至12位 深圳微信开发者大会全部议程出炉 最后仅剩30个参会名额 智能硬件:一半海水,一半火焰 聚焦SDN、NFV、云安全基础架构等技术热点 2014云安全联盟高峰论坛即将召开 富Web应用开发的七大原则 应用原型设计毫无压力!开源Sketch插件管理器Sketch Toolbox 【MDCC专访】友盟副总裁焦岳:从36万款App,看今年的热门领域 一切只为经典 微信开发者大会前瞻(附议程) DLL编程错误,请高手指教一下!! 活见鬼,真气人....... 问一个trigger问题? 问一下:我的char*都用_T("asdfsafd")表示了,资源也没任何问题,可有时候运行程序显示乱码 在论坛里,发一个帖子新开一个窗口,当发完后让原来那个窗口刷新一下 我的机子到底怎么回事???? 我试试.. CListCtrl中如何选定整个一行? 来到济南天气太热,特来送分 ★★★★★ 见于现在伪ID和盗用密码的现象十分嚣张,我提议…… ★★★★★ 请教各位,我用vb6.0访问ms sql7.0数据库,为什么有时出现,“过期,数据已超时?” 请问COM和DLL有什么区别和联系?(30分) 关于侯老师 win95-a-developers-guide 一书的源配书... ISAPI中不能存取ASP中的Session、Application变量?高手你老人家在哪里? 大家来看看这些招聘题目合不合适 提一个网页制作的问题哈,大家不要扔西红市啊,网叶制作可是程序员的基本技能之一 activeskin里的skinbuilder有谁用过???来讨论吧 我在msdn上看到vb中的字符串有两种:定长字符串和变长字符串。请问如何分别声明这两种类型? 怎样在ADO中引用已打开的recordset的某一字段值,请给几个例,谢谢了! seedundersnow and holyfire help me!about 8253! 谁有cute ftp 4.2.6 beta的注册码 请问如何把页面查询到的记录导入到Excel中呢? 有用过TAdvStringGrid的吗?OnGetEditorType( )为何不被调用? 请教高手如何用Xsl编制函数控制Xml??急急 哪位给一个MD5的例子!谢谢了 长春的李延生来领分 求救:一个VC中多线程的问题 提个问题,原来对VC尤其是界面和C++语法这一块比较熟,现在由于公司需要转C++BUILDER,难不难,需要熟悉哪些 [总300分,会继续加分]哪位大哥用编程实现过创建SQL Server的DTS package并且run the package的全过程[急] 能不能使用html 压缩中提到的文件头有什么作用 , 保含哪些信息 菜鸟问题1 提一个网页制作的问题哈,大家不要扔西红市啊,网叶制作可是程序员的基本技能之一。。。。。。。 关于:import java.util.StringTokenizer; 问题! 如何实现在某特定时间(如每月1号,或7天后)执行特定asp程序? 在开发工具中如:(vc,jsp)中如何得到oracle中自定义函数的返回值 当form被移动的时候会相应什么事件的? 关于使用mscomm32.ocx中的一些问题 类似股票信息显示系统的问题(图形显示) 强烈抗议:无怨无仇,为什么冒用我的ID 写一些乱七八糟的东西????? 一个简单的线程问题! 请问高手:两个类之间的关联关系如何实现? 各位请问, 我的系统要求支持三种语言, BIG5,GB2312,ENGLISH,数据库应该怎样设计!! 求救!!!vfp ,控件 optiongroup1, 属性 ButtonCount=N,如何给第N个OPtionN.Caption赋值 假如上天给你一个机会。。。请看过来。。。 如何配置IIS 使其利用TOMCAT 支持JSP AND SERVLET ? 请问:ORACLEH中保存每列的数据类型的系统表名叫什么? !!这个简单的问题,没解决!!!给分!! 对公的帐号不能向私人帐号汇钱,怎么办? wm_keydown 中 wparam 和 Lparam 中高位和低位所表示的意思是何东西 我用 ADO 从数据库里读数据,当记录实在太多了的时候就死机了,该怎么办? 解方程:5x2+7x+12=0五x的平方+七x+12=0 (2012•台湾)判断下列哪一组的a、b、c,可使二次函数y=ax2+bx+c-5x2-3x+7在坐标平面上的图形有最低点?(  )A.a=0,b=4,c=8 B.a=2,b=4,c=-8 C.a=4,b=-4,c=8 D.a=6,b=-4,c=-8 设X1,X2是一元二次方程X²+4X-3=0的两个根,2X1(X2²+5X2-3)+a=2,则a=? x减0.7x等于3.6 分解2x四次+3x三次减5x2次+3x+2 计算:1的平方-2的平方+3的平方-4的平方+5的平方-6的平方+...+2001的平方-2002的平方+2003的平方-2004的平方. x-0,7x等于什么 若x3+5x2-12x+m有因式x-3.则m=? 1.(2√3-3√2)的平方 2.(3√5+2√6)(2√6-3√5)3.√2(√2-√6)+(1+√3)(1-√3)4.(2√3-3√2)(2√2+√3) X-0.7x等于多少 下列何式为5x^2+17x-12的因式?A:x+1 B:x-1 C:x+4 D:x-4 说出理由啊 , (x+2)(x-3)-2(x-6)(x+5)-3(x平方-5x+17),x=5.5 5x2=1打 成语5x2=1打一成语 分解因式5x2+6xy-8y2 (1/2-3+5/6-7/12)*(-6)的平方 1分之1等于1是什么成语 设x2+ax+b是xn-x3+5x2+x+1与3xn-3x3+14x2+13x+2的公因式,则1+a+b=() 1=1的平方 1+3=2的平方 1+3+5=3的平方 5x2 =1打一成语 抛物线y=-0.5x2+2.5x-2与x轴相交于点A,B,与Y轴相交与点C.1.求证:ΔAOC相似与ΔCOB2.过点C做CD//X轴交抛物线与点D.若点P在线段AB上以每秒1个单位的速度由A向B运动,同时点Q在线段CD上也每秒1个单位 (√5+1)(√5-1)= (2-√ 7)(√7+2)= (2√3+1)平方 (7-√3)(2√3+1)=(√5+1)(√5-1)= (2-√ 7)(√7+2)= (2√3+1)平方=?(7-√3)(2√3+1)= 1*1等于1,根据提示写成语还有12345679 24.(13分)如图,在平面直角坐标系中,直线y=-x+3与x轴、y轴分别交于点B、C;抛物线y=-x2+bx+c经过24.(13分)如图,在平面直角坐标系中,直线y=-x+3与x轴、y轴分别交于点B、C;抛物线 -4的平方+3×(-2)的平方+(-5)÷(-3分之1)的平方 0+0等于一什么成语 已知:如图12,抛物线y=-4/5x²+mx+4与y轴交于点C,与x轴交于点A、B,(点A在点B的左侧)且满足OC=4OA.设抛物线的对称轴与x轴交于点M:(1)求抛物线的解析式及点M的坐标;(2)联接CM,点Q是射 观察1的平方+2的平方>2*2*1 3的平方+5的平方>>>> 拍立得相机拍出来的照片效果相当于数码相机的多少像素 如图,抛物线y=-0.5x2+0.5x+6,与x轴交于A、B两点,与y轴相交于C点已知E点(0,-3),在第一象限的抛物线上取点D,连结DE,使DE被x轴平分,试判定四边形ACDE的形状,并证明你的结论为什么D坐标是(3,3) 1+2+3+4+5+6的平方 9 8 7 6 5 4 3 2 1中间加上加减号等于21咋写 急 如图,抛物线y=-x²+5x+n经过点A(1,0)与y轴交于点B 杨辉三角形有什么规律? 5X^2-2根号15X+3等于0, 5x2-4(a+3)x+a2-29=0 谁能帮我讲一下杨辉三角 我数学不好,有点看不懂,有一道例题(x+2)^5 我想知道系数确定了,剩下怎么办 若y等于根号下5x减1再加根号下1减5x,则5x加y等于几 5X2—3因式分解 谁能告诉我杨辉三角中有哪些数学规律啊~~~ 大家帮帮忙了哦~!~~! 已知A=4x²-10x+8,B=5x²-6x+8,C=2x²-3,①求(a-b)*C②当X=-2时,求(A-b)*C 2x一10二4.5x2怎么算? 数学上杨辉三角怎么运用?如求(a+b)^4 ,(a+b)^5 ,(a+b)^6等,怎么运用杨辉三角来简便运算?(系数我懂,是依次来的,可问题是那些字母的幂数是怎么安排的?)也可以举几个例子让我看懂就好, 4/5x2=4x2一5x2=8/10=4/5是对还是错 (负1减二分之1)乘(负1减3分之1)乘.乘(负1减10分之1) 椭圆5x2+ky2=5的一个焦点为(0,2).求k的值这是一道椭圆方程题,请书写全过程. 当x变化时,分式3x2+6x+5/0.5x2+x+1的最小值为多少3x2,0.5x2指3倍的x的平方,0.5倍的x的平方尽量按一元二次方程格式 (负3又3分之2)十(负6分之一)= 点(0,4)是椭圆3KX2+KY2=1的一个焦点 求k 已知A=4x²-10x+8,B=5x²-6x+8,C=2x²-3,求(A-B)C分解因式 (负1.3)十[负4(负2负7)]= 椭圆8k2x2-ky2=2的一个焦点为(0,√7)求k的值.书里面没有过程的答案是:k=-1或-1/7再次抱歉!题应该是8k2x2-ky2=8我毫无怨言! 6x-6.5x2=8求方程 数学题所有的要过程3/5X2/11+2/11÷5/2 48X(1/2+5/6+3/8) 2又5/8X9.25+7又3/8X9又1/47/9÷11/8X(1/4+2/3) 7/18÷[(5/7-1/3X7/16] 请不要嫌麻烦 若椭圆2kx2+ky2=1的一个焦点为(0.-4),则k的值为 已知A=1-x2,B=x2-4x-3,C=5x2+4,求多项式A-2[A-B-2(B-C)]的值,其中x=-1 超急! 利用EXCEL确定x3-5x2-4x+6=0近似解?1)x为-9、-8、-7、-6、-5、-4、-3、-2、-1、0、1、2、3、4、5、6、72)x为-1.6、-1.5、-1.4、-1.3、-1.2、-1.1、-1、……、0.6、0.7、0.8、0.9、1、1.1、……、5.2、5.3、5.4、5.5 已知F是椭圆5x2+9y2=45的左焦点,P是此椭圆上的动点,A(1,1)是一定点,求|PA|+3/2|PF|的最小值,并求点P的坐标 已知多项式x2-(a-1)x^3+5x2-(b+3)x-1中不含x^3和x项,求a、b的值 设x1、x2是一元二次方程x^2+4x-3=0的两个根,2x1(x2的平方+5x2-3)=_____ 3(x+1)的平方-5(x+1)=2怎么解
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn