求助：access2007 窗体在最前面

bbsliu

如下是在网上看到的代码。
------------------------------------------
' 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
--------------------------------------------------
1.API函数声明--是在模块里吗，我只要把api函数声明，复制到模块里就行吗？
2.常量声明--在哪里声明？
3.在form里加的代码--是在form的什么事件里加（onload，getfocus）？
请帮帮我吧。谢谢。

andymark

  API声明可不用放在模放里 ,在窗体里也行
在FORM 的LOAD事件加载

bbsliu

我有很多窗口都要用到的功能。所以放在公共的地方减少一些代码。
后面两个问题如何解决？？

andymark

把声明 放在模块里
自定义一下FUNCTION, 在窗体的LOAD事件中调用FUNCTION即可