欢迎界面

最新推荐文章于 2025-08-13 23:52:06 发布

原创最新推荐文章于 2025-08-13 23:52:06 发布 · 723 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#timer

.NET 专栏收录该内容

46 篇文章

订阅专栏

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