3

我已使用此代码设置我的 vb.net 项目启动屏幕的 5 秒时间。

Imports System.Collections.ObjectModel
Namespace My

    Partial Friend Class MyApplication
        Protected Overrides Function OnInitialize(ByVal commandLineArgs As ReadOnlyCollection(Of String)) As Boolean
            Me.MinimumSplashScreenDisplayTime = 5000
            Return MyBase.OnInitialize(commandLineArgs)
        End Function
    End Class

End Namespace

这段代码可以正常工作，但由于我的项目没有时间加载，所以一旦加载了启动画面，第一个表单也被加载，它隐藏了启动画面。

我希望在初始屏幕关闭后加载第一个表单。任何人都可以帮助我吗？

4

1 回答 1

1

您可以尝试将您的应用程序设置为使用“Sub Main”作为其启动对象，而不是任何一种形式。在“Sub Main”中，您可以在初始化时将初始屏幕显示为无模式表单，然后在准备好显示主表单时将其隐藏。就像是：

Sub Main

    Dim slash as new SpashScreenForm
    slash.Show()

    <do the initialization for several seconds>

    slash.Hide()

    Dim mainForm as new TheMainForm
    mainForm.ShowDialow()

 End Sub

您可能需要进行一些 Application.DoEvents() 调用以刷新启动画面。

于 2012-10-21T22:07:58.333 回答