mdlkeepontop.bas

一个交通专用的gis-T系统

Attribute VB_Name = "MDLKeepOnTop"
'*********************************************************************
'*
'*                本源码完全免费，共交通同仁学习参考                 *
'*                      www.tranbbs.com                              *
'*                   Developed by Yang Ming                          *
'*       Nanjing Institute of City Transportation Planning           *
'*                 请保留本版权信息，谢谢合作                        *
'*                      中国交通技术论坛                             *
'*                                                                   *
'*                                                                   *
'*********************************************************************
Option Explicit

#If Win16 Then
    Declare Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
#Else
    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
#End If


'*************************************************************************
'* Function: KeepOnTop(F As Form)
'*
'*
'*************************************************************************
'* Description: Keep form on top.
'*
'*
'*************************************************************************
'* Parameters: Form Control
'*
'*************************************************************************
'* Notes: The SetWindowPos API call gets turned off if the form is
'*        minimized.  Put this code in the resize event to make sure
'*        your form stays on top.
'*
'*************************************************************************
'* Returns:
'*************************************************************************
Sub KeepOnTop(f As Form)
    Const SWP_NOMOVE = 2
    Const SWP_NOSIZE = 1
    
    Const HWND_TOPMOST = -1
    Const HWND_NOTOPMOST = -2

    SetWindowPos f.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

End Sub

Sub NotKeepOnTop(f As Form)
    Const SWP_NOMOVE = 2
    Const SWP_NOSIZE = 1
    
    Const HWND_TOPMOST = -1
    Const HWND_NOTOPMOST = -2
    
    
        SetWindowPos f.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE


End Sub