Fixed Windows Alt-Tab issue

This commit is contained in:
MikeMaximus
2017-07-03 17:01:17 -06:00
parent d11f468add
commit a68d2b718f
+3
View File
@@ -1032,6 +1032,7 @@ Public Class frmMain
'Toggle State with Tray Clicks 'Toggle State with Tray Clicks
If Not bShowToggle Then If Not bShowToggle Then
bShowToggle = True bShowToggle = True
Me.Visible = True
Me.WindowState = wState Me.WindowState = wState
Me.ShowInTaskbar = True Me.ShowInTaskbar = True
Me.Focus() Me.Focus()
@@ -1040,6 +1041,7 @@ Public Class frmMain
wState = Me.WindowState wState = Me.WindowState
Me.WindowState = FormWindowState.Minimized Me.WindowState = FormWindowState.Minimized
Me.ShowInTaskbar = False Me.ShowInTaskbar = False
Me.Visible = False
End If End If
End Sub End Sub
@@ -1658,6 +1660,7 @@ Public Class frmMain
wState = Me.WindowState wState = Me.WindowState
Me.WindowState = FormWindowState.Minimized Me.WindowState = FormWindowState.Minimized
Me.ShowInTaskbar = False Me.ShowInTaskbar = False
Me.Visible = False
End If End If
End If End If
Case CloseReason.TaskManagerClosing, CloseReason.WindowsShutDown Case CloseReason.TaskManagerClosing, CloseReason.WindowsShutDown