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

在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



11月份浏览器市场份额 IE10已占据0.51% 亚洲高科技公司正在分享惠普、戴尔和IBM的云“午餐” Groupon创业启示:进军海外,请三思 天才之为责任:Unity CEO谈论Unity 4.0游戏引擎 中文版Evernote百宝箱上线:开发者海外推广新渠道 360产品被爆收集用户隐私 桌面安全路在何方 销售额达一万亿元 阿里巴巴成世界最大电商 共享软件海外营销策略与实战分析(武汉站)成功落幕 你未必知道的CSS故事:揭开leading的面纱 2013年 影响Web发展的5类API 《Warcraft是怎样炼成的》:多人对战、战争迷雾以及AI HBTC精彩回顾 Hadoop专家分享大数据技术工具与最佳实践 苹果iTV规格泄露:iOS应用开发的新蓝海 Facebook觊觎微信鼻祖WhatsApp,但谈不上收购 首款社交API应用 Facebook Messenger for Firefox正式上线! 共享软件海外营销策略与实战分析(沈阳站)成功落幕 移动之伤:为什么山寨游戏比原创更火? IBM在京发布PureData 主打数据交易处理、操作分析 Intel发布Hadoop免费版 全力拓展生态圈 突出图片搜索:微软向测试人员开放Socl社交搜索 豌豆荚创始人:和巨头竞争,我们拼产品和技术 “互联网女皇”报告解读:智能电视大趋势 苹果扩大其北卡罗莱纳州燃料电池发电场规模 Oracle回收站使用全攻略 微软这次很诚实:IE真的糟透了 Facebook进军短信业务,挑战微信鼻祖WhatsApp 从菜鸟到专家的五步编程语言学习法 亚马逊企业文化:从书贩到云服务巨头的催化剂 明年Google I/O大会日程敲定 或发Android“酸橙派”? 绝境求生,WebOS寄望Android Facebook在移动路上走过的那些弯路 请问:如何从VARIANT类型的数组中取数据? TOMCAT+SQLSERVER连接池配置问题~高分请教 这个问题让我有点晕!——安装与部署项目! 空调有坏了!!!! 安装论坛过程中遇到的问题!!!!!! 关于使用TC35Modem发送短信的问题,用超级终端可以,用N多个程序连接端口都不行。 "native code outside the VM"是什么错误呀 win2000 VPN方式的网络的实现。 datagrid控件的数据绑定问题. 请高手教我如何搭redflag linux下JAVA开发环境,急,另给分 如何删除一个字符串的前10个字符? 资料档案库是用来干嘛的? 用EJB做后台的参数传递。高分请教! 在ASP中对数据库操作是否可以用事务提交啊? TOMCAT+SQLSERVER连接池配置问题~~高分请教~ 请教!!!如何在IntraWeb控制IE? 如何远程对局域网内的某一台计算机(假设其计算机名为comm1)实施关机操作? 为什么连不上CVS服务器? 如何用ASP读取XML中节点的属性值? 如何使用jspsmartupload 一个简单问题请进来look一下 我所知道的论坛常用语,自己以为算得上的可以往上加啊! 如何自画窗体或者PANEL,让小图象在上面排列,然后再根据顺序,一次改变小图象呢? asp.net 上传图片问题? xml中怎么取得这个值呀? 请大家给介绍一本学VC++.NET的书!谢谢 有谁用过solpartwebcontrols.dll控件来建立菜单的,请进! pcanywhere联机方式 高手请进,关于MFC的消息映射。 问一个可能是低级的问题:嵌在网页中的Windows Control能不能打印 请教:我用一个COMBOBOX作为存放表字段名,如何SELECT搜索满足条件 “三个代表”具体是指什么,希望各位JJGGMM帮忙解释一下了,谢谢!(90度鞠躬!!!!~~) 如何将装入到graphi字段的图片压缩?? 看过windows程序设计的朋友请进来 asp调用存储过程问题请教!!!!急!!!! IIS不能使用了该怎么解决? 请教C#问题(1)?? Oracle Intermedia Text支不支持中文的模糊查询 我是ORACLE菜鸟,现有一SQL语句(SQL Server语法),想转换成ORACLE语法,请指点 数据库连接问题??????????? 大虾,请看这里看看? vb中字符串中怎么输入双引号(")或单引号(')? 大家帮忙看看为什么这段代码不工作? ████ 这个帖子骂人,请斑竹秉公处理!!!!!!!████ 怎么样让时间加一个差值; 在另一个类中,怎样给Radio或Combobox赋值 ~~~~向各位高人请教三层线程模型,分可以另开贴加。 new出来的idicmpclient的onreply事件怎么响应? 那位大虾帮我看一下这断代码(JSP高分请教) really和true有什么区别? 各位菇类的专家:做好的菌棒,怎么样控制蘑菇的生长时间,意思想什么时候让他出菇就让它出~,不出的时候就不出~还有,什么样的蘑菇,中国南方,夏季自然条件下可种植~ 番茄青枯病 番茄得了青枯病有什么药可以治疗?如题 番茄青枯病怎么办 番茄得了青枯病怎么办 番茄青枯病用什么药 If as one people speaking the same language they have begun to do this请帮忙分析下这个句子结构 这几道题怎么写 光学高温计哪里可以检定 重庆合川能看到今晚的月食吗 嘉兴秀洲消防工地“找茬”揪患80余处嘉兴秀洲:消防电影大篷车走村串乡宣防美拒评是否曾监听默克尔手机 新自贸协美国职棒大赛 球员为赢对手纷纷留长胡崔永元赴美调查转基因食品 随机调查答朝鲜将送还6名被扣押韩国公民马凯在法国《回声报》发表署名文章土库曼斯坦总统出新书讲述父亲的故事也门男子因15岁女儿与未婚夫通电话将嘉兴南湖:消企携手共筑安全“防火墙”杭州消防马路中间铺气垫解救跳“桥”男为什么要推进协商民主广泛多层制度化发中国南方雨雪继续蔓延 弱冷空气袭扰中云南信息报【世间漫画】雾霾柔曼罩“官财”【云信时评】威胁你就是威胁党?听深圳音乐家 唱中外经典歌剧【云信时评】马云也许真能拯救1230你有心肌梗死的危险因素吗?身份证信用卡被偷捏个“马上有一切”逗你乐空气质量
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘