typename - the custom type the Object function should return
objecthandle - an integer handle produced by the Handle function |
The Object function takes the integer handle of an object and if it exists
returns an actual reference to the object given it is of the Type specified.
See also: Type, Handle. |
; Object
Type MYTYPE Field myint End Type Dim HandleArray(4) For count=1 To 3 temp.MYTYPE=New MYTYPE HandleArray(count)=Handle(temp) Print "HandleArray("+count+")="+HandleArray(count) Next Delete Object.MYTYPE(HandleArray(2)) Print "Deleted 2nd MYTYPE" temp.MYTYPE=New MYTYPE HandleArray(4)=Handle(temp) For count=1 To 4 temp.MYTYPE=Object.MYTYPE(HandleArray(count)) Print "temp="+Handle(temp) Next WaitKey() End |