mguifunction.bas

来自「需要控件：Active Report 2.0(专业报表控件破解版)2.0下的ar」· BAS 代码 · 共 24 行

Attribute VB_Name = "mGuiFunction"
Option Explicit
'窗体top
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

'窗口置前-----------------------------------
Public Const HWND_TOPMOST = -1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1

'窗口置前-----------------------------------
Public Function PutWindowOnTop(pFrm As Form)
  Dim lngWindowPosition As Long
  lngWindowPosition = SetWindowPos(pFrm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Function