'------------------------------------------------------------------------------ ' ' 此代码由工具生成。 ' 运行时版本: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 Project() As String Get Return CType(Me("Project"),String) End Get Set Me("Project") = value End Set End Property _ Public Property ProcessStation() As String Get Return CType(Me("ProcessStation"),String) End Get Set Me("ProcessStation") = value End Set End Property _ Public Property Mars_P1_cnt() As Integer Get Return CType(Me("Mars_P1_cnt"),Integer) End Get Set Me("Mars_P1_cnt") = value End Set End Property _ Public Property Mars_P2_cnt() As Integer Get Return CType(Me("Mars_P2_cnt"),Integer) End Get Set Me("Mars_P2_cnt") = value End Set End Property _ Public Property Mars_P3_cnt() As Integer Get Return CType(Me("Mars_P3_cnt"),Integer) End Get Set Me("Mars_P3_cnt") = value End Set End Property _ Public Property Total_Cnt() As String Get Return CType(Me("Total_Cnt"),String) End Get Set Me("Total_Cnt") = value End Set End Property _ Public Property DUT_PortName() As String Get Return CType(Me("DUT_PortName"),String) End Get Set Me("DUT_PortName") = value End Set End Property _ Public Property P2_PortName() As String Get Return CType(Me("P2_PortName"),String) End Get Set Me("P2_PortName") = value End Set End Property _ Public Property Phobos_P1_cnt() As Integer Get Return CType(Me("Phobos_P1_cnt"),Integer) End Get Set Me("Phobos_P1_cnt") = value End Set End Property _ Public Property Phobos_P2_cnt() As Integer Get Return CType(Me("Phobos_P2_cnt"),Integer) End Get Set Me("Phobos_P2_cnt") = value End Set End Property _ Public Property Phobos_P3_cnt() As Integer Get Return CType(Me("Phobos_P3_cnt"),Integer) End Get Set Me("Phobos_P3_cnt") = value End Set End Property End Class End Namespace Namespace My _ Friend Module MySettingsProperty _ Friend ReadOnly Property Settings() As Global.AUTS_Package.My.MySettings Get Return Global.AUTS_Package.My.MySettings.Default End Get End Property End Module End Namespace