Improve logging for debug checkbox
This commit is contained in:
@@ -356,12 +356,16 @@ Public Class frmConfig_Basic
|
|||||||
|
|
||||||
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
|
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
|
||||||
If formloaded = True Then
|
If formloaded = True Then
|
||||||
CONFIG.Config.LogDEBUG = chkLogErrorsOnly.Checked
|
Dim oDebug = chkLogErrorsOnly.Checked
|
||||||
|
|
||||||
|
CONFIG.Config.LogDEBUG = oDebug
|
||||||
CONFIG.Save()
|
CONFIG.Save()
|
||||||
'SaveConfigValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
|
|
||||||
LOGGER.Info(" >> LogErrorsOnly changed to '" & chkLogErrorsOnly.Checked)
|
LOGGER.Info("Debug Log Enabled: [{0}]", oDebug)
|
||||||
LogErrorsOnly = chkLogErrorsOnly.Checked
|
LOGGER.Debug("Debug Log Enabled: [{0}]", oDebug)
|
||||||
LOGCONFIG.Debug = chkLogErrorsOnly.Checked
|
|
||||||
|
LogErrorsOnly = oDebug
|
||||||
|
LOGCONFIG.Debug = oDebug
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
<STAThread()>
|
<STAThread()>
|
||||||
|
|||||||
Reference in New Issue
Block a user