VB调用API函数使窗口保持在最上层

【 tulaoshi.com - 编程语言 】

----我们看到有的应用程序不管窗口是否活动都使窗口保持在最上层，常见的MicrosoftWord的文件打开和编辑查找窗口就是这样。在VB开发中可以通过调用SetWindowsPos()API函数实现这个功能。该函数声明如下：
　　
　　PrivateDeclareFunctionSetWindowPos
　　Lib"user32"(ByValhwndAsLong,_
　　ByValhWndInsertAfterAsLong,ByVal
　　xAsLong,ByValyAsLong,_
　　ByValcxAsLong,ByValcyAsLong,
　　ByValwFlagsAsLong)AsLong
　　
　　----hWnd变元是窗口的句柄；x，y是窗口的左上角的坐标；cx、cy是窗口宽度和高度；hWndInsertAfter变元是窗口清单中hWnd窗口前面的窗口句柄，有四个可选值：
　　
　　序号可选值作用
　　1HWND_BOTTOM把窗口放在窗口清单的底部
　　2HWND_TOP把窗口放在窗口清单的字符顺序的顶部
　　3HWND_TOPMOST把窗口放在窗口清单的顶部
　　4HWND_NOTOPMOST把窗口放在窗口清单的顶部，最上层窗口之下
　　
　　----WFlags变元为整型值，有八个可选值：
　　
　　序号可选值作用
　　1SWP_DRAWFRAME在窗口周围画一个方框
　　2SWP_HIDEWINDOW隐藏窗口
　　3SWP_NOACTIVATE不激活窗口
　　4SWP_NOMOVE保持窗口当前位置
　　5SWP_NOREDRAW窗口不自动重画
　　6SWP_NOSIZE保持窗口当前尺寸
　　7SWP_NOZORDER保持窗口在窗口清单中的当前位置
　　8SWP_SHOWWINDOW显示窗口
　　
　　----下面的例子程序Test演示了对函数中的以上7个变元作正确的选择后，应用程序运行后窗口总可保持在最上层,程序清单如下：
　　
　　OptionExplicit
　　PrivateDeclareFunctionSetWindowPos
　　Lib"user32"(ByValhwndAsLong,_
　　ByValhWndInsertAfterAsLong,
　　ByValxAsLong,ByValyAsLong,_
　　ByValcxAsLong,ByValcyAsLong,
　　ByValwFlagsAsLong)AsLong
　　PrivateConstHWND_TOPMOST=-1
　　PrivateConstSWP_SHOWWINDOWS=&H40
　　
　　PrivateSubForm_Load()
　　DimretValueAsLong
　　retValue=SetWindowPos(Me.hwnd,
　　HWND_TOPMOST,Me.CurrentX,_
　　Me.CurrentY,300,300,SWP_SHOWWINDOWS)
　　EndSub
　　
　　----备注：编写函数声明时，整个函数声明须在一行中写完，不可提行。一般是自动从系统中得到函数声明，方法是从VB的外接程序管理中启动“API浏览”程序，在“API浏览”程序中找到所需的函数声明，然后复制到VB代码中。->