Gemme objenter i binær fil
Hey,Jeg har lavet et eksempel der gemmer et array i en binær fil. Det virker fint. Men nu har jeg prøvet at lave min egen klasse, og vil gemme dem i en binær fil også, men det må jeg ikke.
Mit Array eksempel er således:
Open "C:\binary.BIN" For Binary As #1
Put #1, 1, bytes
Close #1
Jeg har lavet en klasse Node, der ser sådan her ud:
Dim leaf As String
Dim leftNode As New node
Dim rightNode As New node
Public Sub constructor()
leaf = 0
Set leftNode = New node
Set rightNode = New node
End Sub
Public Sub setLeftNode(newNode As node)
Set leftNode = newNode
End Sub
Public Sub setRightNode(newNode As node)
Set rightNode = newNode
End Sub
Public Sub setLeaf(newLeaf As String)
Set leaf = newLeaf
End Sub
Public Function getLeftNode() As node
Set getLeftNode = leftNode
End Function
Public Function getRightNode() As node
Set getRightNode = rightNode
End Function
Public Function getLeaf() As String
setgetLeaf = leaf
End Function
Jeg sætter nogle værdier i min Node (gerne andre noder og nogle gange en leaf værdi.
så vil jeg gerne gemme på samme måde som med mit array.
Så får jeg følgende fejl:
"Can't Get or Put an object reference variable or a variable of user-defined type containing an object reference.
Hvordan får jeg den til at gemme? Jeg er stadig forholdsvis ny i VB, og kan se det har noget at gøre med at det er bygget op på referencer. Men jeg ved ikke hvordan jeg laver om på det, så det virker.
