چجوری در یک property یک property دیگه بسازیم

[neverlieme]

سلام
دوستان می خواستم بدونم آیا امکانش هست یه property رو داخل یه property دیگه بسازیم؟
مثلا کنترل های vb یک خصیصه به نام location دارن که داخل این خصیصه چند خصیصه ی دیگه هست به این صورت :
مثلا واسه یه تکست باکس textbox1.location.x
یا مثلا : textbox1.location.y
ضمن این که خصیصه ی location خودش هم قابل استفادست و میشه به صورت textbox.location ازش استفاده کرد (اونو set کرد یا اونو get کرد)
سوال اینجاست که چجوری میشه همچین کاری کرد؟ یعنی یه خصیصه رو مخصوصه یه خصیصه ی دیگه تعریف کرد؟
ممنون میشم اگه جواب بدید

[neverlieme]

کسی نبود جواب بده؟

[neverlieme]

اگه منظورمو نفهمیدید بگید یه جور دیگه سوالمو مطرح کنم. در غیر این صورت یعنی هیچ کس بلد نیست؟

[ali.rk]

واسه چی می خوای .... من نفهمیدیم توضیح بده ؟

[xxnagin]

سلام
این یه نمونه

Public Class Class1
Dim c As p
Public Structure p
Public Property x1 As Integer
Public Property x2 As Integer
Public Property x3 As Integer
Public Property x4 As Integer
Public Property x5 As Integer
End Structure
Public Property x As p
Get
Return c
End Get
Set(value As p)
c = value
End Set
End Property
End Class

[neverlieme]

تو فروم msdn مایکروسافت پرسیدم جوابمو گرفتم به این صورت میشه تعریف کرد

Public Class Car
Public Tire Property Tire() as New TireClass
End Class

Public Class TireClass
Public Property Color As String
Public Property Material As String
and etc.....
End Class

[neverlieme]

البته کد بالا فقط واسه ی زمانیه که متد ها و فیلد ها share شده باشن و در اون حالت خطا میده این کد بدون خطا عمل می کنه :
Public Class Car
Public Variable1 As Integer
Sub New()
End Sub
Private Property _Tire As TireClass = Nothing
Public Property Tire As TireClass
Get
If Not _Tire Is Nothing Then Return _Tire
_Tire = New TireClass(Me)
Return _Tire
End Get
Set(value As TireClass)
_Tire = value
End Set
End Property
End Class

Public Class TireClass
Dim Obj As Car = Nothing
Private _root As Car
Public ReadOnly Property F1 As Integer
Get
Return Obj.Variable1 * 2
End Get
End Property
Sub New(obj As Car)
Me.Obj = obj
End Sub
End Class