Upgrade Settings at start if necessary

Application Settings upgrade routine is only run automatically when using the ClickOnce installer. Since it's not run with our current MSI build, this code will then run when the program is started for the first time (nothing happens) or if it's an upgraded MSI installation with a fresh copy of settings. In that case, the Upgrade function will find the older copy and import/apply them. This operation won't be attempted until the next upgrade. Need to remove once using pure ClickOnce.

Author: gbakeman

WinNUT_V2/WinNUT-Client/App.config

@@ -157,6 +157,9 @@
    <setting name="CAL_BattVMax" serializeAs="String">
     <value>18</value>
    </setting>
+   <setting name="IsFirstRun" serializeAs="String">
+    <value>True</value>
+   </setting>
   </WinNUT_Client.My.MySettings>
  </userSettings>
 </configuration>

WinNUT_V2/WinNUT-Client/ApplicationEvents.vb

@@ -40,7 +40,24 @@ Namespace My
         Private Sub MyApplication_Startup(sender As Object, e As StartupEventArgs) Handles Me.Startup
             ' Uncomment below and comment out Handles line for _UnhandledException sub when debugging unhandled exceptions.
             ' AddHandler AppDomain.CurrentDomain.UnhandledException, AddressOf AppDomainUnhandledException
+
             Init_Globals()
+
+            ' If first run indicated by Settings, attempt upgrade in case older version is present.
+            ' Only necessary when deploying MSI. Remove once using pure ClickOnce.
+            If Settings.IsFirstRun Then
+                Try
+                    Settings.Upgrade()
+                    LogFile.LogTracing("Settings upgrade completed without exception.", LogLvl.LOG_NOTICE, Me)
+                Catch ex As ConfigurationErrorsException
+                    LogFile.LogTracing("Error encountered while trying to upgrade Settings:", LogLvl.LOG_ERROR, Me)
+                    LogFile.LogException(ex, Me)
+                End Try
+
+                Settings.IsFirstRun = False
+                Settings.Save()
+            End If
+
             LogFile.LogTracing("MyApplication_Startup complete.", LogLvl.LOG_DEBUG, Me)
         End Sub
 

WinNUT_V2/WinNUT-Client/My Project/Settings.Designer.vb

@@ -116,5 +116,8 @@
     <Setting Name="CAL_BattVMax" Type="System.Int32" Scope="User">
       <Value Profile="(Default)">18</Value>
     </Setting>
+    <Setting Name="IsFirstRun" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">True</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

WinNUT_V2/WinNUT-Client/My Project/Settings.settings

@@ -112,6 +112,7 @@
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="System" />
+    <Reference Include="System.Configuration" />
     <Reference Include="System.Data" />
     <Reference Include="System.Deployment" />
     <Reference Include="System.Drawing" />