'------------------------------------------------------------------------------ ' ' 此代码由工具生成。 ' 运行时版本: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 VerdorName() As String Get Return CType(Me("VerdorName"),String) End Get Set Me("VerdorName") = value End Set End Property _ Public Property HotelName() As String Get Return CType(Me("HotelName"),String) End Get Set Me("HotelName") = value End Set End Property _ Public Property HotelCode() As String Get Return CType(Me("HotelCode"),String) End Get Set Me("HotelCode") = value End Set End Property _ Public Property HotelId() As String Get Return CType(Me("HotelId"),String) End Get Set Me("HotelId") = value End Set End Property _ Public Property VenderIndex() As String Get Return CType(Me("VenderIndex"),String) End Get Set Me("VenderIndex") = value End Set End Property _ Public Property LastEditXmlFile() As String Get Return CType(Me("LastEditXmlFile"),String) End Get Set Me("LastEditXmlFile") = value End Set End Property _ Public Property HotelGroupId() As String Get Return CType(Me("HotelGroupId"),String) End Get Set Me("HotelGroupId") = value End Set End Property _ Public Property RemoteIP() As String Get Return CType(Me("RemoteIP"),String) End Get Set Me("RemoteIP") = value End Set End Property _ Public Property LocalPort1() As String Get Return CType(Me("LocalPort1"),String) End Get Set Me("LocalPort1") = 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 PassWord() As String Get Return CType(Me("PassWord"),String) End Get Set Me("PassWord") = value End Set End Property _ Public Property ProjectCode() As String Get Return CType(Me("ProjectCode"),String) End Get Set Me("ProjectCode") = value End Set End Property _ Public Property UserName() As String Get Return CType(Me("UserName"),String) End Get Set Me("UserName") = value End Set End Property _ Public Property CHotelName() As String Get Return CType(Me("CHotelName"),String) End Get Set Me("CHotelName") = value End Set End Property End Class End Namespace Namespace My _ Friend Module MySettingsProperty _ Friend ReadOnly Property Settings() As Global.BLV_Studio.My.MySettings Get Return Global.BLV_Studio.My.MySettings.Default End Get End Property End Module End Namespace