在开发程序过程如何更好安排frmspash窗体,登录窗体frmlogin,及主窗体是新手经常遇到的烦脑,这是本人经常使用的一个过程,供大家参考,这段代面要放到MODULE中来运行。
<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 即可。