如何让窗体总在最前面

DT　发表于：2013-02-26 21:24:43 　

请问老师：

用cuxun 老师（如何让窗体总在最前面）代码：

'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

' 在窗体里写：

SetWindowPos me.hWnd,WND_TOPMOST,0,0,0,0, SWP_NOMOVE

为何不管用！？错在那。

Top

殷小宝发表于：2013-02-27 21:43:08

SetWindowPos Me.hwnd, HWND_TOPMOST, 250, 250, 502, 250, SWP_NOMOVE 窗体位于任何非弹出窗体的前面。设为0，窗体很小，不可见。cx、cy是窗体的宽与高，应设具体数据。

Top

DT 发表于：2013-02-28 11:01:08

还是不行！

Top

殷小宝发表于：2013-02-28 21:34:29

试试这个：

Private 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
Const API_SWP_NOSIZE = &H1
Const API_SWP_NOMOVE = &H2
Const API_HWND_TOPMOST = -1
Const API_HWND_NOTOPMOST = -2
Public Type POINTAPI
x As Long
y As Long
End Type

Top

殷小宝发表于：2013-02-28 21:36:18

在窗体的加载事件中写上：

SetWindowPo Me.hwnd, -1, 0, 0, 0, 0, 3

Top

落尘_小新发表于：2013-02-28 23:53:22

将窗体　弹出方式　属性设为　是　即可

Top

DT 发表于：2013-03-01 09:22:01

谢谢老师：

用殷小宝老师的代码，再将窗体弹出方式属性设为是。

成功了！

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

如何让窗体总在最前面