elemtype.cls

来自「用Visual Basical写的汉诺塔源代码。」· CLS 代码 · 共 51 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ElemType"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'顺序表的元素，实际是别处复制来的
Private s As String
Private t As String
Private ID As Integer
Private Sub Class_Initialize()
s = t = ""
ID = 0
End Sub
Property Let SetSource(Source As String)
    s = Source
End Property
Property Let SetTarget(Target As String)
    t = Target
End Property
Property Let SetID(TheID As Integer)
    ID = TheID
End Property
Property Get GetSource() As String
    GetSource = s
End Property
Property Get GetTarget() As String
    GetTarget = t
End Property
Property Get GetID() As Integer
    GetID = ID
End Property
Public Sub SetRecord(ByVal E As ElemType)
    s = E.GetSource
    t = E.GetTarget
End Sub
Public Function GetRecord() As ElemType
    GetRecord.SetSource = s
    GetRecord.SetTarget = t
    GetRecord.SetID = ID
End Function