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

GUI tabellendesign

Browse Source
This commit is contained in:
ja
2021-12-07 16:51:47 +01:00
parent 22f8b73c25
commit 0078866ea5
1 changed files with 29 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
Customers/LKWs.aspx.vb
View File

@@ -76,18 +76,43 @@ Partial Class LKWS
Private Sub initcells(thr1 As TableHeaderRow, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, tr1 As TableRow, tc_KfzKennz As TableCell, tc_Nationalitaet As TableCell, tc_Verk As TableCell, tc_KZ_An As TableCell, tc_Vermerk As TableCell, countrows As Integer) Private Sub initcells(thr1 As TableHeaderRow, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, tr1 As TableRow, tc_KfzKennz As TableCell, tc_Nationalitaet As TableCell, tc_Verk As TableCell, tc_KZ_An As TableCell, tc_Vermerk As TableCell, countrows As Integer)
Dim res As Integer Dim res As Integer
tr1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129) thr1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
th1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129) th1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
th2.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129) th2.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
th3.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129) th3.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
th4.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129) th4.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
th5.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129) th5.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
th1.ForeColor = Drawing.Color.White
th2.ForeColor = Drawing.Color.White
th3.ForeColor = Drawing.Color.White
th4.ForeColor = Drawing.Color.White
th5.ForeColor = Drawing.Color.White
If Math.DivRem(countrows, 2, res) = 0 Then If Math.DivRem(countrows, 2, res) = 0 Then
tr1.BackColor = Drawing.Color.LightBlue
tc_KfzKennz.BackColor = Drawing.Color.LightBlue
tc_KZ_An.BackColor = Drawing.Color.LightBlue
tc_Nationalitaet.BackColor = Drawing.Color.LightBlue
tc_Verk.BackColor = Drawing.Color.LightBlue
tc_Vermerk.BackColor = Drawing.Color.LightBlue
tr1.ForeColor = Drawing.Color.Black
tc_KfzKennz.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_KZ_An.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Nationalitaet.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Verk.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Vermerk.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
Else Else
tr1.BackColor = Drawing.Color.WhiteSmoke
tc_KfzKennz.BackColor = Drawing.Color.WhiteSmoke
tc_KZ_An.BackColor = Drawing.Color.WhiteSmoke
tc_Nationalitaet.BackColor = Drawing.Color.WhiteSmoke
tc_Verk.BackColor = Drawing.Color.WhiteSmoke
tc_Vermerk.BackColor = Drawing.Color.WhiteSmoke
tc_KfzKennz.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_KZ_An.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Nationalitaet.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Verk.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Vermerk.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
End If End If
End Sub End Sub