悬浮窗体的制作

Question

Const HWND_TOPMOST = -1
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1Private 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 LongPrivate Sub Form_Load()
   SetWindowPos Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE
End Sub具体参数你试着换换，呵呵

Answer 1

用API  SETWINDOWPOS
Dim f as long
f=SetWindowPos(yourform.hwnd,-1,0,0,0,0,3)

Answer 2

使用API，SetWindowLong或者SetWindowPos，添加WS_EX_TOPMOST（for SetWindowLong, EXstyle）or HWND_TOPMOST（for SetWindowPos）

Answer 3

SetWindowPos我试了，它只能让指定的窗体置前而且在所有应用程序的最前面，不是悬浮窗的效果

Answer 4

Bardo 的帖子:http://www.csdn.net/expert/topic/561/561905.xml?temp=.6579553