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 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) & 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)
End Sub
@@ -1647,10 +1647,6 @@ 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()
+1
View File
@@ -21,6 +21,7 @@ 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
+1
View File
@@ -234,6 +234,7 @@ 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
+1 -1
View File
@@ -70,7 +70,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Looks up a localized string similar to 2015 Michael J. Seiferling.
''' Looks up a localized string similar to [PARAM] Michael J. Seiferling.
'''</summary>
Friend ReadOnly Property App_Copyright() As String
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>
</data>
<data name="App_Copyright" xml:space="preserve">
<value>2015 Michael J. Seiferling</value>
<value>[PARAM] Michael J. Seiferling</value>
</data>
<data name="frmMain_Exit" xml:space="preserve">
<value>Are you sure you want to exit? Your games will no longer be monitored.</value>