VB-2012 / 2-cеместр / Дневники / Самостоятельная работа / Деревья / AVLNODE

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "AVLNode"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
' ************************************************
' AVLNode.CLS
'
' AVL tree node class.
' ************************************************
' Copyright (C) 1997 John Wiley & Sons, Inc.
' All rights reserved. See additional copyright
' information in RIGHTS.TXT.
' ************************************************
Option Explicit

Public LeftChild As AVLNode
Public RightChild As AVLNode

' -1 = left heavy
' 0 = balanced
' 1 = right heavy
Public Balance As Integer

Public Box As Label
' ************************************************
' Unload the display Label control.
' ************************************************
Private Sub Class_Terminate()
Unload Box
End Sub