VB6 - išlaikyti programos langą ant kitų programų

VB6 - išlaikyti programos langą ant kitų programų

Kaip išlaikyti programos langą ant kitų programų?

Bendrame modulyje

 „Public Declare“ funkcija „SetWindowPos Lib“ „user32“ (ByVal hwnd As Long, ByVal_
hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As _
Ilgas, ilgas, ilgas, ilgas
Viešasis Const HWND_TOPMOST = -1
Viešoji Const HWND_NOTOPMOST = -2
Viešoji „Const“ SWP_NOACTIVATE = & H10
Viešoji „Const“ SWP_SHOWWINDOW = & H40
Viešoji „Const“ SWP_NOMOVE = 2
Viešasis Const SWP_NOSIZE = 1

Formoje

 Privatus poklasis_Load ()
Matykite R ilgą
R = SetWindowPos (lapasName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE arba SWP_NOSIZE)
pabaigos sub 

Skambinimas funkcijai

Funkcija turi būti raginama aktyvuoti formą. Tai leis programai atnaujinti funkciją, jei pasirinksite formą (kadangi funkciją gali naudoti kita programa).

 Privatus pokalbio formos_pasiekimas ()
Matykite R ilgą
R = SetWindowPos (lapasName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE arba SWP_NOSIZE)
pabaigos sub 

Prioriteto pašalinimas

 Privatus sub SuppPriority ()
Matykite R ilgą
R = SetWindowPos (NomFeuille.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE arba SWP_NOSIZE)
Pabaiga