用VB4.0制作软件封面

2008-04-09 04:40:35来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

巧用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属性值来实现。

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:作浮动式图标提示按钮

下一篇:VB5.0下工具条的制作