|
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 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
|
|
|
57 <Global.System.Configuration.ApplicationScopedSettingAttribute(), _
|
|
|
58 Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
|
59 Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
|
|
|
60 Global.System.Configuration.DefaultSettingValueAttribute("Data Source=DADDY;Initial Catalog=Northwind;Integrated Security=True")> _
|
|
|
61 Public ReadOnly Property NorthwindConnectionString() As String
|
|
|
62 Get
|
|
|
63 Return CType(Me("NorthwindConnectionString"),String)
|
|
|
64 End Get
|
|
|
65 End Property
|
|
|
66 End Class
|
|
|
67 End Namespace
|
|
|
68
|
|
|
69 Namespace My
|
|
|
70
|
|
|
71 <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
|
|
72 Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
|
73 Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
|
|
74 Friend Module MySettingsProperty
|
|
|
75
|
|
|
76 <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
|
|
77 Friend ReadOnly Property Settings() As Global.Templates.VB.My.MySettings
|
|
|
78 Get
|
|
|
79 Return Global.Templates.VB.My.MySettings.Default
|
|
|
80 End Get
|
|
|
81 End Property
|
|
|
82 End Module
|
|
|
83 End Namespace
|
