问自定义通知关闭消息框

EN

Private Sub DoneNotification_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   FadeInTimer.Enabled = True
End Sub

Private Sub FadeInTimer_Tick(sender As Object, e As EventArgs) Handles FadeInTimer.Tick
    Dim opacityFade As Single
    For opacityFade = 0 To 0.8 Step 0.01
        Me.Opacity = opacityFade
        Me.Refresh()
        System.Threading.Thread.Sleep(1)
    Next opacityFade

    FadeInTimer.Enabled = False
    WaitTimer.Enabled = True
End Sub

Public Sub FadeOutTimer_Tick(sender As Object, e As EventArgs) Handles FadeOutTimer.Tick
    Me.Opacity -= 0.06
    If Me.Opacity = 0 Then
        Me.Dispose()
    End If
End Sub

Private Sub WaitTimer_Tick(sender As Object, e As EventArgs) Handles WaitTimer.Tick

    WaitTimer.Enabled = False
    FadeOutTimer.Enabled = True
End Sub

Public Sub FadeOutTimer_Tick(sender As Object, e As EventArgs) Handles FadeOutTimer.Tick
    'This will decrement the opacity.
    Me.Opacity -= 0.06
    'Now that the form is at zero opacity we must 'dispose' of the form.
    If Me.Opacity = 0 Then
        Me.Close()
    End If
End Sub

Public Shared Sub FadeOutTimer_Tick(sender As Object, e As EventArgs) Handles FadeOutTimer.Tick
    'This will decrement the opacity.
    DoneNotification.Opacity -= 0.06
    'Now that the form is at zero opacity we must 'dispose' of the form.
    If DoneNotification.Opacity = 0 Then
        DoneNotification.Close()
    End If
End Sub