如何合理地安排窗体的启动顺序?

来源:岁月联盟 编辑:exp 时间:2012-02-01
在开发程序过程如何更好安排frmspash窗体,登录窗体frmlogin,及主窗体是新手经常遇到的烦脑,这是本人经常使用的一个过程,供大家参考,这段代面要放到MODULE中来运行。</span> 
 
<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的专栏