1 | '------------------------------------------------------------------------------ |
---|
2 | ' <auto-generated> |
---|
3 | ' This code was generated by a tool. |
---|
4 | ' Runtime Version:4.0.30319.17929 |
---|
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 | Namespace My |
---|
16 | |
---|
17 | <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ |
---|
18 | Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.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 |
---|
57 | End Namespace |
---|
58 | |
---|
59 | Namespace 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.ProgressAnimation.My.MySettings |
---|
68 | Get |
---|
69 | Return Global.ProgressAnimation.My.MySettings.Default |
---|
70 | End Get |
---|
71 | End Property |
---|
72 | End Module |
---|
73 | End Namespace |
---|