msgsub.bas

vb做的数据库 客户管理系统

Attribute VB_Name = "msgSub"
'设置 Always on top 声明
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


'设置 Always on top
'------------------------------------------------------------
Public Sub frmOnTop(Form As Form, OnTop As Boolean)
    If OnTop Then
        SetWindowPos Form.hwnd, -1, 0, 0, 0, 0, 1 Or 2
    Else
        SetWindowPos Form.hwnd, -2, 0, 0, 0, 0, 1 Or 2
    End If
End Sub