Expandable Properties

[bufer24]

Hi, I need a lot of help with this issue: I am developing a simple custom control. The control has a custom property. This custom property contains another custom property. I am not sure what is the right way to achieve it. The attached image says what I need to do.

When I change the width or color property at design or runtime, I can´t capture the change - it simply doesn´t update. The code I am using looks like this:

 

Public Class MyUC
   Private _Circle as MyCircle

   Public Property Circle() as MyCircle
       Get
           Circle = _Circle
       End Get
       Set(ByVal value As MyCircle)
           _Circle = value
           mylabel.Text = __Circle.Border.Width 'this doesn´t execute at all. WHY?
       End Set
   End Property
End Class

<TypeConverter(GetType(ExpandableObjectConverter))> _
Public Class MyCircle
   Private _Border As New MyBorder()

   <NotifyParentProperty(True), _
   RefreshProperties(RefreshProperties.All)> _  
   Public Property Border() As MyBorder
       Get
           Border = _Border
       End Get
       Set(ByVal value As MyBorder)
           _Border = value 'this line also doesn´t execute
       End Set
   End Property
End Class

<TypeConverter(GetType(ExpandableObjectConverter))> _
Public Class MyBorder
   Private _Width As Integer = 1
   Private _Color As Color = Color.Black

   <NotifyParentProperty(True), _
   RefreshProperties(RefreshProperties.All)> _
   Public Property Width() As Integer
       Get
           Return _Width
       End Get
       Set(ByVal value As Integer)
           _Width = value
       End Set
   End Property

   <NotifyParentProperty(True), _
   RefreshProperties(RefreshProperties.All)> _
   Public Property Color() as Color
       Get
            Return _Color
       End Get
       Set(ByVal value As Integer)
           _Color = value
       End Set
End Class

 

I want the control´s expandable properties to work properly - just like those in DevExpress Controls

Edited June 8, 2008 by bufer24