怎样把一个窗体永久的放在最前！

[HelloAllen]

[鹰派]

SetWindowLong

[pp616]

Public Function PutWindowOnTop(Frm As Form)
Dim lngWindowPosition As Long

lngWindowPosition = SetWindowPos(pFrm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)

End Function

调用就好了。

[eaglezhao]

在Form_load中假如下面语句:SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE,大写内容是api常数.

[konmud]

[konmud]

楼上的两位前辈说的仞然不行,因为这个窗体虽然已经在最前了,可是当我运行如starcraft 之类的游戏时,这些游戏仍然会抢在最前段执行从而占据整个屏幕,请问怎样才能够让这个窗体放在他们之前,而且这种方法也不能使oicq的窗体退后,这是令我很苦恼的,请大家帮帮忙,指点一下

[Leemaasn]

试试setwindowpos和bringwindowtotop，
可能平错了。去查查。