Ms Settings default
This commit is contained in:
parent
0c8e77c993
commit
cafad9d00b
@ -12,10 +12,10 @@
|
||||
<value />
|
||||
</setting>
|
||||
<setting name="UseAppConfigConString" serializeAs="String">
|
||||
<value>True</value>
|
||||
<value>False</value>
|
||||
</setting>
|
||||
<setting name="GHOSTUSER" serializeAs="String">
|
||||
<value>SchreiberM</value>
|
||||
<value />
|
||||
</setting>
|
||||
</DD_Clipboard_Watcher.My.MySettings>
|
||||
<DevExpress.LookAndFeel.Design.AppSettings>
|
||||
|
||||
@ -144,6 +144,7 @@ Public Class ClassInit
|
||||
If Not IsNothing(_Client) Then
|
||||
If _Client.Connect() Then
|
||||
APPSERVER_ACTIVE = True
|
||||
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
@ -76,7 +76,7 @@ Namespace My
|
||||
|
||||
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
|
||||
Public ReadOnly Property UseAppConfigConString() As Boolean
|
||||
Get
|
||||
Return CType(Me("UseAppConfigConString"),Boolean)
|
||||
@ -85,7 +85,7 @@ Namespace My
|
||||
|
||||
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("SchreiberM")> _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
||||
Public ReadOnly Property GHOSTUSER() As String
|
||||
Get
|
||||
Return CType(Me("GHOSTUSER"),String)
|
||||
|
||||
@ -14,10 +14,10 @@
|
||||
<Value Profile="(Default)" />
|
||||
</Setting>
|
||||
<Setting Name="UseAppConfigConString" Type="System.Boolean" Scope="Application">
|
||||
<Value Profile="(Default)">True</Value>
|
||||
<Value Profile="(Default)">False</Value>
|
||||
</Setting>
|
||||
<Setting Name="GHOSTUSER" Type="System.String" Scope="Application">
|
||||
<Value Profile="(Default)">SchreiberM</Value>
|
||||
<Value Profile="(Default)" />
|
||||
</Setting>
|
||||
</Settings>
|
||||
</SettingsFile>
|
||||
@ -49,7 +49,7 @@ Public NotInheritable Class frmSplash
|
||||
|
||||
Worker.ReportProgress(CalcProgress(4), "Initializing User-Configuration")
|
||||
If My.Settings.GHOSTUSER <> String.Empty Then
|
||||
Logger.Info($"GHOSTLogin [{My.Settings.GHOSTUSER} is active!")
|
||||
Logger.Info($"GHOSTLogin [{My.Settings.GHOSTUSER}] is active!")
|
||||
End If
|
||||
If Init.InitUserLogin(My.Settings.GHOSTUSER) = False Then
|
||||
If ERROR_INIT = "" Then
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user