Added new export field for issue #109

GBM/Classes/XML Serialize Classes/ExportInformation.vb

@@ -1,5 +1,6 @@
 Public Class ExportInformation
     Private dExported As Int64
+    Private iTotalConfigs As Integer
     Private iAppVer As Integer
 
     Property Exported As Int64
@@ -11,6 +12,15 @@
         End Get
     End Property
 
+    Property TotalConfigurations As Integer
+        Set(value As Integer)
+            iTotalConfigs = value
+        End Set
+        Get
+            Return iTotalConfigs
+        End Get
+    End Property
+
     Property AppVer As Integer
         Set(value As Integer)
             iAppVer = value
@@ -22,11 +32,13 @@
 
     Public Sub New()
         dExported = 0
+        iTotalConfigs = 0
         iAppVer = 0
     End Sub
 
-    Public Sub New(ByVal dInitExported As Int64, ByVal iInitAppVer As Integer)
+    Public Sub New(ByVal dInitExported As Int64, ByVal iInitTotalConfigs As Integer, ByVal iInitAppVer As Integer)
         dExported = dInitExported
+        iTotalConfigs = iInitTotalConfigs
         iAppVer = iInitAppVer
     End Sub
 End Class

GBM/Forms/frmGameManager.Designer.vb

@@ -715,7 +715,7 @@ Partial Class frmGameManager
         'btnCancel
         '
         Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnCancel.Location = New System.Drawing.Point(697, 392)
+        Me.btnCancel.Location = New System.Drawing.Point(697, 394)
         Me.btnCancel.Name = "btnCancel"
         Me.btnCancel.Size = New System.Drawing.Size(75, 23)
         Me.btnCancel.TabIndex = 14

GBM/Managers/mgrXML.vb

@@ -92,7 +92,7 @@ Public Class mgrXML
     Public Shared Function SerializeAndExport(ByVal oList As List(Of Game), ByVal sLocation As String) As Boolean
         Dim oSerializer As XmlSerializer
         Dim oWriter As StreamWriter
-        Dim oExportInformation = New ExportInformation(mgrCommon.DateToUnix(Now), mgrCommon.AppVersion)
+        Dim oExportInformation = New ExportInformation(mgrCommon.DateToUnix(Now), oList.Count, mgrCommon.AppVersion)
         Dim oExportData As ExportData
 
         Try