Fixed issue #41

This commit is contained in:
Michael J. Seiferling
2016-03-06 16:49:02 -06:00
parent 7766a07cf3
commit df5e8f2d2a
5 changed files with 5 additions and 7 deletions
+1 -5
View File
@@ -644,7 +644,7 @@ Public Class frmMain
Dim sVersion As String = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor Dim sVersion As String = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor
Dim sProcessType = [Enum].GetName(GetType(System.Reflection.ProcessorArchitecture), iProcessType) Dim sProcessType = [Enum].GetName(GetType(System.Reflection.ProcessorArchitecture), iProcessType)
Dim sRevision As String = My.Application.Info.Version.Build & "." & My.Application.Info.Version.Revision Dim sRevision As String = My.Application.Info.Version.Build & "." & My.Application.Info.Version.Revision
Dim sConstCopyright As String = Chr(169) & App_Copyright Dim sConstCopyright As String = Chr(169) & mgrCommon.FormatString(App_Copyright, Now.Year)
mgrCommon.ShowMessage(frmMain_About, New String() {sVersion, sProcessType, sRevision, sConstCopyright}, MsgBoxStyle.Information) mgrCommon.ShowMessage(frmMain_About, New String() {sVersion, sProcessType, sRevision, sConstCopyright}, MsgBoxStyle.Information)
End Sub End Sub
@@ -1647,10 +1647,6 @@ Public Class frmMain
End If End If
End Sub 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 Private Sub frmMain_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Oemtilde AndAlso e.Modifiers = Keys.Control Then If e.KeyCode = Keys.Oemtilde AndAlso e.Modifiers = Keys.Control Then
OpenDevConsole() OpenDevConsole()
+1
View File
@@ -21,6 +21,7 @@ Public Class mgrCommon
Try Try
Dim request As WebRequest = WebRequest.Create(URL) Dim request As WebRequest = WebRequest.Create(URL)
Dim response As WebResponse = request.GetResponse() Dim response As WebResponse = request.GetResponse()
response.Close()
Catch ex As Exception Catch ex As Exception
Return False Return False
End Try End Try
+1
View File
@@ -234,6 +234,7 @@ Public Class mgrMonitorList
Cursor.Current = Cursors.Default Cursor.Current = Cursors.Default
mgrCommon.ShowMessage(mgrMonitorList_ImportComplete, MsgBoxStyle.Information) mgrCommon.ShowMessage(mgrMonitorList_ImportComplete, MsgBoxStyle.Information)
End If End If
frm.Dispose()
Else Else
mgrCommon.ShowMessage(mgrMonitorList_ImportNothing, MsgBoxStyle.Information) mgrCommon.ShowMessage(mgrMonitorList_ImportNothing, MsgBoxStyle.Information)
End If End If
+1 -1
View File
@@ -70,7 +70,7 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Looks up a localized string similar to 2015 Michael J. Seiferling. ''' Looks up a localized string similar to [PARAM] Michael J. Seiferling.
'''</summary> '''</summary>
Friend ReadOnly Property App_Copyright() As String Friend ReadOnly Property App_Copyright() As String
Get Get
+1 -1
View File
@@ -140,7 +140,7 @@
<value>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?</value> <value>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?</value>
</data> </data>
<data name="App_Copyright" xml:space="preserve"> <data name="App_Copyright" xml:space="preserve">
<value>2015 Michael J. Seiferling</value> <value>[PARAM] Michael J. Seiferling</value>
</data> </data>
<data name="frmMain_Exit" xml:space="preserve"> <data name="frmMain_Exit" xml:space="preserve">
<value>Are you sure you want to exit? Your games will no longer be monitored.</value> <value>Are you sure you want to exit? Your games will no longer be monitored.</value>