用VB 4.0制作软件封面

答案：
用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秒后主界面装入
 End Sub 
 （4）在Image1－click中写入： 
Private Sub Image1＿Click（） 
 Unload Me 
 zjmShow ′卸载封面，装入主界面 
 End Sub 
 
4程序运行 通过主菜单“Tools”中的“ Option”选项将封面（Cover窗体）设置为起动窗体，按下工具栏中的 run按钮，运行程序。首先封面显示， 2秒后程序主界面装入，封面保持在主界面的上面，再过 2秒，封面卸载，进入主程序运行状态。在封面处于显示状态时，单击封面，也可将其卸载，装入程序主界面。窗体和主界面的显示时间可通过调节Time r1和Timer2的Interval属性值来实现。 
 
（北京 李 磊 徐 波）
 

上一个：VisualBasic中的界面设计原则和编程技巧
下一个：VB5.0下工具条的制作