'------------------------------------------------------------------------------ ' ' 此代码由工具生成。 ' 运行时版本: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 CBoLongIP() As String Get Return CType(Me("CBoLongIP"),String) End Get Set Me("CBoLongIP") = value End Set End Property _ Public Property NumRemotePort() As Integer Get Return CType(Me("NumRemotePort"),Integer) End Get Set Me("NumRemotePort") = value End Set End Property _ Public Property NumLocalPort() As Integer Get Return CType(Me("NumLocalPort"),Integer) End Get Set Me("NumLocalPort") = value End Set End Property _ Public Property CBoBaud() As String Get Return CType(Me("CBoBaud"),String) End Get Set Me("CBoBaud") = value End Set End Property _ Public Property CBoMode() As String Get Return CType(Me("CBoMode"),String) End Get Set Me("CBoMode") = value End Set End Property _ Public Property CboRFDevType() As String Get Return CType(Me("CboRFDevType"),String) End Get Set Me("CboRFDevType") = value End Set End Property _ Public Property CboCMD15Buad() As String Get Return CType(Me("CboCMD15Buad"),String) End Get Set Me("CboCMD15Buad") = value End Set End Property _ Public Property rfcmd14Way() As String Get Return CType(Me("rfcmd14Way"),String) End Get Set Me("rfcmd14Way") = value End Set End Property _ Public Property CboRFCMD21ControlMode() As String Get Return CType(Me("CboRFCMD21ControlMode"),String) End Get Set Me("CboRFCMD21ControlMode") = value End Set End Property _ Public Property CboSerialBaud() As String Get Return CType(Me("CboSerialBaud"),String) End Get Set Me("CboSerialBaud") = value End Set End Property _ Public Property CboSerialPort() As String Get Return CType(Me("CboSerialPort"),String) End Get Set Me("CboSerialPort") = value End Set End Property _ Public Property CurtainsCMD() As String Get Return CType(Me("CurtainsCMD"),String) End Get Set Me("CurtainsCMD") = value End Set End Property _ Public Property CurtainsData() As String Get Return CType(Me("CurtainsData"),String) End Get Set Me("CurtainsData") = value End Set End Property End Class End Namespace Namespace My _ Friend Module MySettingsProperty _ Friend ReadOnly Property Settings() As Global.RCU.My.MySettings Get Return Global.RCU.My.MySettings.Default End Get End Property End Module End Namespace