启动时显示以及关闭splash窗体

发布时间：2020-12-17 00:00:11 所属栏目：大数据来源：网络整理

导读：自动出现一个启动窗体，其实可以在项目属性那里初始屏幕中选择一个窗体，然后加个定时器让它关闭：但是，这个方法在主窗体需要加载数据的时候不能准确获得数据是否加载完毕。本文采用了一个另外的方法：主窗体：包含一个label和一个timer Splash窗体：包

自动出现一个启动窗体，其实可以在项目属性那里初始屏幕中选择一个窗体，然后加个定时器让它关闭：

但是，这个方法在主窗体需要加载数据的时候不能准确获得数据是否加载完毕。
本文采用了一个另外的方法：

主窗体：包含一个label和一个timer

Splash窗体：包含一个label和一个progressbar。窗体的TopMost属性为True，确保Splash窗体显示在主窗体上面，同时由于无法准确获知主窗体载入数据的时间，所以设置progressbar 的Style属性为Marquee

模块中的代码：

Public MainFormState As Integer

主窗体代码：

Public Class Form1 Private Sub Form1_Load(sender As Object,e As EventArgs) Handles MyBase.Load MainFormState = 0 Dim frm2 As New Form2 frm2.Show()

Timer1.Start() End Sub

Private Sub Timer1_Tick(sender As Object,e As EventArgs) Handles Timer1.Tick Timer1.Stop() Label1.Text = "启动中……"

Console.WriteLine("状态：" & MainFormState)

Threading.Thread.Sleep(1000) Dim sum As Integer = 0 For i As Integer = 0 To 1000000 sum += 1 Application.DoEvents() Next MainFormState = 1 Label1.Text = "正在导入数据" Console.WriteLine("状态：" & MainFormState)

For i As Integer = 0 To 1000000 sum += 1 Application.DoEvents() Next

MainFormState = 2 Label1.Text = "启动完成" Console.WriteLine("状态：" & MainFormState) End Sub End Class

Splash窗体代码：

Public Class Form2
    Private Sub Form2_Load(sender As Object,e As EventArgs) Handles MyBase.Load
        Me.CheckForIllegalCrossThreadCalls = False
        Dim thrCheckState As New Threading.Thread(AddressOf checkstate)
        thrCheckState.Start()

    End Sub

    Sub checkstate()

        Dim blLoaded As Boolean = False
        Do While (blLoaded = False)
            Select Case MainFormState
                Case 0
                    Label1.Text = "启动中……"
                    blLoaded = False
                Case 1
                    Label1.Text = "正在导入数据"
                    blLoaded = False
                Case Else
                    Label1.Text = "启动完成"
                    blLoaded = True
            End Select
        Loop
        Me.Close()
    End Sub

End Class

运行时：

为什么主窗体要加入timer，然后再timer中加载数据?大家可以尝试把加载数据的代码修改到Form_load 中试一下。

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看vb.net 教程目录

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!