VB6 - 다른 응용 프로그램 위에 응용 프로그램 창 유지

다른 응용 프로그램 위에 응용 프로그램 창을 유지하는 방법?

일반 모듈

공용 선언 함수 SetWindowPos Lib "user32"(ByVal hwnd As Long, ByVal_

hWndInsertAfter Long, ByVal x Long, ByVal y Long, ByVal cx As _

긴 ByVal cy By Long, ByVal wFlags Long) 오랫동안

Public Const HWND_TOPMOST = -1

공개 Const HWND_NOTOPMOST = -2

Public Const SWP_NOACTIVATE = & H10

Public Const SWP_SHOWWINDOW = & H40

Public Const SWP_NOMOVE = 2

Public Const SWP_NOSIZE = 1

 Private Sub Form_Load ()
R은 길다.
R = SetWindowPos (SheetName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE 또는 SWP_NOSIZE)
엔드 서브

이 함수는 폼을 활성화 할 때 호출되어야합니다. 양식을 선택하면 프로그램이 기능을 재개 할 수 있습니다 (다른 응용 프로그램에서 기능을 사용할 수 있음).

 Private Sub Form_Activate ()
R은 길다.
R = SetWindowPos (SheetName.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE 또는 SWP_NOSIZE)
엔드 서브

 개인 하위 SuppPriority ()
R은 길다.
R = SetWindowPos (NomFeuille.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE 또는 SWP_NOSIZE)
엔드 서브