在VB中如何让窗体总在最前端显示（要求在任务管理器之前）

来源：百度知道 编辑：UC知道 时间：2024/05/28 11:44:57
在VB中如何让窗体总在最前端显示
注意：
而且要求在任务管理器之前
要盖过任务管理器！！！

楼上的不行
我可以永远让窗体居前，运行资源管理器时不会被遮掩
添加一个Timer控件，将Interval属性设为100

Public 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 Timer1_Timer()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, &O1+ &O2
End Sub

Public 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

Public Const SWP_NOSIZE = &O1
Public Const SWP_NOMOVE = &O2

Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2

'代码
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE + SWP_NOMOVE'将窗口置顶
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE + SWP_NOMOVE'将窗口还原

另外要说的是 显