neu
This commit is contained in:
@@ -12,6 +12,7 @@ Imports AvisoTV.cUserSettings
|
||||
Public Class frmAnzeige
|
||||
Dim cptmp As Point
|
||||
Dim displayZeilen As Boolean = False
|
||||
Dim displayZeilenBIG As Boolean = False
|
||||
Private AvisoDAL As New cAvisoDAL
|
||||
Private VermerkeDAL As New cVermerkeDAL
|
||||
Private locZeilen As Integer = -1
|
||||
@@ -62,8 +63,11 @@ Public Class frmAnzeige
|
||||
' Cursor.Position = Me.PointToScreen(New Point(Me.Width, Me.Height))
|
||||
|
||||
Me.CenterToScreen()
|
||||
|
||||
'TEST
|
||||
|
||||
StandortATILLA = False
|
||||
|
||||
|
||||
Me.Left = 0
|
||||
Me.Top = 0
|
||||
Me.Width = 1920
|
||||
@@ -71,7 +75,7 @@ Public Class frmAnzeige
|
||||
|
||||
Me.Text += " " & Application.ProductVersion
|
||||
|
||||
|
||||
|
||||
'Falls kein File vorhanden, dann werden alle angezeigt
|
||||
If Standort = "" Then
|
||||
|
||||
@@ -97,7 +101,7 @@ Public Class frmAnzeige
|
||||
|
||||
Panel1.BackColor = Color.FromArgb(0, 54, 128)
|
||||
lblZeit.BackColor = Color.FromArgb(0, 54, 128)
|
||||
lblAnzahl.BackColor = Color.FromArgb(0, 54, 128)
|
||||
lblAnzahl.BackColor = Color.FromArgb(0, 54, 128)
|
||||
lblSeite.BackColor = Color.FromArgb(0, 54, 128)
|
||||
Label11.ForeColor = Color.White
|
||||
lblZeit.ForeColor = Color.White
|
||||
@@ -280,7 +284,7 @@ Public Class frmAnzeige
|
||||
'Max_Seiten = (Anzahl_alle Mod 8) + 1
|
||||
|
||||
|
||||
timerRemove.enabled = True
|
||||
timerRemove.Enabled = True
|
||||
contrnamecnt = 0
|
||||
Dim anz As Integer = 0
|
||||
Try
|
||||
@@ -404,11 +408,11 @@ Public Class frmAnzeige
|
||||
anz += 1
|
||||
Dim LKW_Nr As String = VarToStr(dr.Item("LKW_Nr"))
|
||||
gridFertig.Rows.Add(My.Resources.okRound, LKW_Nr)
|
||||
|
||||
End While
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("ERR: " & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
@@ -420,17 +424,60 @@ Public Class frmAnzeige
|
||||
lblSeite.Text = "0/0"
|
||||
End If
|
||||
|
||||
Dim Special = ""
|
||||
Select Case Now.DayOfWeek
|
||||
Case DayOfWeek.Monday : Special = "MO"
|
||||
Case DayOfWeek.Tuesday : Special = "DI"
|
||||
Case DayOfWeek.Wednesday : Special = "MI"
|
||||
Case DayOfWeek.Thursday : Special = "DO"
|
||||
Case DayOfWeek.Friday : Special = "FR"
|
||||
Case DayOfWeek.Saturday : Special = "SA"
|
||||
Case DayOfWeek.Sunday : Special = "SO"
|
||||
End Select
|
||||
|
||||
'If Now.Day = 24 And Now.Month = 12 Then
|
||||
' Special = "CHRISTMAS"
|
||||
'End If
|
||||
'If Now.Day = 1 And Now.Month = 1 Then
|
||||
' Special = "NEWYEAR"
|
||||
'End If
|
||||
|
||||
'Infotext auslesen
|
||||
Dim AvisoTVDAL As New cAvisoTVDAL
|
||||
Dim AvisoTV As New cAvisoTV
|
||||
AvisoTV = AvisoTVDAL.LesenAvisoTV(1, "")
|
||||
Dim AvisoTV As cAvisoTV = AvisoTVDAL.LesenAvisoTV(-1, "", Standort, Special)
|
||||
|
||||
Dim lblBigInfoVisible = False
|
||||
lblBigInfo.Visible = False
|
||||
displayZeilen = False
|
||||
displayZeilenBIG = False
|
||||
Dim Panel2Height = 109
|
||||
If Not IsNothing(AvisoTV) Then
|
||||
' MsgBox(lblZeile1.Text)
|
||||
displayZeilen = True
|
||||
lblZeile1.Text = AvisoTV.FixeZeile1.Trim
|
||||
lblZeile2.Text = AvisoTV.FixeZeile2.Trim
|
||||
Select Case AvisoTV.Art
|
||||
Case "INFO"
|
||||
Panel2Height = 109
|
||||
lblZeile1.Text = AvisoTV.FixeZeile1.Trim
|
||||
lblZeile2.Text = AvisoTV.FixeZeile2.Trim
|
||||
displayZeilen = True
|
||||
Case "BIG"
|
||||
Panel2Height = 310
|
||||
displayZeilenBIG = True
|
||||
|
||||
lblBigInfoVisible = True
|
||||
lblBigInfo2.Text = AvisoTV.FixeZeile2.Trim
|
||||
lblBigInfo2.Padding = New Padding(0, 0, 0, 20)
|
||||
lblBigInfo2.Dock = DockStyle.Top
|
||||
lblBigInfo2.Height = 100
|
||||
lblBigInfoVisible = True
|
||||
lblBigInfo.Text = AvisoTV.FixeZeile1.Trim
|
||||
lblBigInfo.Padding = New Padding(0, 20, 0, 0)
|
||||
lblBigInfo.Dock = DockStyle.Top
|
||||
lblBigInfo.Height = 100
|
||||
|
||||
End Select
|
||||
End If
|
||||
Panel2.Height = Panel2Height
|
||||
lblBigInfo2.Visible = lblBigInfoVisible
|
||||
lblBigInfo.Visible = lblBigInfoVisible
|
||||
|
||||
lblZeit.Text = Format(Now, "dd.MM. HH:mm:ss")
|
||||
|
||||
@@ -491,6 +538,9 @@ Public Class frmAnzeige
|
||||
End Sub
|
||||
|
||||
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
|
||||
|
||||
initZeilenWerte()
|
||||
|
||||
lblZeit.Text = Format(Now, "dd.MM. HH:mm:ss")
|
||||
lblZeit.Refresh()
|
||||
If DateDiff(DateInterval.Second, hMerkZeit, Now) > Sekunden Then 'aktualisieren alle xx Sekunden
|
||||
@@ -505,12 +555,23 @@ Public Class frmAnzeige
|
||||
' MsgBox("now")
|
||||
|
||||
If (lblZeile1.Text & lblZeile1.Text).Trim = String.Empty Then displayZeilen = False : 'wenn alles leer
|
||||
If displayZeilen Then
|
||||
lblZeile1.Visible = Not lblZeile1.Visible
|
||||
lblZeile2.Visible = Not lblZeile2.Visible
|
||||
Else
|
||||
|
||||
If displayZeilenBIG Then
|
||||
lblBigInfo.Visible = True
|
||||
lblBigInfo2.Visible = True
|
||||
lblZeile1.Visible = False
|
||||
lblZeile2.Visible = False
|
||||
Else
|
||||
lblBigInfo.Visible = False
|
||||
lblBigInfo2.Visible = False
|
||||
|
||||
If displayZeilen Then
|
||||
lblZeile1.Visible = Not lblZeile1.Visible
|
||||
lblZeile2.Visible = Not lblZeile2.Visible
|
||||
Else
|
||||
lblZeile1.Visible = False
|
||||
lblZeile2.Visible = False
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -634,6 +695,7 @@ Public Class frmAnzeige
|
||||
gridAnkunft.Columns(4).DefaultCellStyle.Font = Font5
|
||||
|
||||
gridFertig.Columns(1).DefaultCellStyle.Font = Font_LkwOK_LKWNr
|
||||
gridFertig.Columns(1).Visible = True
|
||||
|
||||
|
||||
If StandortATILLA And gridAnkunft.Columns("clmnBuero") IsNot Nothing Then
|
||||
@@ -673,13 +735,8 @@ Public Class frmAnzeige
|
||||
End Sub
|
||||
|
||||
Sub initZeilen()
|
||||
' MsgBox(gridAnkunft.Rows(0).Cells(0).Size.Height)
|
||||
If gridAnkunft.RowCount > 0 Then
|
||||
ZeilenStandard = CInt(gridAnkunft.Height / gridAnkunft.Rows(0).Cells(0).Size.Height) - 1
|
||||
Else
|
||||
ZeilenStandard = 8
|
||||
End If
|
||||
Max_Zeilen = ZeilenStandard
|
||||
initZeilenWerte()
|
||||
|
||||
'MsgBox(ZeilenStandard)
|
||||
Aktive_Seite = 0
|
||||
Merk_Ankunftsdatum = LeerDatum
|
||||
@@ -687,6 +744,17 @@ Public Class frmAnzeige
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initZeilenWerte()
|
||||
If gridAnkunft.RowCount > 0 Then
|
||||
ZeilenStandard = CInt(gridAnkunft.Height / gridAnkunft.Rows(0).Cells(0).Size.Height) - 1
|
||||
Else
|
||||
ZeilenStandard = 8
|
||||
End If
|
||||
Max_Zeilen = ZeilenStandard
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnTestAnzeige_Click(sender As System.Object, e As System.EventArgs) Handles btnTestAnzeige.Click
|
||||
isloaded = False
|
||||
initSettings()
|
||||
|
||||
Reference in New Issue
Block a user