REDESSINER VOTRE FEUILLE DE LA FORME DE VOTRE CHOIX EN VB.NET (...)

Imports System.Drawing.Drawing2D 'à placer en tout debut du code




    Private Sub Form_etoile()
'ouais elle est pas super l'etoile, mais hein... pouvez changer les coordonnées pour faire mieux, je suis pas top fort en geometrie :)

        Dim i As Integer
        Dim drawTypes(9) As Byte
        Dim drawPoints(9) As Point

        drawPoints(0) = New Point(200, 0)   'A

        drawPoints(1) = New Point(165, 100) 'B
        drawPoints(2) = New Point(50, 140)  'C
        drawPoints(3) = New Point(150, 170) 'D

        drawPoints(4) = New Point(85, 275) 'E
        drawPoints(5) = New Point(200, 225) 'F
        drawPoints(6) = New Point(315, 275) 'G

        drawPoints(7) = New Point(250, 170) 'H
        drawPoints(8) = New Point(350, 140) 'I
        drawPoints(9) = New Point(235, 100) 'J
        For i = 0 To drawPoints.GetUpperBound(0)
            drawTypes(i) = PathPointType.Line
        Next i
        Dim newregion As New GraphicsPath(drawPoints, drawTypes)
        Me.Region = New Region(newregion)
    End Sub

    Private Sub Form_losange()
        Dim i As Integer
        Dim drawTypes(3) As Byte
        Dim drawPoints(3) As Point

        drawPoints(0) = New Point(100, 0)   'A
        drawPoints(1) = New Point(50, 100)  'B
        drawPoints(2) = New Point(100, 200) 'C
        drawPoints(3) = New Point(150, 100) 'D
        For i = 0 To drawPoints.GetUpperBound(0)
            drawTypes(i) = PathPointType.Line
        Next i
        Dim newregion As New GraphicsPath(drawPoints, drawTypes)
        Me.Region = New Region(newregion)
    End Sub

    Private Sub Form_triangle_rectangle()
        Dim i As Integer
        Dim drawTypes(2) As Byte
        Dim drawPoints(2) As Point

        drawPoints(0) = New Point(50, 0)
        drawPoints(1) = New Point(50, 200)
        drawPoints(2) = New Point(250, 200)
        For i = 0 To drawPoints.GetUpperBound(0)
            drawTypes(i) = PathPointType.Line
        Next i
        Dim newregion As New GraphicsPath(drawPoints, drawTypes)
        Me.Region = New Region(newregion)
    End Sub

    Private Sub Form_parallelograme()
        Dim i As Integer
        Dim drawTypes(3) As Byte
        Dim drawPoints(3) As Point

        drawPoints(0) = New Point(50, 0)
        drawPoints(1) = New Point(0, 200)
        drawPoints(2) = New Point(250, 200)
        drawPoints(3) = New Point(300, 0)
        For i = 0 To drawPoints.GetUpperBound(0)
            drawTypes(i) = PathPointType.Line
        Next i
        Dim newregion As New GraphicsPath(drawPoints, drawTypes)
        Me.Region = New Region(newregion)
    End Sub