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

在VB中制作单独程序封面的两种方法

HTML文档下载 WORD文档下载 PDF文档下载
在VB中制作单独程序封面的两种方法
辽宁铁岭 金永涛
这里所谓的单独封面,是只独立应用程序窗口本身的一个窗口,这个窗口在程
序运行时首先弹出屏幕,用于装饰程序本身,或简单的演示一下程序的优越性。这
样的封面在很多专业的WINDOWS程序中均存在,在VB中可有两种简单的方法实现这
一功能。
第一种方法:多窗体编程方法
此方法是通常采用的方法,即在程序中创建两个或两个以上的Form窗体,把其
中的一个作为专门的程序封面制作场所,具体方法:
1、创建一个新项目Form1,并在此窗体内安放Command1命令按钮,在Command1
-Click()事件中输入结束程序代码“END”。
2、单击菜单的“Insert"项目,加入一个新窗体Form1。
3、双击Form1窗体空白处,在Form1-Load()事件中输入如下代码,用于隐藏主
窗体Form1,置第二窗体为最大模式,并在运行程序首先显示和二窗体:
Private Sub Form-Load () ’隐藏主窗口
Form1.Visible = 0 ’窗口2最大模式
Form2.WindowState =2 ’显示窗口2
Form2.Show
End Sub
4、 在窗体Form2中定义全程变量:
Dim strr1 As String
Dim i As Integer
5、在窗体Form2中放入一个时间控件Timer1。
6、在窗体Form2中的Form-Load ()事件中输入以下代码,用于在窗体2中显示
图像,并置时间控件频率:
Private Sub Form-Load ()
Form2.Picture = LoadPicture("c:\windows\setup.bmp")
Timer1.Interval = 10
i =0
End Sub
7、在时间控件Timer1- Timer1()事件中进行程序封面的制作工作,演示简
单的动画,并控制此动画运行一段时间后自动停止,关闭程序封面,返回程序主窗
口;下面的代码实现在一个图片上随机显示字符串,显示30次字符串后自动退出。
Private Sub Timer1-Timer ()
Strr1 = "程序封面演示“
With Form2
.Font.Transparent =True ’透明显示字符
.Font.Size = Rnd *30+10 ’随机变化字号
.Font.Italic =True ’斜体有效
.ForeColor=RGB(Rnd*256,Rnd*256,Rnd*256) ’随机变化前景
.FontName =Screen.Fonts (Rnd*7+14) ’随机变化字体
End With
hh=Form2.TextHehght (strr1) ’取字符串高度
ww= Form2.TextWidth (strr1) ’取字符串宽度
x=Rnd * ( Form2.ScaleWidth-ww) ’随机改变坐标
y=Rnd *( Form2.ScaleHeight-hh)
Form2.Current X=x
Form2.Current Y=y
Form2.Print strr1 ’显示字符
i = i +1 ’计数
If i >30 Then
Unload Me ’关闭封面
Form1.Show ’调入主窗口
Timer1.Enabled =False ’关闭时间控件
End If
End Sub
 
8、为了能够人为地控制程序封面的停留时间,可在窗体Form2鼠标单击事件中
安放退出封面代码:
Private Sub Form-Click ()
Unload Me
Form1.Show
Timer1.Enabled =False ’关闭时间控件
End If
End Sub
至此工作全部完成,当运行程序时,首先弹出程序封面,封面上显示一幅·
BMP图像,之后在此图像上进行随机字符串的显示,字符串的位置、字体、字号、
前景色等值都是随机变化的,显示30次后自动关闭封面返回主窗口,演示过程中用
鼠标单击窗口也会返回主窗口,在主窗口中按下结束按钮退出程序。具体操作时还
有很多其它技巧,比如可以置第二个窗体为主窗体,这样运行时可自动先弹出程序
封面,可省略隐藏窗体和调入窗体的过程,另外第二窗体也可以在程序运行时由代
码动态生成,这样编程时复杂一些,但有利于程序代码的管理;程序封面的具体制
作过程,有许多动态图像控制方法可以使用,只要灵活动用VB的作图方法,再加上
一些必要的API函数的配合,会制作出理想的程序封面。
 
第二种方法:隐藏控件方法
多窗口编程存在着一定的复杂性,需要对多个窗体的·Frm文件进行管理,编
码时还需要频繁地在多个窗口间进行转换。实际上通过一个窗体也可以编制出类似
的封面效果。基本原理就是在程序运行时首先通过VISIBLE属性隐藏全部控件,然
后在主窗体内进行程序封面设计和演示,延时一定时间再恢复所有控件的显示,即
达到了独立程序封面的制作过程。由于窗体内的控件很多,逐一隐藏或显示非常繁
琐,可采用容器控件简化操作过程,即把控件全部放到Frame1等控件上,这样只要
执行Frame1.Visible=0,即可使其上面的所有控件隐藏起来。
c由于程序只涉及一个窗体,程序设计的大部分工作只是编码过程,所以不再分步
介绍。在窗体Form1中安放一个时间控件Timer1 和一个容器控件Frame1,再在
Frame1上安放一个命令按钮Command1,具体程序设计时可把所有主程序工作控件放
在Frame1上;之后把下面的代码填入相应的事件之中即可完成全部程序设计工作。
运行此程序后首先在全屏幕窗体内显示图像,并从左上角开始逐渐放大字符串“程
序封面演示”,放大过程中颜色发生平滑变化,形成美丽的拖尾效果,连续显示5
次后自动关闭封面,返回主程序窗口,同样立即关闭程序封面,返回主程序窗口,
单击主窗体中的命令按钮退出程序。
’定义全程变量
Dim i ,j As Integer
’退出程序按钮
Private Sub Command1-Click ()
End
End Sub
’单击窗体关闭封面
Private Sub Form-Click ()
Frame1.Visible =1 ’恢复容器控件
timer1.Enabled =False ’关闭时间控件
Form1.WindowState =0 ’恢复缺省窗口模式
End Sub
’准备工作
Private Sub Form -Load ()
Form1.WindowState =2 ’窗口最大化
Frame1.Width =Form1.Width ’调整容器控件尺寸
Frame1.Height =Form1.Height
Frame1.Top =0 ’调整容器控件位置
Frame1.Left =0
Frame1.Visible =0 ’隐藏容器控件
timer1.Interval =10 ’置时间频率
Form1.Picture =LoadPicture ("c:\windows\setup.bmp") ’装入图像
Form1.ScaleMode=3 ’置坐标刻度
Form1.FontName =“黑体” ’置字体名称
End Sub
’封面制作 (动画演示)
Private Sub timer1-Timer ()
Strr ="程序封面演示"
With Form1 ’透明显示
.Font.Transparent =True
.Font.Size = i + 1 ’放大字号
.Font.Italic =True ’斜体有效
.ForeColor=RGB(i*3,56,256-i*3) ’平滑变化颜色
End With
string =strr
Form1.Current X=i ’连续改变坐标
Form1.Current Y=i
Form1.Print stringg ’显示字符串
i = i +1
If i >72 Then ’放大到72号字
j =j +1 ’循环计数
i =0
Form1.Current X=72
Form1.Current Y=72
Form1.ForeColor =RGB(255,56,0) ’重新显示一次字符
Form1.Print stringg
End If
If j =5 Then ’动画计数
Frame1.Visible =1 ’显示容器控件
timer1.Enabled =False ’关闭时间控件
Form1.WindowState=0 ’恢复窗口模式
End If
End Sub



谁将是传统密码的终结者 专访民生银行:CPOS平台如何从线下布局移动支付 MathWorks程邺:机器人时代未来已来 Swift编程规范:保持代码优美的10个方法 中国第二届CSS开发者大会视频&PPT全部免费观看 如何基于Vert.x实现远程调用? Go 1.5如期发布,完全告别C代码 Rust一周集锦(三):关闭3个RFC并为1.4版本做准备 【CTO讲堂】多备份创始人陈元强:在线灾备革命背后的事 探索React:组件间通信过程解析 机智云完成2亿元B轮融资 将围绕信息安全与机器学习创建“机智云联合实验室” 【CTO讲堂】深度?广度?浅析技术人员的职业发展之路 详解React Flux架构工作方式 专访Tiny框架创始人悠然:好的软件设计是“品”出来的 开发移动应用的7大设计要点 历时一年半 现代Web框架Phoenix 1.0正式发布 【七问七答】对话Erlang核心成员Eric Merritt 分布式文档数据库MongoDB开发版本3.1.7发布 年末巨献!SDCC 2015中国软件开发者嘉年华全面开启 Qualcomm中国2015高峰论坛:新品牌与5G技术展望 福利!MDCC 2015 免费展位等你来申请! 《近匠》Gamegou:多些坚持,瞄准海外的小团队也有春天 细说JavaScript异步函数发展历程 YoMail创始人Albert Yang:我与Email交织的程序人生 TIOBE 2015年9月编程语言排行榜:时髦语言Rust进前50 50张999元限量特惠票!SDCC2015软件开发嘉年华 首批讲师名单公布 百度安全:XcodeGhost大爆发可能只是冰山一角 北京市计算中心云计算转型:缘定OpenStack MDCC 2015移动开发者大会 八大技术专场首批议题剧透 Apple TV指南:从零开始用Swift开发个tvOS应用 React Native、开源:MDCC平台与技术Android专场全揭秘! 请问,,怎么设定mshflexgrid的属性,使其各列的宽度与数据源字段的宽度一致 请问这几个对象是否代表同一个对象? 菜鸟问题:如何跟随鼠标拉出一虚线矩形框?回复就有分! 高分寻Authorware v6.0 注册码 在数据窗口中有“部门”和“员工”两个列,分别采用各自的下拉数据窗口显示。如何使得“部门”改变时,“员工”显示与其对应的人员而不是“员工”表中所有人员。 怎样安装UNIX? 灌水加求救…… T-SQL中SELECT句中可不可以有存储过程。。。。。。。。这样为什么不行呢?(100分酬谢) MS SQL SERVER 有谁知道型号为CDU111-NE 的SONY光驱是多少速的吗? 谁对RTTTL格式文件了解,怎么把它转换成可以发送的二进制格式? 关于ORACLE存贮过程的迷惑,请各位大侠解惑! 请问如何向ActiveX控件发送一个自定义数据结构的指针 有没有好一点的ASP上传组件?? asp调用dll失败!!! 为何用了2个以上的单元有调用窗体就出现 access violat at address XXXXX in module的错误 请问有没有一些用来专门用作软件测试的测试软件? EPSONSTYLUS C20SX 型号的打印机支持NT4吗? 请问哪里有linux操作系统的源代码下载?谢谢 哪几种服务器支持global.jsa 关于数据绑定控件的问题。 关于TIFF文件的处理 DLL动态调用的问题,应注意些什么? 有关错误提示问题的文件存放在哪里呀 vf怎样求2个日期类型的差值?象sqlserver的datediff一样。 一个程控交换问题。 请教各位高手,如何在程序中模拟鼠标点击行为,大大加分!!!!!!!!!!!!!!!! 关于一个消息参数的麻烦………………求救高手! 我在微软的网站上下载了一个DCOM的例子,但不能在两台机器上运行? chinajordan(超飞人)请进!!!!!!!!!!!!!!!!!!!! 如果你是sql语句的高手,请看 请问,有谁知道上海华冠电子设备有限公司怎么样的,谢谢! 怎么把一个控件的坐标转换为它的容器坐标!? Canon4650打印测试正常,软件打印预览正常,打出的字横向压缩50%,挤在左边,右为空。 几個很實際也很有用的數据庫問題,請高手指點.(在線等待!) 求教 三千 以及各位Oracle高手。我该做些什么? 救命啊!怎么才能取到她的路径啊??急!!!!!!!!!!! include file为什么不行了 DBGrid的问题... 为什么我执行jsp程序时出现如下错误?[:(!](在下为新手一个) 天哪!csdn的系统到底是怎么了? 请教各位高手,如何在程序中模拟鼠标点击行为,大大加分!!!!!!!!!!!!!! 如何控制MDI或SDI的窗体右上角的关闭按纽???它响应的是哪个肖息? pb7连接sqlserver7,程序运行后,半天也没什么反映,也不报没连接上数据库,怎么回事? 哪儿有servlet的帮助文档 StrProc.obj : error LNK2001: unresolved external symbol _GetStringsW@8是什么错误? ******_______我把简单问题来问。。。。。。。。。。。。。。。。 C++Builder与AutoCAD的问题 我为什么在WINDOWS 2000 里老装不上VC,提示错误:安装程序无法创建一个DCOM用户帐号来注册 Windows98系统客户端套接字最大连接数问题 为什么我重装机器后(win98)会丢失其他盘,如d盘。 skirt和dress有什么区别? 活塞缸内是水 活塞向左运动 将水挤出 已知活塞的截面积S 右侧出水管的面积是A 如何求活塞缸内压力 石灰石与澄清石灰水的区别,是不是石灰石磨碎加水变石灰水?石灰石:就是加稀盐酸生成co2的石灰石,和澄清石灰水的区别,尤其是化学性质,以及它们的化学方程式~ jacket、shirt、dress、T—shirt、skirt、jeans、pants是什么意思?例:l can see jacket,shirt,dress,T—shirt,skirt,jeans and pants.是什么意思? 为检验硫酸钠溶液中是否含有氯化钠, 石灰石→生石灰 →加水→石灰水→ 碳酸钙 请你用石灰石为原料(其他试剂自选),设计一种更好的制备碳酸钙 有三瓶失去标签的液体1:稀硫酸2:氯化钠溶液3:澄清的石灰水.在没有酸碱指示剂的情况下,如何鉴别?用试剂鉴别,并且写出试剂名称,还有反映的方程式只有一种试剂,并且3种液体都用着一 高一化学!怎样用实验来检验一瓶硫酸钠溶液中是否含有氯化钠硫酸银不也沉淀吗? 鉴别石灰石与石灰水写出所用的试剂产生的现象及化学方程式~ 活塞面积为210qmm是什么意思?qmm是个什么单位? 检验硫酸钠溶液中是否含有氯化钠用实验检验一瓶硫酸钠溶液中是否含有氯化钠,写出实验步骤、现象、结论及有关反应的化学方程式 有一台水压机,活塞A、B的面积分别是4cm²和20cm²,如图.在小活塞A上加160N的压力,在大活塞B上有一台水压机,活塞A、B的面积分别是4cm²和20cm²,在小活塞A上加160N的压力,在大活塞B上能 与“hamburger”同类的词有哪三个? pear tree的复数 为什么photo变复数是photos,而mango变复数是mangoes? 将下列单词要求进行分类 salad tea hamburger sandwich将下列单词要求进行分类salad tea hamburger sandwich water milk juice ice cream fish bread cake chicken rice egg beef noodles 分别分入food 和drink 照样子写出同类的单词:hamburger pear的复数形式是什么 在线等! Which do you like better, a hamburger or a sandwich?(保持句意不变) __ you __ a hamburgerWhich do you like better, a hamburger or a sandwich?(保持句意不变) ___ you __ a hamburger or a sandwich? 根据例子,画出不同类的词,并说明原因:e.g:hamburger ,sugar ,vinegar ,salthamburger --------- A hamburger is a dish while the others are not.1.sweets ,chocolates ,ice cream ,mushrooms2.fibre,calories ,vitamins ,minerals3.diet,peach ,salad this is a pear tree.改为复数把这句话改为复数形式 可以一次性鉴别出蒸馏水、稀盐酸、石灰水的试剂是 ( ) A.酚酞试液 B.碳酸钠溶液 C.稀硝酸 D.氯化钠溶液可以一次性鉴别出蒸馏水、稀盐酸、石灰水的试剂是 ( )A.酚酞试液 B.碳酸钠溶液 I want ( )eat a hamburger.括号中填上适当的词. This is a pear.改为复数句 sweet dumplings 是什么?可以 翻译为汤圆, 实验室里需要纯净的氯化钠溶液,但手边只有混有硫酸钠,碳酸氢钠的氯化钠.某同学设计了如下实验1;Nacl ,Na2so4,NH4HCO3 加热2; 1中的残留物 3; 2的溶液加入Bacl2溶液4; 3中悬浊液加入Na2CO3溶液 It is a pear.(改为复数句子) 稀硫酸和氯化钠为什么不能用酚酞溶液? (急)实验室里需要纯净的氯化钠溶液,但手边只有混有硫酸钠,碳酸氢钠的氯化钠.某同学设计了实验室里需要纯净的氯化钠溶液,但手边只有混有硫酸钠,碳酸氢钠的氯化钠。某同学设计了 某液压机的大活塞面积是小活塞地20倍,当在大活塞上站一500N的人时,在小活塞必须加几N的力 为什么稀硫酸溶液的氯化钠溶液不能使酚酞试液变红 实验室里需要纯净的氯化钠溶液,但手边只有混有硫酸钠,碳酸氢钠的氯化钠.某同学设计了如下的方案:1;Nacl ,Na2so4,NH4HCO3 加热2; 1中的残留物 3; 2的溶液加入Bacl2溶液4; 3中悬浊液加入Na2CO3 一台液压机,小活塞面积为20cm2,大活塞面积为1m2,要在大活塞上产生2×104N的压力,需要在小活塞上施加 N的力. 为什么不能用酚酞溶液鉴别浓稀硫酸 已知反应NH4HCO3=NH3+CO2+H2O,为了将混有硫酸钠,碳酸氢铵的NACL提纯,并制得纯净的NACL溶液某同学设计了如操作①中加热时盛放药品的仪器是?再加热过程中应不断?(操作名称) 如果液压机活塞A、B的面积如图所示,求10N的力作用在活塞A上,能支撑起多重的物体? SANDWICH MOONCAKE SWEET ……分别是什么国家的食物?SANDWICH MOONCAKE SWEET DUMPLINGS SALAD HAMBURGER PIZZA ZONGZI HOT DOG DUMPLINGS什么意思?分别是什么国家的食物? 实验室里需要纯净的氯化钠溶液,但手边只有混有硫酸钠,碳酸氢钠的氯化钠.某同学设计了如下实验呃1;Nacl ,Na2so4,NH4HCO3 加热2; 1中的残留物 3; 2的溶液加入Bacl2溶液4; 3中悬浊液加入Na2CO3溶 如图所示,液压机活塞A,B处平衡状态,活塞A的面积是s1,活塞B的面积是s2,现用f1的力竖直向下压活塞a使活塞向移动距离h1,液体队活塞B就会产生压力F2,活塞B就会向上移动距离h2,试推导,不考虑摩擦 sweet dumplings是什么意思? 一台水压机大活塞的面积是小活塞面积的2倍,如果在小活塞上加500N的压力,则大活塞能顶起物体的重量为 一次性能将澄清石灰水\稀硫酸\食盐水3中溶液区分开的是A无色酚酞B碳酸钠为什么不是A,不正好是酸碱盐和无色酚酞反应吗? bread meat rice哪个不同类 potato,puppy,bird,friend,kilo,tomato,orange写复数形式 稀硫酸石灰水食盐水用什麼区别用什麼试剂?2种. biscuit 的同类词 tomato的复数 为什么photo的复数形式只加s,而tomato,hero的复数形式要加es,都是0结尾的单词,复数形式为什么不同? biscuit的同类词是什么?给我四个 tomato的复数是什么 复数形式 book boy photo dictionary friend class Chinese tomato 改为复数形式 稀盐酸 能鉴别 稀硫酸 氯化钠 石灰水 hamburger,orange,banana,pear 写出复数形式 tomato的复数形式还有potato的 photo的 boy的 Chinese的 Japanese的 sheep的 class的 yoursolf的 box的 找出不同类:1、pencil、eraser、dress2、banana、hamburger、peach3、jacket、bread、shirt4、blue、museum、school5、November、April、Friday 请清楚地说出每一组的不同的单词! 氢氧化钠和什么反应生成硫酸钠?硫酸钠和什么反应生成氯化钠? 石灰水和石灰石为什么石灰水的化学式是Ca(0H)2 它是混合物,怎么也有化学式的? skirt和dress的区别? 大活塞和小活塞的压力与面积的关系一个液压装置的小活塞的面积为10cm的平方,大活塞的面积为1m的平方,在小伙塞上至少需要_____N的力才可以将大活塞上重300N的重物举起. 如何用石灰石配制石灰水
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn