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)
Dim blau As Drawing.Color = Drawing.Color.LightBlue
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 darkblue = Drawing.Color.FromArgb(4, 51, 129)
tr.BackColor = blau
If t1.Text = "" Then
t1.BackColor = blau
t1.ForeColor = schwarz
Else
t1.BackColor = blau
t1.ForeColor = schwarz
End If
If t2.Text = "Erfasst" Then
t2.BackColor = Drawing.Color.DarkGreen
@@ -64,43 +66,56 @@ Partial Class Kundenbereich_Default
t2.BackColor = Drawing.Color.OldLace
t2.ForeColor = white
ElseIf t2.Text = "Vorgeschrieben" Then
t2.BackColor = Drawing.Color.DarkGray
t2.BackColor = Drawing.Color.Black
t2.ForeColor = white
ElseIf t2.Text = "Undefiniert" Then
t2.BackColor = Drawing.Color.Black
t2.BackColor = Drawing.Color.DarkGray
t2.ForeColor = white
Else
t2.BackColor = blau
t2.ForeColor = schwarz
End If
If t3.Text = "" Then
t3.BackColor = blau
t3.ForeColor = schwarz
Else
t3.BackColor = blau
t3.ForeColor = schwarz
End If
If t4.Text = "" Then
t4.BackColor = blau
t4.ForeColor = schwarz
Else
t4.BackColor = blau
t4.ForeColor = schwarz
End If
If t5.Text = "" Then
t5.BackColor = blau
t5.ForeColor = schwarz
Else
t5.BackColor = blau
t5.ForeColor = schwarz
End If
If t6.Text = "" Then
t6.BackColor = blau
t6.ForeColor = schwarz
Else
t6.BackColor = blau
t6.ForeColor = schwarz
End If
If t7.Text = "" Then
t7.BackColor = blau
t7.ForeColor = schwarz
Else
t7.BackColor = blau
t7.ForeColor = schwarz
End If
If t8.Text = "" Then
t8.BackColor = blau
t8.ForeColor = schwarz
Else
t8.BackColor = blau
t8.ForeColor = schwarz
End If
th1.BackColor = darkblue
th1.ForeColor = white