作者ClareQ (人比人Cheese人)
看板Visual_Basic
标题Re: [VB6 ] 想请问关於TYPE的问题，不能循环依存？
时间Wed Mar 12 06:59:00 2008
※ 引述《otima ()》之铭言：
: Type typeWave
: Data as Integer
: Child() as typeWave
: End Type
用物件类别模组可以达到你的需求
很久没用VB6了，
刚刚拿回来用用看，
觉得很不习惯呀！
以下一个小范例，
如果需要多个child，
用VB的阵列或collection都可以实做...
'---------表单程式码---------'
Private Sub Form_Paint()
Set a = New Node
Print a.createChild.createChild.createChild.createChild.Index
End Sub
'---------物件类别模组---------'
Option Explicit
Private id As Integer
Public Function createChild() As Node
Set createChild = New Node
createChild.Index = id + 1
End Function
Public Property Get Index() As Integer
Index = id
End Property
Property Let Index(value As Integer)
id = value
End Property
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.133.134.222