From e7731fb58a232da141cee1e887c86a06e2ff4792 Mon Sep 17 00:00:00 2001 From: Michael Date: Thu, 2 Feb 2017 21:57:47 -0500 Subject: First ever VB mod... it isn't going well. --- .../My Project/Settings.Designer.vb | 73 ++++++++++++++++++++++ 1 file changed, 73 insertions(+) create mode 100644 ShiftOS.Modding.VisualBasic.LegacySkinConverter/My Project/Settings.Designer.vb (limited to 'ShiftOS.Modding.VisualBasic.LegacySkinConverter/My Project/Settings.Designer.vb') diff --git a/ShiftOS.Modding.VisualBasic.LegacySkinConverter/My Project/Settings.Designer.vb b/ShiftOS.Modding.VisualBasic.LegacySkinConverter/My Project/Settings.Designer.vb new file mode 100644 index 0000000..9dc19d0 --- /dev/null +++ b/ShiftOS.Modding.VisualBasic.LegacySkinConverter/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' 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.Modding.VisualBasic.LegacySkinConverter.My.MySettings + Get + Return Global.ShiftOS.Modding.VisualBasic.LegacySkinConverter.My.MySettings.Default + End Get + End Property + End Module +End Namespace -- cgit v1.2.3