vb Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.SplashScreen类(方法)实例源码

Private Sub MyApplication_Startup(
    sender As Object,
    e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs
) Handles Me.Startup
    ' Get the splash screen.
    Dim splash As SplashScreen1 = CType(My.Application.SplashScreen, SplashScreen1)
    ' Display current status information.
    splash.Status = "Current user: " & My.User.Name
End Sub