modother.bas

图书管理系统!有源代码!论文!心得!

Attribute VB_Name = "modOther"




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("你确定退出吗？", vbExclamation + vbOKCancel, "图书管理系统")
        If check = vbOK Then
 End
     End If
     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