怎样让运行的窗体总是显示在最前？

[hxun]

就和OICQ一样，使运行的窗体总是显示在最前？？

[gaoqi5037]

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)

Sub SetWindowApi(ByVal hwnd As Long, ByVal SetPos As Boolean)
If SetPos = True Then
SetWindowPos hwnd, -1, 0, 0, 0, 0, 3
Else
SetWindowPos hwnd, -2, 0, 0, 0, 0, 3
End If
End Sub

SetWindowApi 窗体句柄，布尔值（True设置在前False取消在前）

[y1g1y1]

api:

setwindowpos

http://ygyuan.go.163.com/
http://ygyuan.3322.net/

[combread]

把这些代码拷贝到窗体中，保证达到要求。

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 HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
Private Sub Form_load()
Dim retValue As Long
'将窗体设置为处于所有窗口的顶层，注意在 VB 中运行时，可能不行，但编译成EXE后就可以了
retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW)
End Sub

[thorkhan]

怎么這么多重复的貼子﹐,上午已經有了這樣的一個問題﹐有很多人已經回了﹐妳沒看到嗎

[thorkhan]

http://www.csdn.net/expert/topic/622/622052.xml?temp=.3550836

[thorkhan]

http://www.csdn.net/expert/topic/622/622052.xml?temp=.3550836

[hxun]

谢谢各位，问题搞定！

另：因几天没上来了，没看到上午的帖子，我曾经赏试用搜索，不过没成功，只有提问了