diff --git a/GBM/Classes/XML Serialize Classes/ExportInformation.vb b/GBM/Classes/XML Serialize Classes/ExportInformation.vb index 8d4ad4a..602aef6 100644 --- a/GBM/Classes/XML Serialize Classes/ExportInformation.vb +++ b/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 diff --git a/GBM/Forms/frmGameManager.Designer.vb b/GBM/Forms/frmGameManager.Designer.vb index 38fb8d0..cc094b2 100644 --- a/GBM/Forms/frmGameManager.Designer.vb +++ b/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 diff --git a/GBM/Managers/mgrXML.vb b/GBM/Managers/mgrXML.vb index 73f512a..3b3f265 100644 --- a/GBM/Managers/mgrXML.vb +++ b/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