edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Alle Buttons vereinheitlicht

Browse Source
This commit is contained in:
ja
2021-09-17 15:13:23 +02:00
parent 0f1d23ad2e
commit 294536df20
1 changed files with 18 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Customers/CustomsAviso.aspx.vb
View File

@@ -41,15 +41,17 @@ Partial Class Kundenbereich_Default
Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell) Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell)
Dim blau As Drawing.Color = Drawing.Color.LightBlue Dim blau As Drawing.Color = Drawing.Color.LightBlue
Dim white As Drawing.Color = Drawing.Color.White Dim white As Drawing.Color = Drawing.Color.White
Dim schwarz As Drawing.Color = Drawing.Color.Black
Dim darkgrau As Drawing.Color = Drawing.Color.DarkGray Dim darkgrau As Drawing.Color = Drawing.Color.DarkGray
Dim darkblue = Drawing.Color.FromArgb(4, 51, 129) Dim darkblue = Drawing.Color.FromArgb(4, 51, 129)
tr.BackColor = blau tr.BackColor = blau
If t1.Text = "" Then If t1.Text = "" Then
t1.BackColor = blau t1.BackColor = blau
t1.ForeColor = schwarz
Else Else
t1.BackColor = blau t1.BackColor = blau
t1.ForeColor = schwarz
End If End If
If t2.Text = "Erfasst" Then If t2.Text = "Erfasst" Then
t2.BackColor = Drawing.Color.DarkGreen t2.BackColor = Drawing.Color.DarkGreen
@@ -64,43 +66,56 @@ Partial Class Kundenbereich_Default
t2.BackColor = Drawing.Color.OldLace t2.BackColor = Drawing.Color.OldLace
t2.ForeColor = white t2.ForeColor = white
ElseIf t2.Text = "Vorgeschrieben" Then ElseIf t2.Text = "Vorgeschrieben" Then
t2.BackColor = Drawing.Color.DarkGray t2.BackColor = Drawing.Color.Black
t2.ForeColor = white t2.ForeColor = white
ElseIf t2.Text = "Undefiniert" Then ElseIf t2.Text = "Undefiniert" Then
t2.BackColor = Drawing.Color.Black t2.BackColor = Drawing.Color.DarkGray
t2.ForeColor = white t2.ForeColor = white
Else Else
t2.BackColor = blau t2.BackColor = blau
t2.ForeColor = schwarz
End If End If
If t3.Text = "" Then If t3.Text = "" Then
t3.BackColor = blau t3.BackColor = blau
t3.ForeColor = schwarz
Else Else
t3.BackColor = blau t3.BackColor = blau
t3.ForeColor = schwarz
End If End If
If t4.Text = "" Then If t4.Text = "" Then
t4.BackColor = blau t4.BackColor = blau
t4.ForeColor = schwarz
Else Else
t4.BackColor = blau t4.BackColor = blau
t4.ForeColor = schwarz
End If End If
If t5.Text = "" Then If t5.Text = "" Then
t5.BackColor = blau t5.BackColor = blau
t5.ForeColor = schwarz
Else Else
t5.BackColor = blau t5.BackColor = blau
t5.ForeColor = schwarz
End If End If
If t6.Text = "" Then If t6.Text = "" Then
t6.BackColor = blau t6.BackColor = blau
t6.ForeColor = schwarz
Else Else
t6.BackColor = blau t6.BackColor = blau
t6.ForeColor = schwarz
End If End If
If t7.Text = "" Then If t7.Text = "" Then
t7.BackColor = blau t7.BackColor = blau
t7.ForeColor = schwarz
Else Else
t7.BackColor = blau t7.BackColor = blau
t7.ForeColor = schwarz
End If End If
If t8.Text = "" Then If t8.Text = "" Then
t8.BackColor = blau t8.BackColor = blau
t8.ForeColor = schwarz
Else Else
t8.BackColor = blau t8.BackColor = blau
t8.ForeColor = schwarz
End If End If
th1.BackColor = darkblue th1.BackColor = darkblue
th1.ForeColor = white th1.ForeColor = white