如何才能将弹出的窗口显示在最外层,需要设置什么属性?

Question

RT

Answer 1

API
setwindowpos form.hwnd,-1,0,0,0,0,3

Answer 2

Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Sub Command1_Click()
    SetWindowPos Form2.hWnd, -1, 0, 0, 0, 0, &H2 + &H1'把Form2放最外层
    Form2.Show
End Sub