systemmodule.bas

即时通讯

Attribute VB_Name = "SystemModule"
Option Explicit
Private msgtitle As String           ' 提示信息的标题

Public Enum enumIcon
   hxxdError = 1        '错误
   hxxdQuery = 2        '询问
   hxxdWarning = 3      '警告
   hxxdInfomation = 4   '信息
End Enum

'信息框类型
Public Enum enumMsgType
   hxxdOKOnly = 0       '确定
   hxxdOkCancel = 2     '确定/取消
   hxxdYesNo = 1        'Yes/No
End Enum

'**************************************
'*    功 能 描 述 :系统提示函数
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Public Function HMsgBox(xttsxx As String, xttslb As enumMsgType, Tbtslb As enumIcon)    '系统信息提示
    
    msgtitle = "山度ERP系统统"
    Select Case xttslb
        Case 0    '确定
            HMsgBox = MsgBox(xttsxx, Tbtslb * 16, msgtitle)
        Case 1    'YES/NO
           HMsgBox = MsgBox(xttsxx, vbYesNo + Tbtslb * 16, msgtitle)
        Case 2    '确定/取消
           HMsgBox = MsgBox(xttsxx, vbOKCancel + Tbtslb * 16, msgtitle)
        Case Else
           HMsgBox = "9"
    End Select

End Function