用VB4.0制作软件封面

　　巧用VB 4.0和Windows API函数可以为您的应用程序设计一个像 WORD、EXCEL启动封面那样的标准软件封面，具体步骤如下：

1。建立窗体和控件
　　进入VB 4.0编辑器，打开你应用程序所在的项目，新建一窗体（Form），选取其属性，将BorderStyle改为“0－ NONE”，将Name改为“Cover”，然后调整窗体大小。选取Tools菜单中的“Custom Controls”，为控制工具箱添加一个Sheridan 3D Co ntrols工具，在窗体上添置一个“SSPanel”控件（这可使你的封面图片具有立体感），使其大小恰好覆盖窗体，再在“ SSPanel”上放置一个“Image”控制，并通过它的“Picture”属性，选取已做好的封面图片文件。然后在窗体上放置两个时钟控件：Timer1和Timer2，并将“Interval”分别设置为4000和2000。

2。函数说明
　　本例中用到的Windows API函数应在应用程序的代码模块中加以说明。首先打开VB程序组中的API Viewer，选API Type为“declares”，再选取“文件”菜单中的“Load Text File”，查到函数Setwindowpos（），将其说明语句复制到说明模块中；然后选API Type为“Constants”，再“Load Text File”，查到函数所用的两个常数“Swp－showwi ndow”和“Swp－nosize”，将其说明语句也复制到说明模块中。也可在说明模块中直接写入以下语句：

Public Const SWP＿NOSIZE＝＆H1

Public Const SWP＿SHOWWINDOW＝＆H40

Declare Sub SetWindowPos Lib “User”（ByVal hWnd As Integer，_
　　　　　　　ByVal hWndInser tAfter As Inte。ger，ByVal X As Integer，_
　　　　　　　ByVal Y As Integer，ByVal cx As Integer，ByVal cy As Integer，_
　　　　　　　ByVal wFlags As Integer）
注：“declare Sub…”部分要在一行之内输完。

3。编写程序
（1）在Form－Load写入：
Private Sub Form＿Load（）
SetWindowPos Cover。hWnd，－1，Cover.Left／15，＿

Cover.Top／15，Cover。Width／15，＿
Cover.Height／15，SWP＿NOSIZE or SWP＿SHOWWINDOW
′使封面窗体（Cover）始终在主界面（Zjm）窗体的上面
End Sub

（2）在Timer1－Timer中写入：
Private Sub Timer1＿Timer（）
Unload Me ′封面显示4秒后卸载
End Sub

（3）在Timer2－Timer中写入：
Private Sub Timer2＿Timer（）
Zjm.Show ′封面显示2秒 鹘缑孀叭?br> End Sub
（4）在Image1－click中写入：
Private Sub Image1＿Click（）
Unload Me
zjm.Show ′卸载封面，装入主界面
End Sub

4。程序运行
　　通过主菜单“Tools”中的“ Option”选项将封面（Cover窗体）设置为起动窗体，按下工具栏中的run按钮，运行程序。首先封面显示，2秒后程序主界面装入，封面保持在主界面的上面，再过 2秒，封面卸载，进入主程序运行状态。在封面处于显示状态时，单击封面，也可将其卸载，装入程序主界面。窗体和主界面的显示时间可通过调节Timer1和Timer2的Interval属性值来实现。

文章来源于领测软件测试网 https://www.ltesting.net/