出版日期：2002-03-25　总期号：460　本年期号：10

本期导读 热点聚焦 硬件世界 CCE评测 软件.net 数字生活 社会培训 教育信息化 读者俱乐部

用VB制作封面 YUANXIANG_W 　　启动软件后，先在窗体中的中央出现一个漂亮的封面，停顿1~2秒后，运用程序的主窗体被载入，封面随即消失。作为例题这里利用IF语句和Timer来实现主窗体的添加和封面的卸载，其实现思路比较简单。编程步骤如下： 　　1、打开一个新的标准工程； 　　2、将窗体属性中的名称设置“FrmCocer”，Captiom设置为“FrmCover”，BorderStyle设置为“0”，MaxButton设置为“False”，MinButton设置为“False”，ScaleHeight设置为“5700”，ScaleWidth设置为“7170”，StarUpPosition设置为“2”； 　　3、在窗体中添加一个Timer，并将它的属性中的interval设置为“200”； 　　4、在窗体中添加一个Picture，将它的名称设置为“Cover”，Caption设置为“Cover”，在Picture中插入相应的图片； 　　5、在窗体中添加一个Label，并将它属性中的Caption设置为“请看我编制的软件封面”，字体和大小可在Font中作相应调整，并将BackStyle设置为“0”； 　　6、打开一个新的标准工程，将Form2的名称设置为“MainForm”，Caption也设置为“MainForm”，并在其中添加一个ButtonCommand，将它属性中的Caption设置为“确定”； 　　7、双击窗体，选择其中的“通用”代码窗口，将下列代码输入就完成了全部编程工作，运行一下看是不是很不错啊！ 　　Dim dlaytime As Integer 　　Private Sub Form_Load() 　　dlaytime = 0 　　Timer1.Enabled = True 　　End Sub 　　Private Sub Form_Resize() 　　cover.Left = 0 　　cover.Top = 0 　　cover.Stretch = True 　　cover.Width = frmcover.ScaleWidth 　　cover.Height = frmcover.ScaleHeight 　　Label1.Left = frmcover.ScaleWidth / 2 - Label1.Width / 2 　　Label1.Top = frmcover.ScaleHeight / 2 - Label1.Height / 2 　　End Sub 　　Private Sub Timer1_Timer() 　　If dlaytime > 20 Then 　　Timer1.Enabled = False 　　Load mainform 　　mainform.Show 　　Unload Me 　　Else 　　dlaytime = dlaytime + 1 　　End If 　　End Sub