VB6 - Pertahankan jendela aplikasi di atas aplikasi lain

VB6 - Pertahankan jendela aplikasi di atas aplikasi lain

Bagaimana cara menjaga jendela aplikasi di atas aplikasi lain?

Dalam modul umum

 Fungsi Deklarasi Publik SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal_
hWndInsertSetelah Selama, ByVal x Selama, ByVal y Selama, ByVal cx As _
Long, ByVal cy As Long, ByVal wFlags As Long) As Long
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
Const Public SWP_NOSIZE = 1

Dalam bentuk

 Sub Pribadi Form_Load ()
Dim R selama
R = SetWindowPos (SheetName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Atau SWP_NOSIZE)
end sub 

Memanggil fungsi

Fungsi harus memanggil aktivasi formulir. Ini akan memungkinkan program untuk melanjutkan fungsi jika formulir dipilih (karena fungsi dapat digunakan oleh aplikasi lain).

 Sub Pribadi Form_Activate ()
Dim R selama
R = SetWindowPos (SheetName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Atau SWP_NOSIZE)
end sub 

Menghapus prioritas

 Sub pribadi SuppPriority ()
Dim R selama
R = SetWindowPos (NomFeuille.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Atau SWP_NOSIZE)
End sub