VB.NET에서 스플래시 화면의 5 초 타이밍을 설정하는 방법

Question

이 코드를 사용하여 내 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 

이 코드는 완벽하게 작동하지만, 내 프로젝트로되는 SplashScreen이 첫번째 형태는로드지고로드지고 너무 빨리로드 시간이 소요없고, 시작 화면을 숨기고있다.

스플래시 화면이 닫힌 후 첫 번째 양식이로드되기를 원합니다. 어느 누구도이 일에서 나를 도울 수 있습니까?

Answer 1

"Sub Main"을 시작 개체로 사용하도록 응용 프로그램을 설정해보십시오. 'Sub Main'에서는 초기화를 수행하는 동안 초기 화면을 모달리스 폼으로 표시 한 다음 기본 양식을 표시 할 준비가되면 숨길 수 있습니다. 같은 : 당신은) (몇 Application.DoEvents 던져해야 할 수도 있습니다

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 

는 시작 화면 새로 고침을 얻기 위해 호출합니다.