Visual Basic

Imports System.ComponentModel
Imports System.Drawing.Drawing2D

Public Class NewPictureBox
    Inherits PictureBox

    Public Sub New()

        Size = New Size(100, 100)
        SizeMode = PictureBoxSizeMode.Zoom
    End Sub

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    Public ReadOnly Property Properties() As TextLocation
        Get
            Return Me.m_properties
        End Get
    End Property
    Private WithEvents m_properties As New TextLocation

    Private Sub Properties_Changed() Handles m_properties.Changed
        Me.Invalidate()
    End Sub

    Friend Sub NotifyStateChanged(source As TextLocation, propertyName As String)
        Me.Invalidate()
        Debug.WriteLine("UIListBox: State changed.")
    End Sub

    'Overridden methods
    Protected Overrides Sub OnResize(ByVal e As EventArgs)
        MyBase.OnResize(e)
        Size = New Size(Width, Width)
    End Sub

    Protected Overrides Sub OnPaint(ByVal pe As PaintEventArgs)
        MyBase.OnPaint(pe)
        'Fields
        Dim graph = pe.Graphics
        Dim rectContourSmooth = Rectangle.Inflate(ClientRectangle, -1, -1)
        Dim rectBorder = Rectangle.Inflate(rectContourSmooth, -m_properties.BorderSize, -m_properties.BorderSize)
        Dim smoothSize = If(m_properties.BorderSize > 0, m_properties.BorderSize * 3, 1)
        Dim newText = m_properties.Caption

        Using borderGColor = New LinearGradientBrush(rectBorder, m_properties.BorderColor, m_properties.BorderColor2, m_properties.GradientAngle)

            Using pathRegion = New GraphicsPath()

                Using penSmooth = New Pen(Parent.BackColor, smoothSize)

                    Using penBorder = New Pen(borderGColor, m_properties.BorderSize)
                        graph.SmoothingMode = SmoothingMode.AntiAlias
                        penBorder.DashStyle = m_properties.BorderLineStyle
                        penBorder.DashCap = m_properties.BorderCapStyle
                        pathRegion.AddEllipse(rectContourSmooth)
                        'Set rounded region 
                        Region = New Region(pathRegion)

                        graph.DrawString(m_properties.Caption, New Font("Segoe UI", 12, FontStyle.Regular), New SolidBrush(Color.Black), m_properties.CaptionLocation.X, m_properties.CaptionLocation.Y, StringFormat.GenericDefault)
                        'Drawing
                        graph.DrawEllipse(penSmooth, rectContourSmooth) 'Draw contour smoothing
                        If m_properties.BorderSize > 0 Then graph.DrawEllipse(penBorder, rectBorder) 'Draw border
                    End Using
                End Using
            End Using
        End Using

    End Sub

End Class


<TypeConverter(GetType(ExpandableObjectConverter))>
Public Class TextLocation
 
     Public Property Caption As String
        Get
            Return m_captiontext
        End Get
        Set(ByVal Value As String)
            m_captiontext = Value
            OnValueChanged()
        End Set
    End Property
    Private m_captiontext As String = "label"

    Overrides Function toString() As String
        Return "<" & m_captiontext & ">"
    End Function

     Property CaptionLocation As Point
        Get
            Return m_captionx

        End Get
        Set(ByVal Value As Point)
            m_captionx = Value
            OnValueChanged()
        End Set
    End Property
    Private m_captionx As New Point(50.0F, 10.0F)

    Public Property BorderSize As Integer
        Get
            Return m_borderSizeField
        End Get
        Set(ByVal value As Integer)
            m_borderSizeField = value
            'still need to make this work
            OnValueChanged()
        End Set
    End Property
    Private m_borderSizeField As Integer = 2

    Public Property BorderColor As Color
        Get
            Return m_borderColorField
        End Get
        Set(ByVal value As Color)
            m_borderColorField = value
            OnValueChanged()
        End Set
    End Property
    Private m_borderColorField As Color = Color.Blue

     Public Property BorderColor2 As Color
        Get
            Return m_borderColor2Field
        End Get
        Set(ByVal value As Color)
            m_borderColor2Field = value
            OnValueChanged()
        End Set
    End Property
    Private m_borderColor2Field As Color = Color.RoyalBlue

    Public Property BorderLineStyle As DashStyle
        Get
            Return m_borderLineStyleField
        End Get
        Set(ByVal value As DashStyle)
            m_borderLineStyleField = value
            OnValueChanged()
        End Set
    End Property
    Private m_borderLineStyleField As DashStyle = DashStyle.Solid

    Public Property BorderCapStyle As DashCap
        Get
            Return m_borderCapStyleField
        End Get
        Set(ByVal value As DashCap)
            m_borderCapStyleField = value
            OnValueChanged()
        End Set
    End Property
    Private m_borderCapStyleField As DashCap = DashCap.Flat

    Public Property GradientAngle As Single
        Get
            Return m_gradientAngleField
        End Get
        Set(ByVal value As Single)
            m_gradientAngleField = value
            OnValueChanged()
        End Set
    End Property
    Private m_gradientAngleField As Single = 50.0F

    Private Sub OnValueChanged()
        RaiseEvent Changed()
    End Sub

    Public Event Changed()

    Overrides Function toString() As String
        Return "<" & "..." & ">"
    End Function

End Class

Overrides Function toString() As String
        Return "<" & m_captiontext & ">"
    End Function

'Public Overrides Function toString() As String
    'Return "<" & "..." & ">"
    'End Function

<DefaultValue("label")>
Public Property Caption As String
    Get
        Return m_captiontext
    End Get
    Set(ByVal Value As String)
        m_captiontext = Value
        OnValueChanged()
    End Set
End Property
Private m_captiontext As String = "label"

<DisplayName("Caption"),
         DescriptionAttribute("Enter Caption for image"),
         ParenthesizePropertyName(False),
         XmlElementAttribute("Caption"),
         NotifyParentProperty(True),
         DefaultValue("label"),
         EditorBrowsable(EditorBrowsableState.Always),
         RefreshProperties(RefreshProperties.All)>

robert11 wrote:

if i can get the "OnPaint" to work, i might be able to add rest of the properties!!!

Bastard Programmer from Hell
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.