ساخت Property تو در تو

[hosein320]

سلام من یه پروپرتی ساختم که خودش شامل چند تا پروپرتی دیگه میشه
الان یه مشکل دارم که میتونم مقدار خصوصیاتو بخونم ولی نمیتونم مقدار دهی کنم
دوستان اگه یه مثال بزنن ممنون میشم

Public Class img
Inherits PictureBox
Public Property Web As Htm

Structure Htm
Public Property Src As String
Public Property Href As String
Public Property Height As String
Public Property Width As String
Public Property Css As CSS
End Structure

Structure CSS
Public Property Position As String
Public Property Top As Long
Public Property Left As Long
Public Property Bottom As Long
Public Property Right As Long
Public Property Float As String
End Structure

End Class

:لبخندساده:

[Mani_rf]

پروپرتی شما باید از نوع یک کلاس باشه تا بتونی این کار رو بکنی.
نحوه استفاده کردنت از Structure هم صحیح نیست.

[hosein320]

پروپرتی شما باید از نوع یک کلاس باشه تا بتونی این کار رو بکنی.
نحوه استفاده کردنت از Structure هم صحیح نیست.
من بازم نتونستم به پراپرتی ها مقدار بدم
همش این ارور رو میده

Object reference not set to an instance of an object.

[Mani_rf]

به این شکل باید عمل کنی :

Module Module1

Sub Main()
Dim H As New htmlprop With {
.Src = "TestSource",
.Width = 20,
.Href = "http://test.com",
.Height = 150
}


H.Css = New Css With {.Position = "static",
.Float = "Right",
.Top = 0,
.Left = 3,
.Right = 5,
.Bottom = 20
}




Console.WriteLine("Html Propperties : src:{0} , width:{1} , href:{2} , height:{3} ", H.Src, H.Width, H.Href, H.Height)
Console.WriteLine("Css Propperties : Position:{0} , Top:{1} , Left:{2} , Bottom:{3} , Right:{4} , Float:{5} ", H.Css.Position, H.Css.Top, H.Css.Left, H.Css.Bottom, H.Css.Right, H.Css.Float)


Console.Read()
End Sub


End Module




Public Class htmlprop
Public Property Src As String
Public Property Href As String
Public Property Height As String
Public Property Width As String
Public Property Css As Css
End Class




Public Class Css
Public Property Position As String
Public Property Top As Long
Public Property Left As Long
Public Property Bottom As Long
Public Property Right As Long
Public Property Float As String
End Class

البته خواستم سورس برات آپلود کنم نمیدونم چرانشد!!!
فکر میکنم که همین کارت رو راه بندازه.