Office中国论坛/Access中国论坛

标题: 求助：access2007 窗体在最前面 [打印本页]

作者: bbsliu 时间: 2010-10-15 10:29
标题: 求助：access2007 窗体在最前面
如下是在网上看到的代码。
------------------------------------------
' 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 时间: 2010-10-15 12:29
API声明可不用放在模放里 ,在窗体里也行
在FORM 的LOAD事件加载

作者: bbsliu 时间: 2010-10-15 14:51
我有很多窗口都要用到的功能。所以放在公共的地方减少一些代码。
后面两个问题如何解决？？

作者: andymark 时间: 2010-10-15 16:02
把声明放在模块里
自定义一下FUNCTION, 在窗体的LOAD事件中调用FUNCTION即可

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