VB6 - Udržujte okno aplikace nad ostatními aplikacemi

VB6 - Udržujte okno aplikace nad ostatními aplikacemi

Jak udržet okno aplikace nad ostatními aplikacemi?

V obecném modulu

 Funkce veřejné deklarace 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 Jak dlouho)
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOACTIVATE = & H10
Public Const SWP_SHOWWINDOW = & H40
Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1

Ve formě

 Formulář soukromých sub_Load ()
Dim R jako dlouhý
R = SetWindowPos (SheetName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE nebo SWP_NOSIZE)
koncová sub 

Volání funkce

Funkce musí být volána při aktivaci formuláře. To umožní programu obnovit funkci, pokud je formulář vybrán (protože funkce může být použita jinou aplikací).

 Private Sub Form_Activate ()
Dim R jako dlouhý
R = SetWindowPos (SheetName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE nebo SWP_NOSIZE)
koncová sub 

Odstranění priority

 Soukromý sub SuppPriority ()
Dim R jako dlouhý
R = SetWindowPos (NomFeuille.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE nebo SWP_NOSIZE)
Konec sub