modother.bas

一个图书管理系统

Attribute VB_Name = "modOther"
'* Programmed by : Vivek Patel                       *
'* Contact :  Email   => [e-mail] *
'*            Website => www.VIVEKPATEL.cjb.net      *

'=====================================================
'*****************************************************
'* Vote For Me : If you really enjoy this utility or *
'                 helped by any of the functionality *
'                 than plz. reward us by your VOTE.  *
'*****************************************************
'=====================================================



Option Explicit

Public sUserName As String 'UserName String to display welcome msg
Public flagCloseAll As Boolean

'####################################################
'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
    If flagCloseAll = False Then
    check = MsgBox("Are You Sure you want to Quit", vbExclamation + vbOKCancel, "Library Management System")
        If check = vbOK Then
           MsgBox "Programmed By : Vivek Patel" & vbCrLf & _
            "Website : www.vivekpatel.cjb.net" & vbCrLf & _
            "Email : [e-mail]" & vbCrLf & vbCrLf & vbCrLf & _
            "PLEASE VOTE FOR ME!!!" & vbCrLf & vbCrLf, , "Library Management System"
           ApplicationUnload = 1
           End
        End If
    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