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