modpublic.bas

智能邮件管理信息系统

Attribute VB_Name = "modPublic"
'Function: 公共函数声明和公共变量声明
'Author  : [e-mail]
'Created date: 2004-03-09

Option Explicit
Public SoftName As String
Public blnIsSystem As Boolean

'********************************************************************************
'类,类型定义
Public mTask  As TaskProject.Task
Public mTasks As TaskProject.Tasks
'********************************************************************************

                                            
Public Enum E_TreeViewType
    m_OutlookTreeView = 1
    m_FoxTreeView = 2
    m_OtherView = 3
End Enum

Public Type Selection
    lngSelectionID As Long
    lngRow As Long
End Type

Public m_lngSelectionID() As Selection
Public lngMailCounter As Long

Public BlnEnglishVersion As Boolean


Public Enum E_ViewMode
    m_ServerMode = 1
    m_CliendMode = 2
End Enum
Public m_E_TreeViewType As E_TreeViewType

'此标志 ,代表浙江客户专用
Public BlnOneUser As Boolean


Public m_E_ViewMode As E_ViewMode
Public glngSeverOneAccountID As Long
'可调整的常量声明
Public Const APP_CATEGORY = "redsun"
Public Const AppName = "SmartMail"


'Public Const picGray16 = "ToolbarNormal.bmp"

'********************************************************************************
'如果邮件已经在进行，不要相应自动功能
Public blnIsBusy As Boolean
'********************************************************************************

'不变的常量声明
Public Const WM_SYSCOMMAND = &H112
Public Const SC_CLOSE = &HF060&
Public Const GWL_WNDPROC = (-4)
Public Const MB_ICONEXCLAMATION = &H30&
Public Const ERROR_FILE_NOT_FOUND = 2&
Public Const ERROR_PATH_NOT_FOUND = 3&
Public Const ERROR_BAD_FORMAT = 11&
Public Const SE_ERR_ACCESSDENIED = 5            '  access denied
Public Const SE_ERR_ASSOCINCOMPLETE = 27
Public Const SE_ERR_DDEBUSY = 30
Public Const SE_ERR_DDEFAIL = 29
Public Const SE_ERR_DDETIMEOUT = 28
Public Const SE_ERR_DLLNOTFOUND = 32
Public Const SE_ERR_FNF = 2                     '  file not found
Public Const SE_ERR_NOASSOC = 31
Public Const SE_ERR_PNF = 3                     '  path not found
Public Const SE_ERR_OOM = 8                     '  out of memory
Public Const SE_ERR_SHARE = 26
Global Const NIM_ADD = &H0& 'constants & flags for NotifyIcons
Global Const NIM_MODIFY = &H1
Global Const NIM_DELETE = &H2
Global Const NIF_MESSAGE = &H1
Global Const NIF_ICON = &H2
Global Const NIF_TIP = &H4
Global Const WM_MOUSEMOVE = &H200



'全局变量声明
'使用DAO数据对象

'Public gdbCurrentDB  As New ADODB.Connection    'main database object
Public gLngEmployeeID1 As Long '当前操作员ID
Public gLngFilterEmployeeID As Long '当前操作员ID

'Public gLngEmployeeID As Long '当前操作员ID


Public gLngOwnDefineTreeID As Long


Global NI As NOTIFYICONDATA
Global Language As Integer

'Declare the API-Functions
'所有的Api声明都在本模块
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Sub InitCommonControls Lib "comctl32.dll" ()
Public Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function MessageBoxEx Lib "user32" Alias "MessageBoxExA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long, ByVal wLanguageId As Long) As Long
Public Declare Function SetWindowTheme Lib "uxthedll" (ByVal hwnd As Long, ByVal pszSubAppName As Long, ByVal pszSubIdList As Long) As Long
Public Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Public Declare Function GetCurrentProcess Lib "kernel32" () As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Public Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Public Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Declare Function ShellExecuteForExplore Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, lpParameters As Any, lpDirectory As Any, ByVal nShowCmd As Long) As Long
Public Declare Function Shell_NotifyIconA Lib "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

'公共的枚举类型定义
Public Type POINTAPI
    x As Long
    y As Long
End Type
Public Type RECT
    left As Long
    tOp As Long
    Right As Long
    Bottom As Long
End Type

Public Enum EShellShowConstants
    essSW_HIDE = 0
    essSW_MAXIMIZE = 3
    essSW_MINIMIZE = 6
    essSW_SHOWMAXIMIZED = 3
    essSW_SHOWMINIMIZED = 2
    essSW_SHOWNORMAL = 1
    essSW_SHOWNOACTIVATE = 4
    essSW_SHOWNA = 8
    essSW_SHOWMINNOACTIVE = 7
    essSW_SHOWDEFAULT = 10
    essSW_RESTORE = 9
    essSW_SHOW = 5
End Enum

Type NOTIFYICONDATA
     cbSize As Long
     hwnd As Long
     uID As Long
     uFlags As Long
     uCallbackMessage As Long
     hIcon As Long
     szTip As String * 64
End Type