1、判断与设置窗口置顶
'声明API
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As IntPtr, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As IntPtr, ByVal nIndex As Integer) As Integer
Public Const HWND_TOPMOST As Integer = -1
Public Const HWND_NOTOPMOST As Integer = -2
Public Const SWP_NOMOVE As Integer = &H2
Public Const SWP_NOSIZE As Integer = &H1
Public Const GWL_EXSTYLE As Integer = -20
Public Const WS_EX_TOPMOST = &H8
'设置窗口置顶
SetWindowPos(Hwnd, -1, 0, 0, 0, 0, &H2 Or &H1)
'取消窗口置顶
SetWindowPos(Hwnd, -2, 0, 0, 0, 0, &H2 Or &H1)
'判断窗口是否置顶
If GetWindowLong(Hwnd, -20) And &H8 Then
Debug.WriteLine("窗口已置顶")
Else
Debug.WriteLine("窗口未置顶")
End If