如何让自己的窗口始终保持在最顶层？

Question

SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, &H53  'Me.hWnd窗体句柄

Answer 1

Private Declare Function SetWindowPos Lib "user32" (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 Long
Private Sub Form_Load()
    SetWindowPos Me.hwnd, -1, 0, 0, Screen.Width, Screen.Height, 0
end sub

Answer 2

.frm Private Sub Form_Load()
   Call PutWindowOnTop(Me)
end sub
.basPrivate Declare Function SetWindowPos Lib "user32" (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 Long
Const HWND_TOPMOST = -1
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Public Sub PutWindowOnTop(pFrm As Form) '永远在最顶层
    Dim lngWindowPosition As Long
    '函数成功则返回值为非零，失败则返回0
    '可以调用GetLastError函数获得更多的错误信息
    lngWindowPosition = SetWindowPos(pFrm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub

Answer 3

Private Declare Function SetWindowPos Lib "user32" (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 Long
   
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_SHOWWINDOW = &H40
Private Sub Command1_Click()
 '使 窗 口 Always On Top用
    SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End SubPrivate Sub Command2_Click()    '使 窗 口 取 消 Always On Top功 能 ， 用
    SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End SubPrivate Sub Command3_Click()
    Form2.Show
End SubPrivate Sub Form_Load()
 '使 窗 口 Always On Top用
    SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZEEnd Sub

Answer 4

呦！这可让我怎么加分是好？按照我事先说的，我应把分数加给第一个解答我的huangguanshu。但xxlroad(土八路)解答得真的是又详细又好。干脆，一人加15分吧！还算合理吧？
谢谢两位了！以后小弟有问题还请各位多帮忙啊！