Visual Basic

robert111-Apr-23 13:05

1-Apr-23 13:05

Appreciate your help

here is complete class i am using.
again, my 1st attempt, picking up knowledge from this group!

VB.NET

Imports System.ComponentModel
Imports System.Drawing.Drawing2D

Public Class NewPictureBox
    Inherits PictureBox

    Public Sub New()

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

        Me.m_properties = New TextLocation(Me)
        Me.m_captiontext = New TextLocation(Me)
        Me.m_captionx = New TextLocation(Me)
        Me.m_captiony = New TextLocation(Me)

        'Borders Fields
        Me.m_borderSizeField = New TextLocation(Me)
        Me.m_borderColorField = New TextLocation(Me)
        Me.m_borderColor2Field = New TextLocation(Me)
        Me.m_borderLineStyleField = New TextLocation(Me)
        Me.m_borderCapStyleField = New TextLocation(Me)
        Me.m_gradientAngleField = New TextLocation(Me)
    End Sub

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

    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_borderSizeField, -m_borderSizeField)
        Dim smoothSize = If(m_borderSizeField > 0, m_borderSizeField * 3, 1)
        Dim newText = m_captiontext

        Using borderGColor = New LinearGradientBrush(rectBorder, m_borderColorField, m_borderColor2Field, m_gradientAngleField)

            Using pathRegion = New GraphicsPath()

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

                    Using penBorder = New Pen(borderGColor, m_borderSizeField)
                        graph.SmoothingMode = SmoothingMode.AntiAlias
                        penBorder.DashStyle = m_borderLineStyleField
                        penBorder.DashCap = m_borderCapStyleField
                        pathRegion.AddEllipse(rectContourSmooth)
                        'Set rounded region 
                        Region = New Region(pathRegion)

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

    End Sub

    Private m_properties As TextLocation
    Private m_captiontext As TextLocation
    Private m_captionx As TextLocation
    Private m_captiony As TextLocation

    'Borders Fields
    Private m_borderSizeField As TextLocation
    Private m_borderColorField As TextLocation
    Private m_borderColor2Field As TextLocation
    Private m_borderLineStyleField As TextLocation
    Private m_borderCapStyleField As TextLocation
    Private m_gradientAngleField As TextLocation
End Class

<ToolboxItem(False)>
Public Class TextLocation
    Inherits Component

    Private m_captiontext As String = "label"
    Private m_captionx As New Point(50.0F, 10.0F)
    'Fields
    Private m_borderSizeField As Integer = 2
    Private m_borderColorField As Color = Color.Blue
    Private m_borderColor2Field As Color = Color.RoyalBlue
    Private m_borderLineStyleField As DashStyle = DashStyle.Solid
    Private m_borderCapStyleField As DashCap = DashCap.Flat
    Private m_gradientAngleField As Single = 50.0F

    Public Sub New(picturebox As NewPictureBox)

        'Borders
        'Fields
        Me.m_borderSizeField = m_borderSizeField
        Me.m_borderColorField = m_borderColorField
        Me.m_borderColor2Field = m_borderColor2Field
        Me.m_borderLineStyleField = m_borderLineStyleField
        Me.m_borderCapStyleField = m_borderCapStyleField

    End Sub

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    Public Property Caption As String
        Get
            Return m_captiontext
        End Get
        Set(ByVal Value As String)
            m_captiontext = Value
        End Set
    End Property

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    Property CaptionLocation As Point
        Get
            Return m_captionx

        End Get
        Set(ByVal Value As Point)
            m_captionx = Value
        End Set
    End Property

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    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
            'Invalidate()
        End Set
    End Property

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    Public Property BorderColor As Color
        Get
            Return m_borderColorField
        End Get
        Set(ByVal value As Color)
            m_borderColorField = value
            'Invalidate()
        End Set
    End Property

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    Public Property BorderColor2 As Color
        Get
            Return m_borderColor2Field
        End Get
        Set(ByVal value As Color)
            m_borderColor2Field = value
            'Invalidate()
        End Set
    End Property

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    Public Property BorderLineStyle As DashStyle
        Get
            Return m_borderLineStyleField
        End Get
        Set(ByVal value As DashStyle)
            m_borderLineStyleField = value
            'Invalidate()
        End Set
    End Property

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    Public Property BorderCapStyle As DashCap
        Get
            Return m_borderCapStyleField
        End Get
        Set(ByVal value As DashCap)
            m_borderCapStyleField = value
            'Invalidate()
        End Set
    End Property

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    Public Property GradientAngle As Single
        Get
            Return m_gradientAngleField
        End Get
        Set(ByVal value As Single)
            m_gradientAngleField = value
            'Invalidate()
        End Set

    End Property

End Class

Thanks again!

Ralf Meier1-Apr-23 23:46

1-Apr-23 23:46

I will take a look on it and come back later to this Discussion ...
In fact it is very good to have the complete Control - so I could test what is going wrong ...

Ralf Meier2-Apr-23 0:29

2-Apr-23 0:29

OK ... changes made ...
I have deleted all unnecessary content and added all needed content to make it work - you should carefully take a look on it ...!!!
Also the Designer now will store all the changes at the properties inside the class. Perhaps, for later use, you should find a better name for it ... Wink | ;)

VB.NET

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

robert112-Apr-23 3:15

2-Apr-23 3:15

Wow!
Just seen the email, 1st coffee and this is a great surprise. Very kind of you to fix my issues. I really appreciate your time.
Only thing I found was the following, Visual Studio complained about multiple definitions with identical signatures.

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

so I did this, and it works fantastic.

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

Ralf Meier2-Apr-23 3:20

2-Apr-23 3:20

I'm sorry - but very good if you fixed it by yourself.
It would be glad, when it is working for you, when you rate (upvote) my Solution.

Ralf Meier2-Apr-23 3:23

2-Apr-23 3:23

Another Suggestion for your custom class / Properties - take a look at the Defaultvalue-Attribute :

<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"

robert112-Apr-23 3:32

2-Apr-23 3:32

Been searching on this subject, as this is still new to me, and I came across those Attributes. This is what I have started to work on.

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

Still looking into this, but it looks nice in the Property Page, to see these appear! Liking where this is going. Again, your help, time and knowledge very much appreciated.

Ralf Meier2-Apr-23 4:12

2-Apr-23 4:12

Since Control-Development is/was one of my favourites I could give a lot of additional tipps - so if you want feel free to ask for ...

Generally what is possible to do :
- delete unused Properties
- switch dependend Properties visible / unvisible
- create Smart-Tags to a Control
- make a Control usable in Designmode

and so on ...

robert112-Apr-23 5:33

2-Apr-23 5:33

Very kind my friend.
Here is a list of what i would like to accomplish (if possible)
Custom Picturebox desires
Properties
-BorderItems(heading)
-BorderColor
-BorderColor2
-BorderCapStyle
-BorderGradientAngle
-BorderLineStyle
-BorderSize
-BorderStyle
-CaptionText(heading)
-CaptoinBackColor
-CaptionForeColor
-CaptionFont
-CaptionLocation
-CaptionPlacement (Top or Bottom of Image)
-CaptionText

• (Would like to do the following shapes if possible with the above BorderItems)
• Shapes (picturebox) **see the current function for rounded corners below**
o Hexagon
o Oval
o Round
o RoundCorners
o Square

‘Change to rounded corners, let user pick size and color, currently how i do this in my program now.
'get the current image
Dim StartImage As Image = tmpImage
Dim RoundedImage As Image = ClsPicShapes.RoundCorners(StartImage, value, .ColorBoarders.Color)
Public Shared Function RoundCorners(ByVal StartImage As Image, ByVal CornerRadius As Single, ByVal BackgroundColor As Color) As Image
CornerRadius = (CornerRadius * 2)
Dim RoundedImage As Bitmap = New Bitmap(StartImage.Width, StartImage.Height)
Dim g As Graphics = Graphics.FromImage(RoundedImage)
g.Clear(BackgroundColor)
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBilinear
g.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.HighQuality
g.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality
g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias
Dim brush As Brush = New TextureBrush(StartImage)
Dim gp As GraphicsPath = New GraphicsPath
gp.AddArc(0, -1, CornerRadius, CornerRadius, 180, 90)
gp.AddArc((-1 + (RoundedImage.Width - CornerRadius)), -1, CornerRadius, CornerRadius, 270, 90)
gp.AddArc((-1 + (RoundedImage.Width - CornerRadius)), (-1 _
+ (RoundedImage.Height - CornerRadius)), CornerRadius, CornerRadius, 0, 90)
gp.AddArc(0, (-1 + (RoundedImage.Height - CornerRadius)), CornerRadius, CornerRadius, 90, 90)
g.FillPath(brush, gp)
Return RoundedImage
End Function

Ralf Meier2-Apr-23 6:19

2-Apr-23 6:19

In the Moment I don't see the wuestion in it - but ... when I understood right I made something similar with a Label.
This Label could have also different shapes - (Rounded, Rectangle, Phased, Raised, Sunken and so on).
If you want to do this you should create for each shape an own method which draw it - like you have done for the Rounded part.
The Selection of the Shapes is an Enum which can also easily placed on a Property. Based on this Enum-Property you select the Shape-Painting inside the OnPaint-Method. At the End the OnPaint-Method will become a very big one ... Cool | :cool:

What we can do, if there are questions or need for discussion, is : you send me the code and I take a look and/or make changes ...

Message Closed

2-Apr-23 6:36

2-Apr-23 6:36

Message Closed

modified 2-Apr-23 11:45am.

Ralf Meier2-Apr-23 6:42

2-Apr-23 6:42

I noticed your Mail-Adress and will send you a Mail - but now you should imediadly delete your Mail-Adresse out of this discussion ...

Eddy Vluggen1-Apr-23 13:20

1-Apr-23 13:20

Even better than mine Big Grin | :-D

Bastard Programmer from Hell Suspicious | :suss:

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

robert111-Apr-23 13:34

1-Apr-23 13:34

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

Appreciate the help!

Eddy Vluggen1-Apr-23 14:13

1-Apr-23 14:13

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

I don't care about OnPaint; lots of controls don't update in the designer, if you noticed.

The designer would hardly work if realtime painting, that only makes sense for some games and not all.

Bastard Programmer from Hell Suspicious | :suss:

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

robert111-Apr-23 14:47

1-Apr-23 14:47

appreciate the help!
will try to find how to draw text, move label ect. with out the "OnPaint".
will keep looking for samples to teach me these things!
Have a great night

robert111-Apr-23 15:19

1-Apr-23 15:19

FYI
Got it. Took a bit to understand what you meant. I placed some fields on the form, enter some data, x, y locations and button. it prints the text at x,y on the image. Now i can add rest of properties to do forecolor, backcolor, font etc. for caption text. Again, appreciate your help.

Eddy Vluggen1-Apr-23 16:04

1-Apr-23 16:04

I did not help really, I just pointed in a direction.

You walked that mile, not me. Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

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

Ralf Meier1-Apr-23 23:56

1-Apr-23 23:56

do you also have an Example, Eddy ?
I'm interested to see it ...

Eddy Vluggen2-Apr-23 0:57

2-Apr-23 0:57

No code to copy/paste, and would not be VB either.

Bastard Programmer from Hell Suspicious | :suss:

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

Ralf Meier2-Apr-23 1:04

2-Apr-23 1:04

too bad ... I'm everytime interested in other approaches.
I prefer VB ... but C# doesn't matter since we have Telerik ...
Have a nice Sunday

modified 2-Apr-23 6:34am.

Ralf Meier2-Apr-23 1:05