Merge pull request IDEMSInternational#9161 from derekagorhom/Version_num

Version Number in the Frmmain code file
rachelkg · Oct 15, 2024 · d757162 · d757162
2 parents 6f03713 + e418e09
commit d757162
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/instat/frmMain.vb b/instat/frmMain.vb
@@ -225,7 +225,7 @@ Public Class frmMain
         '--------------------------------------
         CreateAdditionalLibraryDirectory()
         '-------------------------------------
-
+        SetAppVersionNumber()
         isMaximised = True 'Need to get the windowstate when the application is loaded
     End Sub
 
@@ -589,6 +589,12 @@ Public Class frmMain
         mnuTbLan.Visible = bVisible
     End Sub
 
+    Public Sub SetAppVersionNumber()
+        Me.Text = "R-Instat " & My.Application.Info.Version.Major.ToString() & "." &
+                My.Application.Info.Version.Minor.ToString() & "." &
+                My.Application.Info.Version.Build.ToString()
+    End Sub
+
     Private Sub SetMainMenusEnabled(bEnabled As Boolean)
         mnuFile.Enabled = bEnabled
         mnuEdit.Enabled = bEnabled