■  スプラッシュウィンドウ

メインフォームに表示する前のオープニング画面のことです。ここでは透明度を変化させて表示させる例です。
この例では、Ｆｏｒｍ１がメインフォームでＦｏｒｍ２がスプラッシュフォームです。

【Form1_Load】

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                                                              Handles MyBase.Load

        Dim splash As New Form2
        With splash
            .Show()
            .Refresh()
            .Close()
            .Dispose()
        End With

    End Sub

【Form2_Closing】

    Private Sub Form2_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) _
                                                                                 Handles MyBase.Closing
        Dim start As Double = Microsoft.VisualBasic.DateAndTime.Timer
        Dim ddd As Double
        ddd = Me.Opacity
        Do While Me.Opacity < 1      '透明度が100%になるまで
            ddd += 0.005             '0.5%ずつ変化
            Me.Opacity = ddd
        Loop
        Do Until (Microsoft.VisualBasic.DateAndTime.Timer - start) > 20 '20秒WAIT
        Loop
    End Sub

※Form2_ClosingがなければＦｏｒｍ２が一瞬しか表示されません。

BEFORE PAGE

TOP PAGE