IT学习联盟

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
IT学习联盟 门户 文章 VB 查看内容

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

2012-8-18 17:30| 发布者: admin| 查看: 685| 评论: 0

在开发程序过程如何更好安排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的专栏
Archiver|IT学习联盟| 网站地图

Powered by Discuz! X2.5© 2001-2010 世界学习室 大伟制作

GMT+8, 2018-2-26 05:11 , Processed in 0.110953 second(s), 12 queries .