99.txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 23 行

制作TopMost窗口 
     制作TopMost窗口很简单，只需一个API函数就可以实现。
下面的例子就实现了这个功能。
>>步骤1----建立新工程，在窗体上放置一个CommandButton按钮。
>>步骤2----编写如下代码：

Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1
Private 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 Long

Private Sub Command1_Click()
    SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE _
    Or SWP_NOSIZE
End Sub

>>步骤3----编译运行，点击Command1,看看是不是始终位于最上层。
要去掉TopMost属性，只要将参数HWND_TOPMOST换成HWND_NOTOPMOST,
当然，得说明常量：HWND_NOTOPMOST = -2