步骤1:
在SplashScreen窗体上拖放一个Timer控件,并设置Interval属性为3000(代表停留3秒钟),在时间到后关闭窗体;
Private
Sub Timer1_Elapsed()
Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
Me.Close()
End Sub
Me.Close()
End Sub
步骤2:
在主窗体的构造函数中使用下列代码:
Public
Sub New()
Sub New()
MyBase.New()
Me.Cursor = Cursors.AppStarting
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
'加载图书类型至TreeView
PopulateBookType()
'显示Splash Screen
Dim frm As New SplashForm
frm.FormBorderStyle = FormBorderStyle.None
frm.MaximizeBox = False
frm.MinimizeBox = False
frm.StartPosition = FormStartPosition.CenterScreen
frm.ControlBox = False
frm.ShowInTaskbar = False
frm.ShowDialog()
Me.StartPosition = FormStartPosition.CenterScreen
Me.Cursor = Cursors.Default
End Sub
MyBase.New()
Me.Cursor = Cursors.AppStarting
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
'加载图书类型至TreeView
PopulateBookType()
'显示Splash Screen
Dim frm As New SplashForm
frm.FormBorderStyle = FormBorderStyle.None
frm.MaximizeBox = False
frm.MinimizeBox = False
frm.StartPosition = FormStartPosition.CenterScreen
frm.ControlBox = False
frm.ShowInTaskbar = False
frm.ShowDialog()
Me.StartPosition = FormStartPosition.CenterScreen
Me.Cursor = Cursors.Default
End Sub
参考网址:
Windows Forms FAQ - Windows Forms
Windows Forms FAQ - Windows Forms 2.0