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

在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



Apache Mesos联合创始人Benjamin Hindman:谈分布式应用现状 直觉不靠谱!使用移动应用分析的七个巧妙方法 屏蔽、挖角与丑闻,Uber的“创收神器”泡沫 蚁视科技发布会:三大产品与四大概念技术 盘点VS2015 预览版的5个新特性 低能的“智能” 你就是明星,第一届IBM RockStar正式启动! Kubernetes:Google分布式容器技术初体验 方法可以复制 AngularJS资源集合 那些年,微信走过的开放之路 从YunOS话阿里移动互联网云生态布局 Mobile First!苹果联合IBM发布10款企业级App iOS8.1.1越狱又惹急苹果!扒一扒黑客与苹果的斗争史! Firefox.html:用HTML重现Firefox UI Qt 5.4正式发布!引入WP,支持HTML5混合开发 2014智能硬件盘点第二弹!这次咱走暖心的 聚合数据资产,推动产业创新——2014中关村大数据日看大数据变现 拥抱开源:微软Windows 10宣布全面支持AllJoyn技术 改变App领域发展!友盟推“数据工场”战略,两款新品亮相 Cloudera正式登陆中国市场:与英特尔携手共助本土企业淘金大数据 Go 1.4正式发布 支持Android开发 【特别提醒】2014中国大数据技术大会门票全面告罄 不接受现场购票 累计4000万美元 Qualcomm在华投资5家公司 支持Android、WatchKit开发,全新RubyMotion 3面世! 快速开发移动医疗App!开源框架mHealhDroid 2014CVW﹒产业互联网大会解密未来20年 Nimble VR的收购与一封来自友商的感言 Google Earth API将在2015年12月彻底关闭 AR、美颜、机器人:计算机视觉库几乎无所不在 不激增,无爆收,年度最佳手游为80 Days带来了什么? 《近匠》机智云CEO黄灼:跨越智能硬件的“鸿沟” 100分:DataGrid能不能和視圖綁定,並自動進行多個表的更新,刪除工作?! win98和win2000字体显示问题 请教: 取当前的时间和日期是哪个类 怎样才能使数组的大小可变!!能有相同的功能也行。不一定要是数组!! 请高手帮忙 SQL数据库恢复问题 我用jbuilder5编译EJB为什么老有例外,md,急死我了 窗口列举的问题,请给点思路 时间比较问题 怎么禁止在CWebBrowser上点右键? asp.net中连接oracle9出现了这样的问题:ORA-12640: 验证适配器初始化失败,帮忙解决,在线等待! 如何做能变色的按钮? 用了就不放?,内存怪现象请教高手? 招聘的故事 用了就不放?,内存怪现象请教高手? 急。各位有没有NT高手呀!怎么配置NT下的IIS呀? 高分求救!!急!!关于无法找到动态连接库的问题。 xpmenu控件的使用! 招聘的故事 请问谁有《Visual C++ MFC 编程实例》这本书的配套源代码?(在线等) 如果我数据库里有一篇文章 怎么格式化她????? isapi中用ado访问数据库只能读不能写,何故?相同的代码在exe中可以 在对话框中建立一个socket连接,如何在释放对话框之后保存这个连接以备以后使用? 关于屏保程序的讨论 安装程序的BDE问题? 我创建了一个POPUP风格的窗口,如何去除背景? 和 Oracle 的连接问题(odac ) 帮忙看一下有什么问题!! 高分求救!!急!!关于无法找到动态连接库的问题。 指纹算法 Java Developer Interbase如何自动保存更新 请教数据库连接池的使用.... 不要以为你不骂人你的素质就比那些骂街的高了,如果你卖国那么你的素质比那些骂街的更低,因为你基本不具备一个人的素质了 哪位有有关Vtune的相关资料呀,提供链接也行,最好是指南一类的,3X。 编程几年了,没有希望,想改行,你们呢? 有谁做过“文物馆的文物或藏品综合管理系统”如能提供资料或动者!本人感谢! 入门时奇怪问题? 如何把*.IMG文件转换为JPG文件? 其实你不懂我的心 那里可以买到microchip的mcp2150 ,(要现货),比较紧急,请帮忙 关于对2进制文件的操作 将去做SAP ABAP4平台编程,用过的请进。up有分。 C的图形问题? 为什么我点进去看不到内容? 如何考中程 数据窗口控件为dw_6,其间的对象为D_PUR,我想使其中的图片框的VISIBLE属性变为FALSE总是有错误,请教:)在线等待 kylix2在RedHat7.2下的安装问题? 能告诉我吗????各位哥哥指点一二 数据库置疑问题,并不难?请进 关于串口通讯(向手机发送AT命令集) 高手请看:表格的终极问题 现代社会信息量越来越大,传递信息的速度越来越快,人们获取信息的途径越来越广.用恰当的词语连成一句话. 吸引金龟子 OH和NH4组成 ;SO4分别和Na、Ca、AL、Fe、NH4组成 ;NO3分别和Ca、Na、Al、Fe、NH4组...OH和NH4组成 ;SO4分别和Na、Ca、AL、Fe、NH4组成 ;NO3分别和Ca、Na、Al、Fe、NH4组成 . 作文:我挡住了诱惑 《吸引金龟子》阅读答案吸引金龟子 [林清玄] 吃哈密瓜的时候,我对孩子提起童年时代如何抓金龟子的事.我们把吃剩的果皮拿到树林或稻田,或甚至放在庭院的角落,到黄昏的时刻,就会 有许多 大一新生应该读些什么书为大学做准备拜托谈些有用的经验, 修改病句:据介绍,近年来随着我国原油进口规模不断扩大,使我国每年石油进口量超人过2亿吨,石油对外依存度已由2000年的30%上升至1212年的57%. 吸引金龟子这篇文章 人教版八年级生物“基因的显性和隐性”给讲讲呗易懂点. 现代社会信息量越来越大,传递信息的速度越来越快,人们获取信息的途径越来越广.(用恰当的词语连成一句话) 文章以“吸引金龟子”为题,读了课文,你认为真正吸引金龟子的是什么? 大一新生,准备考英4级 自学要看哪些书好? 法国.德国和西班牙的我爱你怎么说.怎么写? 拜草枯除草剂对鱼类有毒吗? 生物(基因的显性和隐性)问题在人群中,生来就惯用右手与生来就惯用左手(不包括后天的矫正和练习)是一对相对形状.父亲惯用左手,母亲惯用右手,他们生的孩子也是惯用右手的.请问,这 阿拉伯我爱你怎么写 除草剂在鱼塘边使用会影响鱼的生长吗?还有除草剂怎么配水使用?请看清题目再去找资料 来回答 请问我是大一新生,有没有什么英语方面的书适合我?我想考四级 “我爱你”在西班牙怎么说请个位帮我查一下. 这是什么鱼, 初二生物基因的显性和隐性没学好怎么办啊~如题,我完全不知道怎么算,好多问题都要算的比如说:AA×aa=?AA×Aa=?Aa×aa=?Aa×Aa=?aa×AA=?这些都是怎么算的啊?我需要掌握基因的计算公式.还有aa可不 某铁矿主要成分是氧化铁,含铁49%,1.求氧化铁中Fe元素的质量分数,2.该赤矿的纯度. 水厂用二氧化氯,还需要液氯吗?用二氧化氯消毒,氯酸钠和浓盐酸反应生成的氯气怎么处理? 大一新生该看些什么书?工科 专业外的东西也很想学还有对人生比较有教育的 给点书名吧 空间育种有吗 液溴和三氯化铁为什么不能用于饮用水消毒,而液氯可以 我们要在这次“科技月”活动中,养成一种爱科学、学科学、用科学. 怎么修改病句啊! 澳门被葡萄牙占领了多少年 悬梁刺股的是谁 苏秦 孙敬 “我对献身科学的青年们的希望是什么?”将这句话改病句 葡萄牙割占澳门多少年啊?是我的期中考试题(历史),是 300 还是 近400 我选的是 近400 只要告诉几年!>>>>>>>? 成语《悬梁刺股》的主人公是?我知道有一个是苏秦,还有一个是谁? 我们要在青少年中开展热爱科学.(修改病句) 葡萄牙帝国主义对澳门的统治! 悬梁刺股的这个成语说的历史人物是谁 修改病句“中学生是青少年学习的重要阶段之一.” 葡萄牙殖民者在澳门的统治时间是什么时候 印度洋中的凯尔盖朗岛属于哪个大洲? 请问二氧化氯、亚硫酸氢钠、次氯酸钠那一种漂白效果好一些 澳门为什么被葡萄牙统治?什么时间? “孙敬头悬梁 苏秦锥刺股”的启示 开盖好久的矿泉水喝了会怎么样 可不可能有邻二酮的存在那么2,3-丁二酮的两个羰基之间没有共轭关系呢? fe+ca(oh)2能反应吗 悬梁刺股中“悬梁”指的是谁 一立方米铁矿石粉等于多少吨(65品位) Fe和Hcl反应,无论什么条件,生成物都不变吗?Ca(OH)2和CO2改变反应条件还能生成什么? 一堆货物有120吨,用甲车运得用4小时完成,甲乙车运6小时完成.现在由甲、乙合运这批货物,需要多少小时? 求准备考英语四级如何合理安排时间,有效方式是什么,必须天天背单词吗?我英语不太好.第一次就考372分 请问卓越联盟自主招生语文和英语的作文和阅读理解的分值各是多少? 如何分辨生物中的显性基因和隐性基因? 考英语四级有没有必要背单词呢? NaOH,Ca(OH)2,Fe(OH)3是什么 2009年江西的大一新生英语四级什么时候考?什么时候报名?怎么报名? 下半年准备考四级.背单词应该背什么?手头有两本,一本四级,一本雅思分类记忆.背哪一本呀? 吸引金龟子 阅读理解(急!今天要用)吸引金龟子 [林清玄] 吃哈密瓜的时候,我对孩子提起童年时代如何抓金龟子的事. 我们把吃剩的果皮拿到树林或稻田,或甚至放在庭院的角落,到黄昏的时 Ca(OH)2+Fe(no3)3= 原油进口权的文字定义是什么?在中国,弱一家企业获得了原油进口权,对这家企业意味着什么? 凯尔盖朗岛属于哪个大洲? 是 头悬梁 锥刺股还是 头悬梁 锥刺骨?好像两个都有标准的是那个?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘