VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何制作浮动式窗口
发表评论(0)作者:, 平台:, 阅读:10777, 日期:2000-03-12
如何制作浮动式窗口


你是否很想制作一个类似于Microsoft Offices 那样的一个图标框,始终出现在

桌面的最前方?很简单,你只要调用Windows API函数就可以了。

首先,你当然要先建立一个普通的窗口,然后定义以下一些内容:


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

Public Const SWP_NOMOVE = &H2

Public Const SWP_NOSIZE = &H1

Public Const HWND_TOPMOST = -1

Public Const HWND_NOTOPMOST = -2

Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE


接下来,在你的程序中的适当地方加入以下语句:

success% = SetWindowPos(myform.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

这样,你的窗口就出现在桌面的最前方了。

当然,你也可以把窗口恢复成原来的普通状态:

success% = SetWindowPos(myform.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)


作者:ariel_cy@usa.net