'------------------------------------------------------------------------------ ' ' 此代码由工具生成。 ' 运行时版本: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 IsAutoLogin() As Boolean Get Return CType(Me("IsAutoLogin"),Boolean) End Get Set Me("IsAutoLogin") = value End Set End Property _ Public Property IsRecordPassWord() As Boolean Get Return CType(Me("IsRecordPassWord"),Boolean) End Get Set Me("IsRecordPassWord") = value End Set End Property _ Public Property UserAccount() As String Get Return CType(Me("UserAccount"),String) End Get Set Me("UserAccount") = value End Set End Property _ Public Property UserPassword() As String Get Return CType(Me("UserPassword"),String) End Get Set Me("UserPassword") = value End Set End Property _ Public Property SpcMain_SplitterDistance() As Integer Get Return CType(Me("SpcMain_SplitterDistance"),Integer) End Get Set Me("SpcMain_SplitterDistance") = value End Set End Property End Class End Namespace Namespace My _ Friend Module MySettingsProperty _ Friend ReadOnly Property Settings() As Global.UTS_Core.My.MySettings Get Return Global.UTS_Core.My.MySettings.Default End Get End Property End Module End Namespace