'------------------------------------------------------------------------------ ' ' Ten kod został wygenerowany przez narzędzie. ' Wersja wykonawcza:4.0.30319.42000 ' ' Zmiany w tym pliku mogą spowodować nieprawidłowe zachowanie i zostaną utracone, jeśli ' kod zostanie ponownie wygenerowany. ' '------------------------------------------------------------------------------ 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 "Funkcje automatycznego zapisywania My.Settings" #If _MyType = "WindowsForms" Then Private Shared addedHandler As Boolean Private Shared addedHandlerLockObject As New Object _ Private Shared Sub AutoSaveSettings(sender As Global.System.Object, 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 FolderR_Roboczy() As String Get Return CType(Me("FolderR_Roboczy"),String) End Get Set Me("FolderR_Roboczy") = value End Set End Property _ Public Property SerwerKlucza() As String Get Return CType(Me("SerwerKlucza"),String) End Get Set Me("SerwerKlucza") = value End Set End Property _ Public Property Seria() As String Get Return CType(Me("Seria"),String) End Get Set Me("Seria") = value End Set End Property _ Public Property SerwerSrc() As String Get Return CType(Me("SerwerSrc"),String) End Get Set Me("SerwerSrc") = value End Set End Property _ Public Property MCsrc() As String Get Return CType(Me("MCsrc"),String) End Get Set Me("MCsrc") = value End Set End Property _ Public Property Comsrc() As String Get Return CType(Me("Comsrc"),String) End Get Set Me("Comsrc") = value End Set End Property _ Public Property BazaSrc() As String Get Return CType(Me("BazaSrc"),String) End Get Set Me("BazaSrc") = value End Set End Property _ Public Property check() As String Get Return CType(Me("check"),String) End Get Set Me("check") = value End Set End Property _ Public Property BazaDst() As String Get Return CType(Me("BazaDst"),String) End Get Set Me("BazaDst") = value End Set End Property _ Public ReadOnly Property CS_Src() As String Get Return CType(Me("CS_Src"),String) End Get End Property End Class End Namespace Namespace My _ Friend Module MySettingsProperty _ Friend ReadOnly Property Settings() As Global.ImportDokMag.My.MySettings Get Return Global.ImportDokMag.My.MySettings.Default End Get End Property End Module End Namespace