access如何让窗体总在最前面

2016年8月26日 作者： 来源：

有时在Access应用中要将相应窗体放在最前面。

 *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里写：

SetWindowPos me.hWnd,WND_TOPMOST,0,0,0,0, SWP_NOMOVE 注释：或下面

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