如何合理地安排窗体的启动顺序?
来源:岁月联盟
时间:2012-02-01
<STAThread()> _
Public Sub Main()
Application.EnableVisualStyles()
Application.SetCompatibleTextRenderingDefault(False)
'显示登录对话框
Dim FrmSplash As FrmSplashScreen = New FrmSplashScreen
FrmSplash.Show()
Threading.Thread.Sleep(3000)
FrmSplash.Close()
'显示用户登录对话框
Dim LoginFrm As FrmUserLogin = New FrmUserLogin
FrmBackPic(LoginFrm)
LoginFrm.ShowDialog()
FrmSplash.Close()
'合法进入系统
If LoginFrm.bResult = True Then
Application.Run(New FrmMain)
End If
End Sub
然后在属性中设置"启动对象"---SUB MAIN 即可。
摘自 wl58796351的专栏