From 5cb64fd13871664e023aa59af78668a96775c92f Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 25 Feb 2026 14:36:55 +0100 Subject: [PATCH] Steuerung SQLGuide --- Aviso/frmLogin.vb | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/Aviso/frmLogin.vb b/Aviso/frmLogin.vb index 6765dcb..ba17d3f 100644 --- a/Aviso/frmLogin.vb +++ b/Aviso/frmLogin.vb @@ -29,18 +29,18 @@ Public Class frmLogin End If e.Handled = True End If - 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.FMZOLL_SERVER = "[SQLGUIDE01.verag.ost.dmn]" - If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then - Panel1.BackColor = Color.Red - Panel1.ForeColor = Color.White - Else - Panel1.BackColor = Color.White - Panel1.ForeColor = Color.FromArgb(0, 54, 128) - End If - e.Handled = True - End If + '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.FMZOLL_SERVER = "[SQLGUIDE01.verag.ost.dmn]" + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then + ' Panel1.BackColor = Color.Red + ' Panel1.ForeColor = Color.White + ' Else + ' Panel1.BackColor = Color.White + ' Panel1.ForeColor = Color.FromArgb(0, 54, 128) + ' End If + ' e.Handled = True + 'End If If e.Modifiers = Keys.Control And e.KeyCode = Keys.N Then VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN = Not VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN If VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN Then