| 1 |
|
|---|
| 2 |
|
|---|
| 3 |
|
|---|
| 4 |
|
|---|
| 5 |
|
|---|
| 6 |
|
|---|
| 7 |
|
|---|
| 8 |
|
|---|
| 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", "8.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.CC3_GRAB.My.MySettings |
|---|
| 68 |
Get |
|---|
| 69 |
Return Global.CC3_GRAB.My.MySettings.Default |
|---|
| 70 |
End Get |
|---|
| 71 |
End Property |
|---|
| 72 |
End Module |
|---|
| 73 |
End Namespace |
|---|