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