objhds.cls

套打程序

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ObjHds"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Collection" ,"ObjHd"
Attribute VB_Ext_KEY = "Member0" ,"ObjHd"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

'局部变量(保存集合)
Private mCol As Collection

'Clear
Public Sub Clear()
Dim tmphd As ObjHd
    With mCol
       Do While .Count > 0
            .Item(.Count).ObjCtl.Visible = False
            .Remove .Count
        Loop
    End With
End Sub

'ZOrder
Public Sub ZOrder()
Dim tmphd As ObjHd
    For Each tmphd In mCol
        tmphd.ObjCtl.ZOrder
    Next
End Sub

'Add
Public Function Add(HdID As Integer, nState As Integer, ObjCtl As Object, Optional sKey As String) As ObjHd
Dim objNewMember As New ObjHd
    With objNewMember
        .HdID = HdID
        .nState = nState
        Set .ObjCtl = ObjCtl
    End With
    
    If Len(sKey) = 0 Then
        mCol.Add objNewMember
    Else
        mCol.Add objNewMember, sKey
    End If
    Set Add = objNewMember
    Set objNewMember = Nothing
End Function

'Item
Public Property Get Item(vntIndexKey As Variant) As ObjHd
Attribute Item.VB_UserMemId = 0
    Set Item = mCol(vntIndexKey)
End Property

'Count
Public Property Get Count() As Long
    Count = mCol.Count
End Property

'Remove
Public Sub Remove(vntIndexKey As Variant)
    mCol.Remove vntIndexKey
End Sub

'NewEnum
Public Property Get NewEnum() As IUnknown
Attribute NewEnum.VB_UserMemId = -4
Attribute NewEnum.VB_MemberFlags = "40"
    Set NewEnum = mCol.[_NewEnum]
End Property

'Initialize
Private Sub Class_Initialize()
    '创建类后创建集合
    Set mCol = New Collection
End Sub

'Terminate
Private Sub Class_Terminate()
    '类终止后破坏集合
    Set mCol = Nothing
End Sub