31 lines
1020 B
VB.net
31 lines
1020 B
VB.net
Public Class frmPopUpInfo
|
|
Dim WithEvents timer As New Timer
|
|
Public ErrMessage = ""
|
|
Public seconds As Integer
|
|
Public infotxt = "Info"
|
|
|
|
Public typ = "INFO"
|
|
|
|
Private Sub frmPopUpInfo_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Label2.Text = infotxt
|
|
Select Case typ
|
|
Case "INFO" : Label2.BackColor = Color.FromArgb(0, 54, 128)
|
|
Case "ERR" : Label2.BackColor = Color.Red
|
|
End Select
|
|
lblFensterSchließtIn3.Text = "Fenster schließt in ... " & (seconds)
|
|
seconds -= 1
|
|
Label1.Text = ErrMessage
|
|
timer.Interval = 1000
|
|
timer.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub timer_Tick(sender As Object, e As EventArgs) Handles timer.Tick
|
|
If seconds < 0 Then Me.Close()
|
|
lblFensterSchließtIn3.Text = "Fenster schließt in ... " & seconds
|
|
seconds -= 1
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Me.Close()
|
|
End Sub
|
|
End Class |