'------------------------------------------------------------------------------ ' ' 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 ReadOnly Property CS_Src() As String Get Return CType(Me("CS_Src"),String) End Get End Property _ Public ReadOnly Property CS_Dst() As String Get Return CType(Me("CS_Dst"),String) 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 SerwerDst() As String Get Return CType(Me("SerwerDst"),String) End Get Set Me("SerwerDst") = 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 Dziennik_Docelowy() As String Get Return CType(Me("Dziennik_Docelowy"),String) End Get Set Me("Dziennik_Docelowy") = 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 MCdst() As String Get Return CType(Me("MCdst"),String) End Get Set Me("MCdst") = value End Set End Property _ Public Property Comdst() As String Get Return CType(Me("Comdst"),String) End Get Set Me("Comdst") = value End Set End Property _ Public Property user() As String Get Return CType(Me("user"),String) End Get Set Me("user") = value End Set End Property _ Public Property pass() As String Get Return CType(Me("pass"),String) End Get Set Me("pass") = 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 BazaDst() As String Get Return CType(Me("BazaDst"),String) End Get Set Me("BazaDst") = 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 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