Mercurial > pub > bltoolkit

comparison Examples/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
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