欢迎界面

2009-05-13 14:57

我说的欢迎界面就是在登陆系统之前的一闪而过的窗体 我的欢迎窗体的代码: Private Sub Form_Click() Me.Hide Main End Sub 主模块的代码 Sub Main() Form1.Show 'form1是欢迎窗体 Unload Form1 Dim fLogin As New frmLogin fLogin.Show vbModal 'fLogin是登陆窗体 If Not fLogin.OK Then End End If Unload fLogin Set fMainForm = New frmMain 'frmMain是主窗体 fMainForm.Show End Sub   Form1.Show 'form1是欢迎窗体 改为Form1.Show vbmodal Form1中加入一个Timer控件，设置其显示时间 时间完成后，在Form1中使用代码关闭窗体     frmSplash设置为工程启动窗体(工程的属性)，放一个Timer控件，设置为2000毫秒 frmMain为主窗体 ------------------------ Private Sub Timer1_timer() Unload Me Load frmMain Timer1.Enable=False End Sub     Sub Main() Form1.Show vbModal Unload Form1 .... Private Sub Form_Load() Timer1.Interval = 1500 End Sub Private Sub Timer1_Timer() Me.Hide frmLogin.Show End Sub