modother.bas

这是一个VB做的多功能图书借阅系统

Attribute VB_Name = "modOther"


Option Explicit

Public sUserName As String 'UserName String to display welcome msg

'####################################################
'Declaration for making form as TOPMOST
' [ Start ]
'####################################################

Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40

Public Declare Sub 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)
'####################################################
'Declaration for making form as TOPMOST
' [ End ]
'####################################################


'Code which Execute whenever form applications unloads
'Return 1 when user want to exit else 0
Public Function ApplicationUnload() As Integer
    Dim check
    check = MsgBox("Are You Sure you want to Quit", vbExclamation + vbOKCancel, "Library Management System")
    If check = vbOK Then
        ApplicationUnload = 1
        End
    Else
        ApplicationUnload = 0
    End If
End Function

'Code called when Logged Off Even Occured
Public Sub loggedOff()
    Call main
    DoEvents
    frmMain.Hide
    DoEvents
    frmLogin.Show
    DoEvents
End Sub