ontop.bas

来自「Usb Key loock vb soucrse code. ocx not f」· BAS 代码 · 共 34 行

Attribute VB_Name = "ontop"
Option Explicit


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


' ***
' SetTopMostWnd()
'
' hWnd: 汽狼 .hWnd 加己.
' lOnTopFlag: True捞搁 瘤沥茄 勤甸狼 汽阑 TopMost肺 汲沥,
'   False捞搁 瘤沥茄 勤甸狼 汽狼 TopMost 加己阑 秦力.
' ***
Public Sub SetTopMostWnd(hWnd As Long, lOnTopFlag As Boolean)
  
    Const HWND_TOPMOST = -1
    Const HWND_NOTOPMOST = -2
    Const SWP_NOSIZE = &H1
    Const SWP_NOMOVE = &H2
    Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

    Call SetWindowPos(hWnd, IIf(lOnTopFlag, HWND_TOPMOST, HWND_NOTOPMOST), 0&, 0&, 0&, 0&, FLAGS)

End Sub