在 vb.net 中绘制一个矩形

Question

我想在窗体上绘制一个简单的二维矩形。

因为我从来没有在 vb.net 做过任何图形化的事情，所以我在网上搜索并找到了许多实例，这些实例提供了与此类似的解决方案。

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

然而，我不明白这是如何工作的..这是什么e As PaintEventArgs？此子需要什么输入？如何绘制一个简单的矩形？

对于初学者来说，我想要一些简单的东西，这样我就可以对其进行实验并最终学习更高级的东西。

Answer 1

好的这段

代码之前工作正常，可以测试一下学习

    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