devxlogo

AlwaysOnTheTop – Move a form on top of all other windows

AlwaysOnTheTop – Move a form on top of all other windows

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 LongConst SWP_NOSIZE = &H1Const SWP_NOMOVE = &H2Const SWP_SHOWWINDOW = &H40Const HWND_NOTOPMOST = -2Const HWND_TOPMOST = -1' Set a form always on the top.'' the form can be specified as a Form or object' or through its hWnd property' If OnTop=False the always on the top mode is de-activated.Sub SetAlwaysOnTopMode(hWndOrForm As Variant, Optional ByVal OnTop As Boolean = _    True)    Dim hWnd As Long    ' get the hWnd of the form to be move on top    If VarType(hWndOrForm) = vbLong Then        hWnd = hWndOrForm    Else        hWnd = hWndOrForm.hWnd    End If    SetWindowPos hWnd, IIf(OnTop, HWND_TOPMOST, HWND_NOTOPMOST), 0, 0, 0, 0, _        SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOWEnd Sub

See also  How IoT Tech Will Transform Logistics
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist