I have a form that pings my website every 30 minutes
Usually i am doing something else so the form is not visible
On a failure I call SetWindowPos to put the form on top of other programs. The problem is
the form cannot be hidden without unloading it once it is put on top.
How can i overcome this?
the code I am using:
Usually i am doing something else so the form is not visible
On a failure I call SetWindowPos to put the form on top of other programs. The problem is
the form cannot be hidden without unloading it once it is put on top.
How can i overcome this?
the code I am using:
Code:
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const Flags = SWP_NOMOVE Or SWP_NOSIZE
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Sub SetWindowOnTop(ByVal p_hWnd As Long, Optional ByVal p_bOnTop As Boolean = True)
If p_bOnTop Then
Call SetWindowPos(p_hWnd, HWND_TOPMOST, 0, 0, 0, 0, Flags)
Else
Call SetWindowPos(p_hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, Flags)
End If
End Sub
Calling it like this:
Call SetWindowOnTop(Me.hWnd, True)