58 lines
2.2 KiB
VB.net
58 lines
2.2 KiB
VB.net
Public Class frmNotify
|
|
Public Y As Integer = 0
|
|
Public AvisoID As Integer = 0
|
|
|
|
Sub New(title As String, text As String)
|
|
Me.InitializeComponent()
|
|
Me.lblTitle.Text = title
|
|
Me.lblText.Text = text
|
|
End Sub
|
|
|
|
Sub New(typ As Integer, text As String, id As Integer)
|
|
Me.InitializeComponent()
|
|
Me.AvisoID = id
|
|
Select Case typ
|
|
Case 1
|
|
Me.lblTitle.Text = "LKW Standzeit Benachrichtigung"
|
|
Me.lblText.Text = "Der LKW '" & text & "' ist vor über 2 Stunden eingetroffen."
|
|
Case 2
|
|
Me.lblTitle.Text = "LKW Standzeit - Vermerk eintragen"
|
|
Me.lblText.Text = "Der LKW '" & text & "' ist vor über 2 Stunden eingetroffen." &
|
|
"Bitte VERMERK eintragen!"
|
|
Case 3
|
|
Me.lblTitle.Text = "LKW Standzeit Benachrichtigung"
|
|
Me.lblText.Text = "Der LKW '" & text & "' steht bereits über 24 Stunden!"
|
|
Me.Header.BackColor = Color.Red
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub frmNotify_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
lblText.Cursor = IIf(AvisoID > 0, Cursors.Hand, Cursors.Default)
|
|
'If Y = 0 Then
|
|
'Me.Location = New Point(Me.Owner.Width - Me.Width - 10, Me.Owner.Height - Me.Height - 10)
|
|
' Else
|
|
' Me.Location = New Point(Me.Owner.Width - Me.Width - 10, Y)
|
|
' End If
|
|
Dim WIDTH = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Width
|
|
Dim hEIGHT = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Width
|
|
If Y = 0 Then
|
|
Me.Location = New Point(WIDTH - Me.Width - 10, hEIGHT - Me.Height - 10)
|
|
Else
|
|
Me.Location = New Point(WIDTH - Me.Width - 10, Y)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub lblText_Click(sender As Object, e As EventArgs) Handles lblText.Click
|
|
frmHauptfenster.Details_anzeigen(AvisoID)
|
|
Me.Close()
|
|
End Sub
|
|
End Class |