这里所谓的单独封面,是只独立应用程序窗口本身的一个窗口,这个窗口在程序运行时首先弹出屏幕,用于装饰程序本身,或简单的演示一下程序的优越性。这样的封面在很多专业的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’显示窗口2Form2.ShowEnd Sub
4、在窗体Form2中定义全程变量:
Dim strr1 As StringDim i As Integer
5、在窗体Form2中放入一个时间控件Timer1。
6、在窗体Form2中的Form-Load ()事件中输入以下代码,用于在窗体2中显示图像,并置时间控件频率:
Private Sub Form-Load ()Form2.Picture = LoadPicture("c:\windows\setup.bmp")Timer1.Interval = 10i =0End Sub
7、在时间控件Timer1- Timer1()事件中进行程序封面的制作工作,演示简单的动画,并控制此动画运行一段时间后自动停止,关闭程序封面,返回程序主窗口;下面的代码实现在一个图片上随机显示字符串,显示30次字符串后自动退出。