?? daycell.cls
字號(hào):
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 1 'Persistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "DayCell"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Collection" ,"DayList"
Attribute VB_Ext_KEY = "Member0" ,"DayList"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'局部變量,保存集合
Public mCol As Collection
Public Function Add(Dleft As Single, Dtop As Single, Optional sKey As String) As DayList
'創(chuàng)建新對(duì)象
Dim objNewMember As DayList
Set objNewMember = New DayList
'設(shè)置傳入方法的屬性
objNewMember.Dleft = Dleft
objNewMember.Dtop = Dtop
If Len(sKey) = 0 Then
mCol.Add objNewMember
Else
mCol.Add objNewMember, sKey
End If
'返回已創(chuàng)建的對(duì)象
Set Add = objNewMember
Set objNewMember = Nothing
End Function
Public Property Get Item(vntIndexKey As Variant) As DayList
Attribute Item.VB_UserMemId = 0
'引用集合中的一個(gè)元素時(shí)使用。
'vntIndexKey 包含集合的索引或關(guān)鍵字,
'這是為什么要聲明為 Variant 的原因
'語(yǔ)法:Set foo = x.Item(xyz) or Set foo = x.Item(5)
Set Item = mCol(vntIndexKey)
End Property
Public Property Get Count() As Long
'檢索集合中的元素?cái)?shù)時(shí)使用。語(yǔ)法:Debug.Print x.Count
Count = mCol.Count
End Property
Public Sub Remove(vntIndexKey As Variant)
'刪除集合中的元素時(shí)使用。
'vntIndexKey 包含索引或關(guān)鍵字,這是為什么要聲明為 Variant 的原因
'語(yǔ)法:x.Remove(xyz)
mCol.Remove vntIndexKey
End Sub
Public Property Get NewEnum() As IUnknown
Attribute NewEnum.VB_UserMemId = -4
Attribute NewEnum.VB_MemberFlags = "40"
'本屬性允許用 For...Each 語(yǔ)法枚舉該集合。
Set NewEnum = mCol.[_NewEnum]
End Property
Private Sub Class_Initialize()
'創(chuàng)建類后創(chuàng)建集合
Set mCol = New Collection
End Sub
Private Sub Class_Terminate()
'類終止后破壞集合
Set mCol = Nothing
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -