'------------------------------------------------------------------------------ ' ' 此代码由工具生成。 ' 运行时版本:4.0.30319.42000 ' ' 对此文件的更改可能会导致不正确的行为,并且如果 ' 重新生成代码,这些更改将会丢失。 ' '------------------------------------------------------------------------------ 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 "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 CommPortNumber() As String Get Return CType(Me("CommPortNumber"),String) End Get Set Me("CommPortNumber") = value End Set End Property ")> _ Public Property CustomeProtocol_JumpToBootloader() As String Get Return CType(Me("CustomeProtocol_JumpToBootloader"),String) End Get Set Me("CustomeProtocol_JumpToBootloader") = value End Set End Property ")> _ Public Property CustomeProtocol_Serach() As String Get Return CType(Me("CustomeProtocol_Serach"),String) End Get Set Me("CustomeProtocol_Serach") = value End Set End Property _ Public Property AppProtocolSetectedItem() As String Get Return CType(Me("AppProtocolSetectedItem"),String) End Get Set Me("AppProtocolSetectedItem") = value End Set End Property _ Public Property HexFilePatch() As String Get Return CType(Me("HexFilePatch"),String) End Get Set Me("HexFilePatch") = value End Set End Property _ Public Property SerachAddStart() As String Get Return CType(Me("SerachAddStart"),String) End Get Set Me("SerachAddStart") = value End Set End Property _ Public Property SerachAddEnd() As String Get Return CType(Me("SerachAddEnd"),String) End Get Set Me("SerachAddEnd") = value End Set End Property _ Public Property SerachTimeout() As String Get Return CType(Me("SerachTimeout"),String) End Get Set Me("SerachTimeout") = value End Set End Property _ Public Property UpgradeTimeout() As String Get Return CType(Me("UpgradeTimeout"),String) End Get Set Me("UpgradeTimeout") = value End Set End Property _ Public Property BootloaderTimeout() As String Get Return CType(Me("BootloaderTimeout"),String) End Get Set Me("BootloaderTimeout") = value End Set End Property _ Public Property CommBaudRate() As String Get Return CType(Me("CommBaudRate"),String) End Get Set Me("CommBaudRate") = value End Set End Property _ Public Property Opt_ProtocolMode() As String Get Return CType(Me("Opt_ProtocolMode"),String) End Get Set Me("Opt_ProtocolMode") = value End Set End Property _ Public Property chk_UpgradeAllSelect() As String Get Return CType(Me("chk_UpgradeAllSelect"),String) End Get Set Me("chk_UpgradeAllSelect") = value End Set End Property _ Public Property BusType() As String Get Return CType(Me("BusType"),String) End Get Set Me("BusType") = value End Set End Property _ Public Property C1PackageLenght() As String Get Return CType(Me("C1PackageLenght"),String) End Get Set Me("C1PackageLenght") = value End Set End Property _ Public Property Windows_High() As String Get Return CType(Me("Windows_High"),String) End Get Set Me("Windows_High") = value End Set End Property End Class End Namespace Namespace My _ Friend Module MySettingsProperty _ Friend ReadOnly Property Settings() As Global.RS485Loader.My.MySettings Get Return Global.RS485Loader.My.MySettings.Default End Get End Property End Module End Namespace