diff --git a/GBM/Forms/frmMain.vb b/GBM/Forms/frmMain.vb index ac73684..d3f862f 100644 --- a/GBM/Forms/frmMain.vb +++ b/GBM/Forms/frmMain.vb @@ -644,7 +644,7 @@ Public Class frmMain Dim sVersion As String = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor Dim sProcessType = [Enum].GetName(GetType(System.Reflection.ProcessorArchitecture), iProcessType) Dim sRevision As String = My.Application.Info.Version.Build & "." & My.Application.Info.Version.Revision - Dim sConstCopyright As String = Chr(169) & mgrCommon.FormatString(App_Copyright, Now.Year) + Dim sConstCopyright As String = Chr(169) & App_Copyright mgrCommon.ShowMessage(frmMain_About, New String() {sVersion, sProcessType, sRevision, sConstCopyright}, MsgBoxStyle.Information) End Sub @@ -1647,6 +1647,10 @@ Public Class frmMain End If End Sub + Private Sub txtGameInfo_Enter(sender As Object, e As EventArgs) + btnLogToggle.Focus() + End Sub + Private Sub frmMain_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown If e.KeyCode = Keys.Oemtilde AndAlso e.Modifiers = Keys.Control Then OpenDevConsole() diff --git a/GBM/Managers/mgrCommon.vb b/GBM/Managers/mgrCommon.vb index 5c0e9c0..b4b345f 100644 --- a/GBM/Managers/mgrCommon.vb +++ b/GBM/Managers/mgrCommon.vb @@ -21,7 +21,6 @@ Public Class mgrCommon Try Dim request As WebRequest = WebRequest.Create(URL) Dim response As WebResponse = request.GetResponse() - response.Close() Catch ex As Exception Return False End Try diff --git a/GBM/Managers/mgrMonitorList.vb b/GBM/Managers/mgrMonitorList.vb index ed0cb7a..2485354 100644 --- a/GBM/Managers/mgrMonitorList.vb +++ b/GBM/Managers/mgrMonitorList.vb @@ -234,7 +234,6 @@ Public Class mgrMonitorList Cursor.Current = Cursors.Default mgrCommon.ShowMessage(mgrMonitorList_ImportComplete, MsgBoxStyle.Information) End If - frm.Dispose() Else mgrCommon.ShowMessage(mgrMonitorList_ImportNothing, MsgBoxStyle.Information) End If diff --git a/GBM/My Project/Resources.Designer.vb b/GBM/My Project/Resources.Designer.vb index 00e26a3..7ca21e5 100644 --- a/GBM/My Project/Resources.Designer.vb +++ b/GBM/My Project/Resources.Designer.vb @@ -70,7 +70,7 @@ Namespace My.Resources End Property ''' - ''' Looks up a localized string similar to [PARAM] Michael J. Seiferling. + ''' Looks up a localized string similar to 2015 Michael J. Seiferling. ''' Friend ReadOnly Property App_Copyright() As String Get diff --git a/GBM/My Project/Resources.resx b/GBM/My Project/Resources.resx index 69f176a..c3db190 100644 --- a/GBM/My Project/Resources.resx +++ b/GBM/My Project/Resources.resx @@ -140,7 +140,7 @@ This will rebuild all databases and shrink them to an optimal size.[BR]This should only be used if your gbm.s3db files are becoming very large.[BR][BR]Do you wish to continue? - [PARAM] Michael J. Seiferling + 2015 Michael J. Seiferling Are you sure you want to exit? Your games will no longer be monitored.