Dessin d'un rectangle vb.net

Je veux dessiner un simple rectangle 2d sur un formulaire.

Parce que je n'ai jamais fait quoi que ce soit graphique dans vb.net j'ai cherché sur le web et trouvé de nombreux exemples, qui proposent des solutions similaires à celui-ci.

Public Sub DrawRectangleRectangle(ByVal e As PaintEventArgs)

    ' Create pen. 
    Dim blackPen As New Pen(Color.Black, 3)

    ' Create rectangle. 
    Dim rect As New Rectangle(0, 0, 200, 200)

    ' Draw rectangle to screen.
    e.Graphics.DrawRectangle(blackPen, rect)
End Sub

Encore, je ne comprends pas comment cela fonctionne..
Qu'est-ce que ce e As PaintEventArgs ? Ce qui d'entrée n'est présent sous exiger? Comment puis-je dessiner un rectangle simple?

Pour commencer, je veux quelque chose de simple à utiliser, donc je peux expérimenter sur elle et finira par apprendre des choses plus avancées.

InformationsquelleAutor Edgars Miškins | 2014-12-19
  1. 6

    OK ce code fonctionne très bien avant,Vous pouvez le tester pour l'apprentissage

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

   'dimension variables of local scope

    Dim myGraphics As Graphics

    Dim myRectangle As Rectangle

    Dim myPen As New Pen(Color.Blue)

   'return the current form as a drawing surface

    myGraphics = Graphics.FromHwnd(ActiveForm().Handle)

    'create a rectangle based on x,y coordinates, width, & height

    myRectangle = New Rectangle(x:=5, y:=5, Width:=10, Height:=40)

   'draw rectangle from pen and rectangle objects

    myGraphics.DrawRectangle(pen:=myPen, rect:=myRectangle)

    'create a rectangle based on Point and Size objects

    myRectangle = New Rectangle(Location:=New Point(10, 10), Size:=New Size(Width:=20, Height:=60))

    'draw another rectangle from Pen and new Rectangle object

    myGraphics.DrawRectangle(pen:=myPen, rect:=myRectangle)

    'draw a rectangle from a Pen object, a rectangle's x & y, 

      ' width, & height

   myGraphics.DrawRectangle(pen:=myPen, x:=20, y:=20, Width:=30, Height:=80)

 End Sub
    • Je vous remercie. C'est exactement ce dont j'avais besoin.
    InformationsquelleAutor Ashouri