Mercurial > pub > bltoolkit

comparison Tools/Templates.VB/My Project/Settings.Designer.vb @ 0:f990fcb411a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Копия текущей версии из github
author cin
date Thu, 27 Mar 2014 21:46:09 +0400
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:f990fcb411a9
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