VB6 - Håll applikationsfönstret ovanpå andra appar

VB6 - Håll applikationsfönstret ovanpå andra appar

Hur man behåller ett programfönster ovanpå andra applikationer?

I en allmän modul

 Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd så länge, ByVal_
hWndInsertAfter så länge, ByVal x Så länge, ByVal y Så länge, ByVal cx Som _
Long, ByVal cy så länge, ByVal wFlags lika länge) så länge
Offentlig konst HWND_TOPMOST = -1
Offentlig konst HWND_NOTOPMOST = -2
Public Const SWP_NOACTIVATE = & H10
Public Const SWP_SHOWWINDOW = & H40
Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1

I formuläret

 Privat Subform_Load ()
Dimma så länge
R = SetWindowPos (SheetName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE eller SWP_NOSIZE)
slutet del 

Ringer funktionen

Funktionen måste aktivera formulärets aktivering. Det kommer att låta programmet återuppta funktionen om formuläret är valt (som funktionen kan användas av en annan applikation).

 Privat Sub Form_Activate ()
Dimma så länge
R = SetWindowPos (SheetName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE eller SWP_NOSIZE)
slutet del 

Ta bort prioritet

 Privat sub SuppPriority ()
Dimma så länge
R = SetWindowPos (NomFeuille.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE eller SWP_NOSIZE)
Slutdel