vertexclass.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 = "VertexClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private sVerID As String
Public Sub LoadVert(ByVal sID As String)
sSql = "select * from Vertex where PID=" + sID
RS.Open sSql, cn, adOpenKeyset, adLockPessimistic
n = rsLen(RS)
If n = 0 Then
    RS.Close
    Exit Sub
End If
ReDim MyVer(n)
iVertexNum = n
For i = 1 To n
    MyVer(i).sVerName = RS("sName").Value
    MyVer(i).vID = RS("vID").Value
    MyVer(i).fPosX = RS("PosX").Value
    MyVer(i).fPosY = RS("Posy").Value
    RS.MoveNext
Next i
RS.Close
'RefreshVert
End Sub