|
巧用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秒，封面卸载，进入主程序运行状态。在封面处于显示状态时，单击封面，也可将其卸载，装入程序主界面。窗体和主界面的显示时间可通过调节Timer1和Timer2的Interval属性值来实现。
[VB.NET程序]GSM短信模块库函数，可以用VB,VC,调用简单实用 [办公软件]PowerPoint做交互课件之弃用VBA
[办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址 [办公软件]VBA设置文件属性及加密源代码示例
[办公软件]VBA中初始化ADO连接的几种方法 [网络安全]“VB破坏者变种N”病毒摘要
[Web开发]ASP.NET上传文件到数据库VB版 [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值…
[办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表… [办公软件]Excel编程基础之VBA文件操作详解
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
