From a3db778746af40eb9f9ec2cccfb3c935164600f5 Mon Sep 17 00:00:00 2001 From: pfg github Date: Sun, 8 Mar 2015 09:18:40 -0700 Subject: Full Source --- My Project/Settings.Designer.vb | 73 ----------------------------------------- 1 file changed, 73 deletions(-) delete mode 100644 My Project/Settings.Designer.vb (limited to 'My Project/Settings.Designer.vb') diff --git a/My Project/Settings.Designer.vb b/My Project/Settings.Designer.vb deleted file mode 100644 index 696276e..0000000 --- a/My Project/Settings.Designer.vb +++ /dev/null @@ -1,73 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.17929 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My - - _ - Partial Friend NotInheritable Class MySettings - Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) - -#Region "My.Settings Auto-Save Functionality" -#If _MyType = "WindowsForms" Then - Private Shared addedHandler As Boolean - - Private Shared addedHandlerLockObject As New Object - - _ - Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) - If My.Application.SaveMySettingsOnExit Then - My.Settings.Save() - End If - End Sub -#End If -#End Region - - Public Shared ReadOnly Property [Default]() As MySettings - Get - -#If _MyType = "WindowsForms" Then - If Not addedHandler Then - SyncLock addedHandlerLockObject - If Not addedHandler Then - AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings - addedHandler = True - End If - End SyncLock - End If -#End If - Return defaultInstance - End Get - End Property - End Class -End Namespace - -Namespace My - - _ - Friend Module MySettingsProperty - - _ - Friend ReadOnly Property Settings() As Global.ShiftOS.My.MySettings - Get - Return Global.ShiftOS.My.MySettings.Default - End Get - End Property - End Module -End Namespace -- cgit v1.2.3