1'------------------------------------------------------------------------------ 2' <auto-generated> 3' This code was generated by a tool. 4' Runtime Version:2.0.50727.3082 5' 6' Changes to this file may cause incorrect behavior and will be lost if 7' the code is regenerated. 8' </auto-generated> 9'------------------------------------------------------------------------------ 10 11Option Strict On 12Option Explicit On 13 14 15Namespace My 16 17 <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ 18 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "8.0.0.0"), _ 19 Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ 20 Partial Friend NotInheritable Class MySettings 21 Inherits Global.System.Configuration.ApplicationSettingsBase 22 23 Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) 24 25#Region "My.Settings Auto-Save Functionality" 26#If _MyType = "WindowsForms" Then 27 Private Shared addedHandler As Boolean 28 29 Private Shared addedHandlerLockObject As New Object 30 31 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ 32 Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) 33 If My.Application.SaveMySettingsOnExit Then 34 My.Settings.Save() 35 End If 36 End Sub 37#End If 38#End Region 39 40 Public Shared ReadOnly Property [Default]() As MySettings 41 Get 42 43#If _MyType = "WindowsForms" Then 44 If Not addedHandler Then 45 SyncLock addedHandlerLockObject 46 If Not addedHandler Then 47 AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings 48 addedHandler = True 49 End If 50 End SyncLock 51 End If 52#End If 53 Return defaultInstance 54 End Get 55 End Property 56 End Class 57End Namespace 58 59Namespace My 60 61 <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _ 62 Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 63 Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _ 64 Friend Module MySettingsProperty 65 66 <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _ 67 Friend ReadOnly Property Settings() As Global.DNSServiceBrowser.VB.My.MySettings 68 Get 69 Return Global.DNSServiceBrowser.VB.My.MySettings.Default 70 End Get 71 End Property 72 End Module 73End Namespace 74