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

Steuerung SQLGuide

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-02-25 14:36:55 +01:00
parent 11fc725614
commit 5cb64fd138
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Aviso/frmLogin.vb
View File

@@ -29,18 +29,18 @@ Public Class frmLogin
End If End If
e.Handled = True e.Handled = True
End If End If
If e.Modifiers = Keys.Control And e.KeyCode = Keys.G Then 'If e.Modifiers = Keys.Control And e.KeyCode = Keys.G Then
VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED = Not VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED ' VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED = Not VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED
VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER = "[SQLGUIDE01.verag.ost.dmn]" ' VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER = "[SQLGUIDE01.verag.ost.dmn]"
If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then ' If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then
Panel1.BackColor = Color.Red ' Panel1.BackColor = Color.Red
Panel1.ForeColor = Color.White ' Panel1.ForeColor = Color.White
Else ' Else
Panel1.BackColor = Color.White ' Panel1.BackColor = Color.White
Panel1.ForeColor = Color.FromArgb(0, 54, 128) ' Panel1.ForeColor = Color.FromArgb(0, 54, 128)
End If ' End If
e.Handled = True ' e.Handled = True
End If 'End If
If e.Modifiers = Keys.Control And e.KeyCode = Keys.N Then If e.Modifiers = Keys.Control And e.KeyCode = Keys.N Then
VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN = Not VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN = Not VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN
If VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN Then If VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN Then