1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Private Sub Projet_tab_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Projet_tab.Paint, proj_coté_txt.TextChanged
Dim c As Integer
Dim f As New PaintEventArgs
Dim g As Graphics = f.Graphics
Dim MyPen As New Pen(Color.Black, 1)
' Créons les points qui définissent le polygone
c = Int(Val(proj_coté_txt.Text))
Dim point1 As New Point(0, 0)
Dim point2 As New Point(0, c)
Dim point3 As New Point(c, c)
Dim point4 As New Point(c, 0)
Dim curvePoints As Point() = {point1, point2, point3, point4}
' Dessinons le Polygone.
g.DrawPolygon(MyPen, curvePoints)
End Sub |
Partager