'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) #Region "Funktion zum automatischen Speichern von My.Settings" #If _MyType = "WindowsForms" Then Private Shared addedHandler As Boolean Private Shared addedHandlerLockObject As New Object _ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) If My.Application.SaveMySettingsOnExit Then My.Settings.Save() End If End Sub #End If #End Region Public Shared ReadOnly Property [Default]() As MySettings Get #If _MyType = "WindowsForms" Then If Not addedHandler Then SyncLock addedHandlerLockObject If Not addedHandler Then AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings addedHandler = True End If End SyncLock End If #End If Return defaultInstance End Get End Property _ Public Property ConfigFile() As String Get Return CType(Me("ConfigFile"),String) End Get Set Me("ConfigFile") = value End Set End Property _ Public Property Tablename() As String Get Return CType(Me("Tablename"),String) End Get Set Me("Tablename") = value End Set End Property _ Public Property Name() As String Get Return CType(Me("Name"),String) End Get Set Me("Name") = value End Set End Property _ Public Property SQL1() As String Get Return CType(Me("SQL1"),String) End Get Set Me("SQL1") = value End Set End Property _ Public Property SQL2() As String Get Return CType(Me("SQL2"),String) End Get Set Me("SQL2") = value End Set End Property _ Public Property SQL3() As String Get Return CType(Me("SQL3"),String) End Get Set Me("SQL3") = value End Set End Property _ Public Property SQL4() As String Get Return CType(Me("SQL4"),String) End Get Set Me("SQL4") = value End Set End Property _ Public Property HostConnection() As String Get Return CType(Me("HostConnection"),String) End Get Set Me("HostConnection") = value End Set End Property _ Public Property SQL_HOST_Check_Dokumentid() As String Get Return CType(Me("SQL_HOST_Check_Dokumentid"),String) End Get Set Me("SQL_HOST_Check_Dokumentid") = value End Set End Property _ Public Property SQL_Empty_HOST() As String Get Return CType(Me("SQL_Empty_HOST"), String) End Get Set(value As String) Me("SQL_Empty_HOST") = value End Set End Property End Class End Namespace Namespace My _ Friend Module MySettingsProperty _ Friend ReadOnly Property Settings() As Global._DB2_Test.My.MySettings Get Return Global._DB2_Test.My.MySettings.Default End Get End Property End Module End Namespace