TvSettingsNew

This commit is contained in:
2024-12-09 17:43:40 +01:00
parent 101e7bf1dc
commit 3f74e845bb
11 changed files with 1194 additions and 822 deletions

View File

@@ -394,7 +394,7 @@ Public Class frmAnzeige
r.Cells(0).Style.Font = Font1_MESS
Dim doimage As Image = Nothing
Select Case r.Cells(0).Value.ToString
Case "PASSPORT" : doimage = My.Resources.passport : r.Cells(0).Value = "PASSPORT" ' r.Cells(0).Value = "PASS"
Case ",pn" : doimage = My.Resources.passport : r.Cells(0).Value = "PASSPORT" ' r.Cells(0).Value = "PASS"
Case "DOKUMENT" : doimage = My.Resources.passport : r.Cells(0).Value = "PROBLEM" ' r.Cells(0).Value = "PASS"
Case "URGENT" : doimage = My.Resources.urgent_qu : r.Cells(0).Value = "PROBLEM"
End Select