rectangle Multiple couleur

Version imprimable

10/11/2021, 09h55
Miska59

1 pièce(s) jointe(s)

rectangle Multiple couleur

Bonjour,

je suis entrain de créer plusieurs class progressbar. je voudrais savoir si c'est possible avoir un rectangle avec 4 coté de couleur.

voici en image mon rectangle avec DrawLine :
Pièce jointe 608428

avez-vous une autre solution pour avoir un rectangle sens DrawLine?

1 pièce(s) jointe(s)

Bonjour,

est-il possible dans drawline avec startPoint et EndPoint un angle à 45 degré?

voici en image :
Pièce jointe 608513

mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim rect As New Rectangle(50, 50, 200, 50)
        Dim pointTopLeft As Point = New Point(rect.Height - 1, 10)
        Dim pointBottomLeft As Point = New Point(rect.Height - 1, rect.Height - 1)
        Dim pointTopRight As Point = New Point(rect.Width - 1, 10)
        Dim pointBottomRight As Point = New Point(rect.Width - 1, rect.Height - 1)
        e.Graphics.DrawLine(New Pen(Brushes.Red, 5), pointTopLeft, pointBottomLeft)
        e.Graphics.DrawLine(New Pen(Brushes.Green, 5), pointTopLeft, pointTopRight)
        e.Graphics.DrawLine(New Pen(Brushes.Blue, 5), pointBottomRight, pointTopRight)
        e.Graphics.DrawLine(New Pen(Brushes.Pink, 5), pointBottomLeft, pointBottomRight)
    End Sub

bonjour
Oui ,peut etre comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
Public Class ControlMiska
    Inherits UserControl
    Private Sub Miska_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim thePen As New Pen(Brushes.Red, 10)
        thePen.Alignment = Drawing2D.PenAlignment.Center
        thePen.LineJoin = Drawing2D.LineJoin.Bevel
        thePen.SetLineCap(Drawing2D.LineCap.AnchorMask, Drawing2D.LineCap.AnchorMask, Drawing2D.DashCap.Triangle)
 
        Dim rect As New Rectangle(50, 50, 300, 150)
        Dim pointTopLeft As Point = New Point(rect.Height - 1, 10)
        Dim pointBottomLeft As Point = New Point(rect.Height - 1, rect.Height - 1)
        Dim pointTopRight As Point = New Point(rect.Width - 1, 10)
        Dim pointBottomRight As Point = New Point(rect.Width - 1, rect.Height - 1)
 
        e.Graphics.DrawLine(thePen, pointTopLeft, pointBottomLeft)
        thePen.Brush = Brushes.Green
        e.Graphics.DrawLine(thePen, pointTopLeft, pointTopRight)
        thePen.Brush = Brushes.Yellow
        e.Graphics.DrawLine(thePen, pointBottomRight, pointTopRight)
        thePen.Brush = Brushes.Pink
        e.Graphics.DrawLine(thePen, pointBottomLeft, pointBottomRight)
    End Sub
End Class

bon code....