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

在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



IBM 2014中国论坛:挖掘新互联网时代下“智慧企业”的发展之路 Facebook工程部副总裁Cory Ondrejka谈企业在早期所遇到的管理瓶颈 小团队管理工具选择:不需要大而全 《近匠》聚合CEO左磊:基础数据免费,API开放 IDC:HTML5与原生应用之争还将长存 不甘称臣,Google誓要击败Amazon 【OSTC讲师专访】腾讯追风(QcloudMna):开源移动加速SDK Google Go:一门为云而生的编程语言 3月26日:没有Larry Page,就没有今天的Google Hortonworks再获1亿美元融资,Hadoop领域三足鼎立 Intel收购Basis Science,欲拓展可穿戴设备市场 Facebook以20亿美元收购Oculus:虚拟现实将是未来计算平台又一大事件 基于NodeJS的14款Web框架 Hadoop导航:版本、生态圈及MapReduce模型 把黑匣子送上“云” 失联困境能否不再 看看全球十大电信巨头的大数据玩法 尹绪森:打开圈子拥抱变化,谈Spark玩家的自我修养 从Healthbook看苹果将如何颠覆移动医疗和健身追踪 Google可穿戴:详解Android Wear的十大功能 初创企业非技术人员的迷思 【OSTC讲师专访】王兴博:Genesis-3D,3D开源游戏引擎 Facebook发布开源项目Tweaks,让iOS应用开发更加便捷 移动开发创业团队再下一城!UCloud与飞流战略合作 【走进支付宝】即将开场,问题大征集! 开发者薪资调查:半数开发者工作十年方可迎来好“薪”情 沟通更畅快 HipChat推出1对1视频和屏幕共享功能 AMD宣布支持DirectX 12 为游戏开发者带来更多福利 开发者薪资调查:2013年哪种编程语言最赚钱? 苹果挖墙脚未果,黑莓高管跳槽被起诉 不看不知道:六个超大规模Hadoop部署案例 豌豆荚发布应用内搜索技术协议 兼容App Indexing xml数据文件倒入数据库,有什么好方法。 检查数据的有效性,最好是在哪一个事件中检查?怎样写,可否给点例子。 如何在DELPHI中调用FLASH图片。谢谢!有帮助的给分! 一个有关串列的question!HELP.. 怎样让对话框总在最前? 今天一个女孩脸红的对我说声谢谢 为什么dll调试跟踪不进去 菜鸟提问:请解释一下.vbs好吗?里面可以放那些东西,怎么引用.......等等 Delphi 2 BCB的问题:BCB中的"::", ".","->"有什么区别? *.idc不能运行了,请问这是为什么?谢谢 简单的数据库问题 CFileDialog()函数的参数问题????? php ed3.0 为什么不好使 大散分,快来答,答者有分! access 表中的datetime型字段在delphi中如何使用? 有谁看过《Visual C#.NET开发实践》?? 怎样改变按钮标题的颜色? 请大家帮忙测试一下这段winsocket代码,为什么接受不到字符串 数据库问题 如何理解COM中的自动化?跟贴有分!!! 怎么样才能实现对音量的控制,最好能达到有下脚喇叭的功能 phpmyadmin之前的密码认真是怎么回事呀(配置问题) 谁能帮忙介绍工作? 请介绍几个现在还提供免费个人主页的地方 IIS运行起来后,不能访问http://localhost是什么原因? 谁能帮忙介绍工作? 关于控件数组 急需收发文系统的完整代码,谢谢! 我想用VB写一个com分页读出tif中的多幅图像,请高手指点! 请教sql查询 情介绍一个数据库编程的好书! 请教:JBuilder中要调用MapXtreme 的bean,怎么搞,定给分 为什么TOP不能限制数据集的数目???见者有分!!! 找高手解决问题!! sql 2000的一个存储过程,有些问题, 谁能帮忙介绍工作? golive6,如何解决中文问题???在源码中无法显示中文,如何解决??? 请看看这两条代码是否一样? 寻---陈建春之<visual C++高级编程技术---开发实例剖析> 想学学UML…… 现在工作好烦!!!!!! 关于combobox很简单的问题 各位大夏,我用JBUILDER做EJB时已经编译了,可是为什么那个TOOL菜单里面的EJB DEPLOYMENT子菜单是灰的啊?也就是我怎么生成部署描述设置 教材 谁看了《我的野蛮女友了》,是不是和《不见不散》有点像阿 怎样定义自己的消息? 菜鸟问题:有关vs7.0与vs6.0的Session传递问题.(来者有分) 如何改变窗口的图标? 都有哪些方法? 报表的格式化问题? 英文win 2000 +英文IIS 联接 中文win 2000 +中文Sql Server 出现乱码的问题,在线等待 哪位有realplayer 8.0的序列号?是否可告知小妹:) 草坪总面积是多少?街心公园有两块半圆草坪,它们周长都是128.5m 买6,5千克豆角付出20元找回1,8元没千克豆角多少元 坚强作文的开头怎样写 校园内适合种哪些花草树木 在一个直径40米的圆形花坛边每离5米种一棵树,一共种了几棵? 数学必修2几何体积表面积三视图计算画下立体几何图 曲一线的《3年5年》和《知识清单》有什么不同?请问曲一线的《3年5年》和《知识清单》这两本书在知识结构上有什么不同?请用过的人回答, 修建一个直径是的10米的圆形花坛,在花坛的周边每隔1米栽一棵花,最多可以栽多少棵?在这个花坛里种上绿草,种绿草的面积多少?园林处买来菊花,一串红和海棠花,它们的数量情况如下表所示: 门 女 宝盖头口黑 石白分,连,查、录、土、于、市、眉、皿、水.怎样写?(连线助词)把莲子前面的连后面的寨主尘字 谁有六年级下册的语文书 修建一个直径是10米的圆形花坛,在花坛的周边每隔1米在一棵花,最多可以栽多少棵花? 急需一篇以“聚会月球”为题的作文!300字以上...谢谢! 潜望镜中,两面镜子互相平行放置.你知道为什么进入潜望镜的光线和离开潜望镜的光线平行吗? 关于月亮的作文300到500字就是看到月亮想到什么,有什么感受== 注意是300到500字, 蔬菜经营户用60元从批发市场批了西红柿和豆角共40千克,到菜市场去买,西红柿的批发价是1.2元\千克,零售价为1.8元\千克,豆角的批发价为1.6元\千克,零售价为2.5元\千克,问他当天买完这些东西 浙教版小学六年级数学期末试卷 我们就应该怎样布置教室 某天,一蔬菜经营户用60元钱从蔬菜批发市场批了西红柿和豆角共40kg,到菜市场去卖,西红柿和豆角这天的批发到菜市场去卖,西红柿和豆角这天的批发价与零售价如下表所示.问:他当天卖完这 曲一线的《3年5年》和《知识清单》有什么不同?请问曲一线的《3年5年》和《知识清单》这两本书在知识结构上有什么不同?请用过的人回答, 家长如何布置教室的 在一个圆形花坛的四周每隔1.57米种1棵小树,共种了50棵小树,这个圆形花坛的面积是多少平方米? 没想到我如此坚强 作文 到菜园劳动,摘黄瓜460千克,比摘的豆角重量的3倍少千克,豆角?千克(请简写理由)…少14千克.不好意思,漏了. 在一个圆形花坛的周围修一条甬路,路宽1米,花坛的周长是125.6米,这 求每一块草坪的面积是多少平方米.小区规划在一个长56米,寛26米的长方形场地上修建三条同样宽的甬路,使其中两条与AB平行,另一条与BC平行,场地的其余部分种草,并使每一块草坪的面积相等, 参加数学建模竞赛要有什么基础知识? 关于平面镜成像,下列说法中正确的是:()A平面镜所成的像一定是虚像B比平面镜大的物不能在平面镜中成完整的像C在平面镜后的物体会挡住物体的像D平面镜可成虚像也可成实像 草坪面积?每平方米草坪50元,共要多少元? 急!同学们到菜园劳动,摘黄瓜的重量比豆角的3倍少20千克.豆角比黄瓜少160千克.摘豆角多少千克?列方程 关于平面镜成像,下列说法正确的是( ) A.本身不发光的物体在平面镜中不能成像 B.物体通过平面镜(不借关于平面镜成像,下列说法正确的是( ) A.本身不发光的物体在平面镜中不能成像 B. 坚强的作文 圆形花坛周长为6米,每隔2米栽一棵树,共需要多少棵树 数学建模具体要学会什么基本的知识 数学判断题:圆柱的高扩大2倍,那么圆柱的表面积也扩大2倍.( )数学判断题:圆柱的高扩大2倍,那么圆柱的表面积也扩大2倍.( ) 一个圆形的花坛周长是30米,在它的四周每隔6米栽一棵树,一共要栽多少棵树? 同学们到菜园劳动,摘黄瓜的重量比豆角的3倍少20千克.豆角比黄瓜少160千克.摘豆角多少千克?急 六年级下册数学课时特训121页思维扩展 1个圆形花坛,在它的周围每个3.5米栽一棵树,共栽40棵,花坛周长是多少? 同学们到菜园劳动,摘黄瓜460千克,比摘豆角的3倍少14千克.摘豆角多少千克? 我国的历史渊源流长,名胜古迹····我国的历史渊源流长,名胜古迹数不胜数:_______、_______、_________、___________;我国的自然风景神奇、壮丽:__________、___________、___________;我国的物产富饶: 1.《为人民服务》是毛泽东(毛主席)为纪念张思德所做的演讲词.文章先总述( );再从( )、( )、( )三个方面说明了怎样才能完全、彻底地为人民服务,最后指出开追悼会的目的是( ). 做数学建模需要哪些方面的知识? 1.照样子,把下面的句子填写完整,使它们读起来充满诗意.例:小溪匆匆跑下悬崖河水( )阳光.星星( )大街.小鸟( )树枝.苹果( )衣裳.蝴蝶( )晚霞.歌声( )芳香.2.按要求改句子它是 1.希望社区2011年种植草坪4000平分米,2012年种植的面积比2011年增加百分之25,希望社区2012种植草坪多少米2.饲养场今年出栏1800只羊,比原计划少出栏五分之一,饲养场计划要出栏多少只养?3.鸡兔有 数学建模要做哪些准备,基础的知识要那些,请具体点数值分析 需要看看吗?对“相关的数学知识必须很熟悉” 具体是那些啊? 如果要提高济南城市生态系统的调节能力,除增大绿地面积之外,在绿化时还应注意什么问题? 我们这里有4000平方需要草坪播种,现在正值7月份高温季节,可以播种吗? 需《挫折伴我成长》的中学作文 求《其实我也很坚强》作文 班里模拟听证会,关于在草坪上修停车场,希望以社区老人,专家,主张者角度发言既要有自己的体会,又要有一定的科学性,思考在里面,反正要符合人物 要自己写的 差不多就行 初中挫折作文 天津市道路旁常见的有什么花卉树木?大家尽量多说,但一定是要常见的. 课桌每张48元,一条椅子的价钱是课桌的10分之6,一套桌椅共要多少元? 急需有关“挫折”的中学作文有关挫折的作文,600字以内,最好是记叙文,质量要好, 都有哪些----社区绿化的好花草?好树种? 1、一套桌椅的价格是100元,其中椅子的价钱是课桌的25%.椅子和课桌的单价各是多少元?2、农场种玉米的面积是种小麦面积的80%,玉米比小麦少种200平方米.农场种玉米和小麦各多少平方米?3、少 高中作文--挫折以大人口吻来写的,不涉及身边人和事 这两块草坪总面积是多少? 同学们到菜园劳动.摘黄瓜460千克,比摘的豆角的重量的的3倍少14千克,摘豆角多少千克 跟挫折有关作文(高中)要现实一点的,不要那种很深奥的文字.800字左右.很急~~明天早上10点前.不要给我那种高考作文,更不要很多作文书都有的.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘