VB6 - Tetapkan tetingkap aplikasi di atas aplikasi lain

VB6 - Tetapkan tetingkap aplikasi di atas aplikasi lain

Bagaimana untuk menjaga tetingkap aplikasi di atas aplikasi lain?

Dalam modul umum

 Fungsi Menafsirkan Umum SetWindowPos Lib "user32" (ByVal hwnd Sebagai Long, ByVal_
hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As _
Long, ByVal cy Long, ByVal wFlags As Long) As Long
Umum Const HWND_TOPMOST = -1
Umum Const HWND_NOTOPMOST = -2
Umum Const SWP_NOACTIVATE = & H10
Umum Const SWP_SHOWWINDOW = & H40
Awalan Const SWP_NOMOVE = 2
Umum Const SWP_NOSIZE = 1

Dalam bentuk

 Sub Form_Load peribadi ()
Dim R lama
R = SetWindowPos (SheetName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Atau SWP_NOSIZE)
sub akhir 

Memanggil fungsi

Fungsi ini mesti dipanggil pengaktifan borang tersebut. Ia akan membolehkan program menyambung semula fungsi jika borang dipilih (sebagai fungsi boleh digunakan oleh aplikasi lain).

 Peribadi Sub Form_Activate ()
Dim R lama
R = SetWindowPos (SheetName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Atau SWP_NOSIZE)
sub akhir 

Mengalih keutamaan

 Sub kediaman SuppPriority ()
Dim R lama
R = SetWindowPos (NomFeuille.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Atau SWP_NOSIZE)
Akhir sub