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

在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



亚信CTO金亚东:传统企业向产业互联网转型的两条路径 微信评论功能开启将成净土还是地狱 如何定位Android NDK开发中遇到的错误 流行从这里开始,MDCC 2014十大人气产品榜单揭晓! 专访POWER 8编程挑战赛选手唐刚:大数据计算永远是主角 微信公众号认证命名松绑,您怎么看? LambdaNet:纯Haskell实现的人工神经网络库 专注模式识别,易道博识为海量信息输入提供便捷之门 【问底】Michael G. Noll:整合Kafka到Spark Streaming——代码示例和挑战 2014年手游和社交游戏行业重要趋势解读 腾讯副总裁罗道锋:共建全国最大安全云库 5分钟内数据精准共享 Connected Cycle 一举两得的智能自行车踏板 CES可穿戴产品前瞻:汽车厂商入局智能手表领域 果断Mark!国外程序员收集整理的PHP资源大全 Google 2015项目前瞻:智能隐形眼镜、Google X、Ara Swift的坑:如何实现enum的多选? Swift,其实没那么任性 如何利用单台服务器实现10万多个Git仓库托管 Swift的初始化方法 TIOBE 2015年1月编程语言排行榜:JavaScript成大赢家 为什么iOS开发不需要Storyboard? 仅有纽扣大小的开发板 Intel Curie “撒娇”的豌豆荚?被百度手机助手屏蔽太糟心! 【工具推荐】Pgcli—自动完成和语法高亮的Postgres命令行工具 CES 2015:挑一款机器人带回家? 夜行、睡眠与健康:CES 2015十款酷炫的可穿戴产品 Java 9中新的货币API 唯“简”不破,Apple Watch App的设计之道 Google Glass从X labs“毕业”,更换项目负责人 不进化,则消亡——互联网时代企业管理的十项实践 RedMonk 2015年1月编程语言排行榜:进击的Swift! 入门:关于验证字已失效的问题 blob字段如何存取? 一个编程论坛 那位能给我一个qq号呀,我急用 liangdiantech@163.com 羽毛球爱好者,请进 请问哪里有Microsoft Application Center Test的相关资料?多谢 非常简单的问题!!! 轻松心态,远离非典! 在自己的机器上打不开联接 DataModule的问题(菜鸟级) 怎么把表中的列约束为唯一的? 一个编程论坛 从没见过的问题!!!晕了!! 安装问题,请指教! C++的应用是什么意思呢? 得到上传文件大小的问题,解决高分相送!! R6中的问题!高手请进!高分求救! 一个电子书籍下载和编程论坛 请问怎么在vb中调用纯c接口的api并实现多线程 如何在一个很大的文件中删除一段数据?不用拷贝的方法 the C++ programing language里的两个小问题!!! 找在没行带checkbutton的listbox控件类 我可怜的QQ被盗了~~有什么密码破译软件取回QQ的密码吗 VARIANT结构中,如何通过pvarVal指针来获得串口传来的二进制流?? 天啊,这就是《程序员》? 编译java程序需要哪些工具,菜鸟提问. how to use *.pak?? ★在数据窗口中如何同时实现多行操作,如update或delete多行。 请问oracle8i的下载问题! 请问MSDN.net 中文版光盘出了吗??????????????????????? 关于STRING的问题 在IE中程序运行有错误?请指点! JB8做个BMP,奇怪问题 有谁知道*.dns用什么软件打开吗,急!!! 大家给我推荐一个delphi源码网站 Oracle8.17的安装问题,请大家帮忙,急呀!谢谢! csv文件存储求助 问个关于checkboxlist控件的用法! 客户端通过Session Bean 调用 Local EntityBean的问题. 启动j2ee的问题--j2ee -verbose 那里能够下载破解的install shield 5.0 or 5.5 or 6.0? 我想搞网络游戏开发,请教各位的意见 如何在接受表单的ASP文件中,去知晓是这个表单中的哪个'确认按钮'被按下了?? 我的数据库打不开了!!! 连接MySQL数据库服务器? 有谁可以推荐几个国外的比较热的asp论坛,多谢! 我是一个菜鸟,想学asp,希望前辈给指条路 有人知道工程硕士是怎么回事吗?和普通的有什么不同啊,可以考普通的博士吗?谢谢阿 access数据库为何备份出错? 有了主键,还需要建立索引吗?解决送分。 在Oracle的逻辑数据库结构中有个概念叫"范围"的是什么意思呀? 美国职棒大赛 球员为赢对手纷纷留长胡嘉兴秀洲消防工地“找茬”揪患80余处嘉兴秀洲:消防电影大篷车走村串乡宣防美拒评是否曾监听默克尔手机 新自贸协美国职棒大赛 球员为赢对手纷纷留长胡崔永元赴美调查转基因食品 随机调查答朝鲜将送还6名被扣押韩国公民马凯在法国《回声报》发表署名文章土库曼斯坦总统出新书讲述父亲的故事也门男子因15岁女儿与未婚夫通电话将嘉兴南湖:消企携手共筑安全“防火墙”杭州消防马路中间铺气垫解救跳“桥”男洗洁精添加剂泄漏扰民 嘉兴经开消防成化工厂生产车间起火 杭州富阳消防成功消控室无人值班 浙江海盐假日酒店被罚数万人白宫网站请愿 要求禁播“杀光中浙江开通党员教育云平台助推群众路线教浙江打造中小学校“透明食堂” 信息需浙江临安警方破获特大武装贩毒案 缴获中国再发渤海北部禁航令 23天内有重解放军神秘基地藏大漠深处 配多型先进国务院同意设立陕西西咸新区施秉36寨演绎美丽乡村传奇气象局长:雾霾存在需考虑中国自然条件桐梓刑侦大队长徒手擒凶徒联合早报:网络反腐成为中国公民反腐利卢瑜、刘志强辞去江西省政协委员职务武汉打响治霾“第一炮” 服役超40年巴基斯坦两客车相撞后坠入山谷致20人离奇的CBA技术台:两次差错曾令四川2013中国P2P网贷十件大事:监管奥巴马宣布首批经济“希望区”促均衡发海洋局监测数据显示:中国半数入海排污法国数十个社会事务网站被黑 至今仍处杜文龙:印度建山地打击军 瞄准西藏用卢瑜、刘志强辞去江西省政协委员职务专家:中国发展前景远超日本 单挑拼刺陈秋生当选北京市昌平区政协主席 靳增广州男子喝1斤2两白酒后当街砍伤12佛教主题陶瓷作品亮相郑州 图全球最巨型金币亮相香港 图心理揭秘:女人出轨后的5大反常表现
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘