یه سوال در زمینه Object Modeling در کلاسها

[white fox]

سلام....
دوستان من در برنامه ام یه پراپرتی دارم که از یه کلاس دیگه مشتق میشه مثل TextBox1.Font.Bold که Bold در واقع یه کلاس مثلا که از طریق Object Model داخل کلاس Font هست
حالا من این کارو بلدم....اما وقتی میخوام Object ی از کلاس اصلی مثلا اینجا TextBox هست خود کلاس Bold دیده میشه....اما من میخوام حتما کاربر از کلاس Font بگذره بعد پراپرتی های داخلش که شامل Bold هم میشود.
ممنون میشم از راهنمائیتون

[titbasoft]

فکر کنم پست شما یه جورایی compress شده. چون اصلا مفهوم نیست. حداقل من که متوجه نشدم.

[white fox]

خوب ببخشید من شاید بد توضیح دادم...
ببینید من میخوام کلاسی داشته باشم فرضا با نام Class1 خوب؟..
و دوست دارم به یه پراپرتی دسترسی داشته باشم مثل Property1 و داخل این پراپرتی چند پرا پرتی دیگه داشته باشم....
یعنی دسترسی بهش اینطوری باشه:
Class1.Property1.subProperty1
من نمیخوام به subProperty هام مستقیم دسترسی داشته باشم مثلا Class1.SubProperty1
من برای اینکه یه پراپرتی رو داخل یه پراپرتی دیگه داشته باشم از روش Object Model استفاده کردم اما به Subproperty باز هم مستقیم دسترسی داره Class1.subProperty چیکار کنم که فقط از طریق Class1.Property1.subProperty1 به subProperty هام دسترسی داشته باشم...
امیدوارم واضح تر شده باشه منظورم.....

[titbasoft]

والا من بازم روشی رو که استفاده کردید متوجه نشدم (Object Model ؟؟)
تا اونجایی که من می دونمObject Model یک مفهومه نه یک روش
به هر حال راه حل اصولی کاری که شما انتظار دارید انجام بشه کدی شبیه به کد زیره:


Public Class Class1
Private m_Property1 As subPropertyBase
Property Property1() As subPropertyBase
Get

Return m_Property1
End Get

Set(ByVal Value As subPropertyBase)
m_Property1 = Value
End Set

End Property
End Class
Public Class subPropertyBase
Private m_SubProperty1 As Int16
Property SubProperty() As Int16
Get

Return m_SubProperty1
End Get

Set(ByVal Value As Int16)
m_SubProperty1 = Value
End Set

End Property
End Class
Class testModel
Sub main()
Dim x As Class1
x.Property1.SubProperty = 5
End Sub
End Class

[white fox]

ممنون از توجهتون به موضوع