关于 初始屏幕
有frmSplashScreen（启动画面）、frmMain（主窗体）和frmLogin（用户登录）三窗体
在项目的属性里指定了初始屏幕为frmSplashScreen。
在程序的MyApplication_Startup事件里写入了一些打印及检查数据库的代码。
把frmMain设置为了启动窗体，在frmMain的Load事件中写了代码如下：
Dim f As New frmUserLogin
f.ShowDialog()
在开发时启动调式没什么问题，能实现先显示启动画面，等MyApplication_Startup事件中的代码运行完成后自动关闭，再运行frmMain窗体的Load事件，显示frmLogin窗体。
但运行EXE文件时发现frmSplashScreen（启动画面）在frmUserLogin显示出来了都没有关闭，造成启动画面遮挡了frmUserLogin 需要点一下任务栏切换过去，再后启动画面才关闭。
[解决办法]
最简单的办法，在程序最开始 show 一个窗口，这个窗口设为最上面显示，等login的窗体出来之前close掉....
[解决办法]
程序开始运行登陆界面~在from_load里加入
FormFlash.NewForm.ShowDialog(Me)
在启动画面里加入
Private Shared m_Form As New FormFlash
Public Shared ReadOnly Property NewForm() As FormFlash
Get
If m_Form Is Nothing OrElse m_Form.IsDisposed Then
m_Form = New FormFlash
End If
Return m_Form
End Get
End Property
Private Sub TimeLoad_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles TimeLoad.Elapsed
Dim xiaoXI As String
Select Case LabFlash.Tag
Case 1
LabFlash.Text = "读取Windows系统信息... "
Case 2
LabFlash.Text = "正在获得 Microsoft Visual Studio 实例.... "
Case 3
LabFlash.Text = "控件类与对像集合重载.... "
Case 4
LabFlash.Text = "正在加载 Microsoft .NET Framework 组件.... "
Case 5
LabFlash.Text = "正在创建数据库连接... "
Case 6
LabFlash.Text = "正在加载数据库.... "
Case 7
Me.Close()
End Select
End Sub
差不多这样咯~
