← Back to branch summary

~vizzam/playua-net/trunk

« back to all changes in this revision

Viewing changes to My Project/Settings.Designer.vb

  • Committer: vizzam
  • Date: 2019-12-29 18:34:19 UTC
  • Revision ID: vizzam@best-76150245ea-20191229183419-p219thltqot2n0wj
First

Show diffs side-by-side

added added

removed removed

Lines of Context:
My Project/Settings.Designer.vb
 
1
'------------------------------------------------------------------------------
 
2
' <auto-generated>
 
3
'     This code was generated by a tool.
 
4
'     Runtime Version:4.0.30319.42000
 
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", "14.0.0.0"),  _
 
18
 Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
 
19
Partial Friend NotInheritable Class MySettings
 
20
    Inherits Global.System.Configuration.ApplicationSettingsBase
 
21
    
 
22
    Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
 
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 MySettings
 
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.PlayuaNET.MySettings
 
66
            Get
 
67
                Return Global.PlayuaNET.MySettings.Default
 
68
            End Get
 
69
        End Property
 
70
    End Module
 
71
End Namespace