说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何制作浮动式窗口

HTML文档下载 WORD文档下载 PDF文档下载
VB如何制作浮动式窗口

你是否很想制作一个类似于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

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘