水如烟

                 顺其自然,水到渠成 LzmTW

文或代码皆是面向初学者.我是爱好者,也是初学者.那些"文章",只按自己理解写,我是不知术语名词的.所以只供参考,也仅供参考.

导航

Author:水如烟(LzmTW)

     看到有人提起,就想动手做做。可能要花两天时间,因为时间是零零碎碎的。
     哎,很多常用的东西,在2005版已经有了。当初看到好多人写基于2003的控件,这2005一出哪,全都没用了。心血白费了。这微软未免也太缺德了。应该说,2003是.NET的试用版,到了2005才算是正式版吧。或许基于2005的自写控件、组件寿命会长一些。否则,不骂娘才怪。
     现在写写,也算是练练习吧。

     溅射屏幕,即SplashScreenForm,有以下特点:
     首先,程序是主窗体程序;
     其次,SplashScreenForm在主窗体加载完毕后退出。

     一般来说,SplashScreenForm比较简洁,窗体的内容只是显示程序主题、版权等信息;复杂些的,显示主程序的加载项目情况。
     微软的SplashScreenForm向来简洁,Adobe的复杂些,就画窗体也花了一番心思。以下做的,以微软的作标准。

     按照功能实现与界面分离的原则,这个类当然不能依赖于某个特定的SplashScreenForm或MainForm。参考了.NET2005的做法,继承了System.Windows.Forms.ApplicationContext做了一个SplashScreenApplicationContextClass基类。具体使用时,再继承这个类赋与特定参数,交Application.Run(ApplicationContext)来运行。因为基础知识不好,好多东西只知道用而不知为什么这样用,免不了的会出现这样那样的问题,请指正。

     总体思路是:溅射屏幕显示的同时加载主窗体,主窗体加载完毕后关闭溅射屏幕,程序交给主窗体。溅射屏幕显示的时间由两个因素决定,一个是事前设定的溅射屏幕显示的时间,一个是主窗体加载所需要的时间,实际显示时间是两者中的最大值。

     SplashScreenApplicationContextClass为什么要做为基类设计并要实现?主要考虑到主窗体在初始化时就需要时间,Sub New()是需要时间的,并非所有的程序都将初始事项放到Load()里头。

    
类:    

Imports System.Windows.Forms
Imports System.Threading
Public MustInherit Class SplashScreenApplicationContextClass
    
Inherits System.Windows.Forms.ApplicationContext

    
Private _SplashScreenForm As Form
    
Private _SplashScreenTimer As System.Timers.Timer
    
Private _SplashScreenTimerInterVal As Integer = 5000
    
Private _MainFormFinshLoad As Boolean = False
    
Private _MainFormWindowState As Windows.Forms.FormWindowState
    
Private _CloseSplashScreen As Boolean = False

    
Private Delegate Sub DisposeDelegate()

    
Protected WriteOnly Property SplashScreenForm() As Form
        
Set(ByVal Value As Form)
            
Me._SplashScreenForm = Value
        
End Set
    
End Property

    
Protected WriteOnly Property SecondsShow() As Integer
        
Set(ByVal Value As Integer)
            
If Value <> 0 Then
                
Me._SplashScreenTimerInterVal = 1000 * Value
            
End If
        
End Set
    
End Property


    
Sub New()

        
Me.ShowSplashScreen()
        
Me.MainFormLoad()

    
End Sub

    
Private Sub DoEvents()
        Application.DoEvents()
    
End Sub

    
Protected MustOverride Sub OnCreateSplashScreenForm()

    
Protected MustOverride Sub OnCreateMainForm()

    
Protected MustOverride Sub SetSeconds()

    
Private Sub ShowSplashScreen()
        
Me.SetSeconds()
        
Me.OnCreateSplashScreenForm()
        
Me._SplashScreenTimer = New System.Timers.Timer(CType(Me._SplashScreenTimerInterVal, Double))
        
AddHandler _SplashScreenTimer.Elapsed, New System.Timers.ElapsedEventHandler(AddressOf Me.SplashScreenDisplayTimeUp)
        
Me._SplashScreenTimer.AutoReset = False
        
Dim DisplaySpashScreenThread As New Thread(New ThreadStart(AddressOf Me.DisplaySplashScreen))
        DisplaySpashScreenThread.Start()
    
End Sub

    
Private Sub DisplaySplashScreen()
        
Me._SplashScreenTimer.Enabled = True
        Application.Run(
Me._SplashScreenForm)
    
End Sub

    
Private Sub SplashScreenDisplayTimeUp(ByVal sender As System.Object, ByVal e As System.timers.ElapsedEventArgs)
        
Me._SplashScreenTimer.Dispose()
        
Me._SplashScreenTimer = Nothing
        
Me._CloseSplashScreen = True
    
End Sub

    
Private Sub MainFormLoad()
        
Me.OnCreateMainForm()
        _MainFormWindowState 
= Me.MainForm.WindowState '保存主窗体状态
        Me.MainForm.WindowState = FormWindowState.Normal '非Normal情形下,主窗体会Show出来
        AddHandler Me.MainForm.Load, New EventHandler(AddressOf Me.MainFormLoadingDone)
    
End Sub

    
Private Sub MainFormLoadingDone(ByVal sender As ObjectByVal e As EventArgs)
        
RemoveHandler Me.MainForm.Load, New EventHandler(AddressOf Me.MainFormLoadingDone)
        
Do While Not Me._CloseSplashScreen
            
Me.DoEvents()
        
Loop
        
Me.HideSplashScreen()
    
End Sub

    
Private Sub HideSplashScreen()
        MainFormActivate()
        
'先激活主窗体再关闭启动窗体,是为了保证程序为当前活动程序
        Dim SplashScreenFormDisposeDelegate As DisposeDelegate = New DisposeDelegate(AddressOf Me._SplashScreenForm.Dispose)
        
Me._SplashScreenForm.Invoke(SplashScreenFormDisposeDelegate)
        
Me._SplashScreenForm = Nothing
    
End Sub

    
Private Sub MainFormActivate()
        
If _MainFormWindowState = FormWindowState.Minimized Then _MainFormWindowState = FormWindowState.Normal
        
If Me.MainForm.WindowState <> _MainFormWindowState Then Me.MainForm.WindowState = _MainFormWindowState
        
Me.MainForm.Activate()
    
End Sub
End Class


使用:(SplashScreenForm我还是随便用一个Form来代替)

Public Class App

    
Public Shared Sub Main()
        
Dim t As New MyContext
        Application.Run(t)
    
End Sub

End Class

Public Class MyContext
    
Inherits SplashScreenApplicationContextClass

    
Protected Overrides Sub OnCreateMainForm()
        
Me.MainForm = New Form2
    
End Sub

    
Protected Overrides Sub OnCreateSplashScreenForm()
        
Me.SplashScreenForm = New Form1
    
End Sub

    
Protected Overrides Sub SetSeconds()
        
Me.SecondsShow = 3 '显示3秒,若是0则取默认值5秒
    End Sub

End Class