HOW TO:溅射屏幕(Splash Screen),也叫程序启动画面的制作(.NET2005)

Author:水如烟

由于MSDN中文文档还没出来，不晓得那些名词怎叫法，所以不说多了，贴代码和图象（我将操作的步骤一并说了）。
MS2005自带的SplashScreenForm少了一项功能，就是主窗体在加载项目时若时间较长，不能把信息显示在启动窗体中。我主要的想实现这个。
项目涉及到线程消息的传递，这方面我不懂。功能是实现了，为什么那样做，我也不明白。好了，开始。

首先建一个工程LzmTW.ApplicationBase，输出为Class Libary。我的SplashScreenForm好简单。如图：
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

文件SplashScreenForm.vb:

Public Class SplashScreenFormClass SplashScreenForm
Public Class Form1Class Form1

Private Sub Form1_Load()Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim SendMessage As New LzmTW.ApplicationBase.SplashScreenMainFormLoadingClass
For i As Integer = 999 To 0 Step -1
SendMessage.SendItemMessage(Nothing, String.Format("稍等,加载{0}中", i))
Next

SendMessage.SendItemMessage(Nothing, String.Format("稍等,正在加载{0}", "数据集"))
Dim b As New DataSet
'.
SendMessage.SendItemMessage(Nothing, "加载完毕")
'停顿2秒，看看
System.Threading.Thread.Sleep(2000)
End Sub
End Class
效果如图。



好了，全说完了。不足之处，敬请指出。