یه سوال در زمینه 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 یک مفهومه نه یک روش
به هر حال راه حل اصولی کاری که شما انتظار دارید انجام بشه کدی شبیه به کد زیره:

 

PublicClass Class1

Private m_Property1 As subPropertyBase

Property Property1() As subPropertyBase

Get

 

Return m_Property1

EndGet

 

Set(ByVal Value As subPropertyBase)

m_Property1 = Value

EndSet

 

EndProperty

EndClass

PublicClass subPropertyBase

Private m_SubProperty1 As Int16

Property SubProperty() As Int16

Get

 

Return m_SubProperty1

EndGet

 

Set(ByVal Value As Int16)

m_SubProperty1 = Value

EndSet

 

EndProperty

EndClass

Class testModel

Sub main()

Dim x As Class1

x.Property1.SubProperty = 5

EndSub

EndClass

[white fox]

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