VB6 - păstrați fereastra aplicației pe lângă alte aplicații

VB6 - păstrați fereastra aplicației pe lângă alte aplicații

Cum să păstrați o fereastră de aplicație pe lângă alte aplicații?

Într-un modul general

 Funcția publică Declare SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal_
hWndInsertDe atât de lung, ByVal x ca lung, ByVal y ca lung, ByVal cx As _
Long, ByVal cy la fel de lung, ByVal wFlags cât de lung) cât mai mult timp
Const. Publică HWND_TOPMOST = -1
Const. Publică HWND_NOTOPMOST = -2
Public Const SWP_NOACTIVATE = & H10
Public Const SWP_SHOWWINDOW = & H40
Const. Public SWP_NOMOVE = 2
Const. Public SWP_NOSIZE = 1

În formă

 Private Sub Form_Load ()
Dim R ca lungime
R = SetWindowPos (SheetName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE sau SWP_NOSIZE)
end sub 

Apelarea funcției

Funcția trebuie să solicite activarea formularului. Acesta va permite programului să reia funcția dacă forma este selectată (deoarece funcția poate fi utilizată de altă aplicație).

 Private Sub Form_Activate ()
Dim R ca lungime
R = SetWindowPos (SheetName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE sau SWP_NOSIZE)
end sub 

Eliminarea priorității

 SuprPrioritatea privată ()
Dim R ca lungime
R = SetWindowPos (NomFeuille.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE sau SWP_NOSIZE)
Terminați sub