sys.cls

来自「金算盘软件代码」· CLS 代码 · 共 78 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Sys"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'  系统类
'  作者：黄涛
'  日期：1998.02.21
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Option Explicit


'主控集合对象
Private mcolMainControls As New MainControls

'操作员ID
Private mlngOperatorID As Long

'当前MDI子窗体名字
Private mstrCurrFormName As String

'上一MDI子个窗体名字
Private mstrPrevFormName As String


'主控集合对象
Public Property Get MainControls() As MainControls
    Set MainControls = mcolMainControls
End Property

'上一个窗体句柄
Public Property Get PrevFormName() As String
    PrevFormName = mstrPrevFormName
End Property

'当前MDI子窗体句柄
Public Property Get CurrFormName() As String
    CurrFormName = mstrCurrFormName
End Property

Public Property Let CurrFormName(ByVal strCurrFormName As String)
    If strCurrFormName = mstrCurrFormName Then
        Exit Property
    End If
    mstrPrevFormName = mstrCurrFormName
    mstrCurrFormName = strCurrFormName
    On Error GoTo ErrHandle
    If mcolMainControls.Item(strCurrFormName).Form.Name = "frmNavigate" Then
       frmMain.tlbMain.Visible = False
    Else
       frmMain.tlbMain.Visible = True
    End If
    Exit Property
ErrHandle:
End Property

'把消息广播到主控集合中所有主控对象的消息集合
Public Sub SendMessage(ByVal lngSource As Long, ByVal msgNewMessage As Message)
    Dim clsMainControl As MainControl
    Utility.RecordSetRefresh msgNewMessage
    For Each clsMainControl In mcolMainControls
        If lngSource <> clsMainControl.Form.hwnd Then
            clsMainControl.Messages.Add msgNewMessage
        End If
    Next clsMainControl
End Sub