在VB中怎么建立总在屏幕最上方的窗口?

[dusj]

怎么在程序中动态建立总在屏幕最上方的窗口?
请给出完整的函数原型. thank you.

[乐杨]

dusj:
你好：
在VB中建立总在屏幕最前面的窗口可采用如下方式：
Declare Function SetWindowPos Lib "user32" (ByVal h%, ByVal hb%, ByVal —_x%, ByVal y%, ByVal cx%,ByVal cy%,ByVal f%) As Integer

Global Const SWP_NOMOVE = 2
Global Const SWP_NOSIZE = 1
Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2

'把窗体放在最前面：
res% = SetWindowPos (Form1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

'如果res%=0， 就产生错误

'使窗体恢复普通模式：

res% = SetWindowPos (Form1.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)

cg91