如何让窗体保留在WINDOWS最上层

guqianfeng

如何让窗体保留在WINDOWS最上层

zcy0718

窗体属性中“弹出”设为“是”要保持在所有程序之上要用到api函数，论坛中有讨论贴的，你找找看。

海狸先生

首先要把 弹出方式 设为是,然后用 api API函数声明

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 Const SWP_NOSIZE = &H1

Private Const SWP_NOMOVE = &H2

Private Const HWND_TOPMOST = -1

Private Const HWND_NOTOPMOST = -2' 在某个form load事件中写：SetWindowPos me.hWnd,WND_TOPMOST,0,0,0,0, SWP_NOMOVE ' 或下面

SetWindowPos me.hWnd,WND_TOPMOST,0,0,0,0, SWP_NOSIZE

guqianfeng

谢谢

zhengjianbiao

不好使

xb952295

试下