Office中国论坛/Access中国论坛

标题: 如何让窗体保留在WINDOWS最上层 [打印本页]

作者: guqianfeng 时间: 2005-10-14 01:02
标题: 如何让窗体保留在WINDOWS最上层
如何让窗体保留在WINDOWS最上层

作者: zcy0718 时间: 2005-10-14 03:29
窗体属性中“弹出”设为“是”要保持在所有程序之上要用到api函数，论坛中有讨论贴的，你找找看。

作者: 海狸先生 时间: 2005-10-14 04:21
首先要把弹出方式设为是,然后用 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 时间: 2005-10-18 06:33
谢谢

作者: zhengjianbiao 时间: 2010-11-9 20:10
不好使

作者: xb952295 时间: 2010-11-28 16:53
试下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)