Rev 2233 |
Blame |
Last modification |
View Log
| RSS feed
'------------------------------------------------------------------------------
' <auto-generated>
' 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.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict
On
Option Explicit
On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator",
"14.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
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
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings
() As Global.ArtificialHorizon.My.MySettings
Get
Return Global.ArtificialHorizon.My.MySettings.Default
End Get
End Property
End Module
End Namespace