לא מומחה גדול לVB אבל זה צריך להיעש
ות בעיקרון בעזרת referenceים (שזה בדומה לJava כל משתנה שאתה מכריז עליו למעשה.
Public Class Node Dim NextNode As Node Dim m_data As Object Public Sub Node_Initialize(Data As Object) Set m_data=Data Set NextNode=Nothing End Sub Public Sub Node_Terminate() Set m_data=Nothing Set NextNode=Nothing End Sub Public Property Get Data() As Object Data=m_data End Property Public Property Get Next() AS Node Next=NextNode End Property End Class Public Class List Dim m_head As Node Public Sub List_Initialize() Set m_head=Nothing End Sub Public Sub Add(Data As Object) Dim ptr As Node Set ptr=m_head If ptr=Nothing Then Set m_head=new Node(Data) Exit Sub End If Do While(ptr.Next<>Nothing) Set ptr=ptr.Next Loop Set ptr.Next=new Node(Data) End Sub Public Sub List_Terminate() Dim ptr As Node Set ptr=m_head If ptr=Nothing Then Exit Sub End If Do While(ptr<>Nothing) Set m_head=ptr Set ptr=ptr.Next Set m_head=Nothing Loop End Sub End Class
זה ככה מהראש, אני מקווה שזה עובד (יש כמובן עוד דברים להוסיף, אבל זה הרעיון). בהצלחה.