使用VB如何实现窗口总在最前的特性，就像FlashGet的悬浮窗体(在线等待）

[smartsuyun]

如题

[mrh123]

使用API函数SetWindowPos(...)
Public Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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

hwnd为要显示在最顶端的窗口句柄
hWndInertAfter是实现该目的的重要参数,将该值设为HWND_TOPMOST即可
....

[Wang_xiaoni]

'在你的程序中的适当地方加入以下语句：
'
' 窗体总是再前
' SetWindowPos myform.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
'　　　普通窗体
' SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS

Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Public 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

[用户 昵称]

Public 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

'设置
SetWindowPos form1.hwnd, -1, 0, 0, 0, 0, 3
'取消
SetWindowPos form1.hwnd, -2, 0, 0, 0, 0, 3

[minajo21]

没什么好补充的了:(

[chenyu5188]

来晚了。

[gys_yxr]

来的太晚了。

[litsnake1]

up