VB6 - Udržujte okno aplikácie nad ostatnými aplikáciami

VB6 - Udržujte okno aplikácie nad ostatnými aplikáciami

Ako udržať okno aplikácie na vrchole iných aplikácií?

Vo všeobecnom module

 Funkcia verejného deklarácie SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal_
hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As _
Dlhé, ByVal cy As Long, ByVal wFlags ako dlhé
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Verejné Const SWP_NOACTIVATE = & H10
Verejné Const SWP_SHOWWINDOW = & H40
Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1

Vo forme

 Súkromný Sub Form_Load ()
Dim R tak dlho
R = SetWindowPos (SheetName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE alebo SWP_NOSIZE)
koncová sub 

Volanie funkcie

Funkcia musí byť vyvolaná aktiváciou formulára. Umožní programu obnoviť funkciu, ak je vybratý formulár (pretože túto funkciu môže použiť iná aplikácia).

 Aktivácia súkromného podformulára ()
Dim R tak dlho
R = SetWindowPos (SheetName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE alebo SWP_NOSIZE)
koncová sub 

Odstránenie priority

 Súkromný sub SuppPriority ()
Dim R tak dlho
R = SetWindowPos (NomFeuille.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE alebo SWP_NOSIZE)
Koniec sub