文/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