vb.net - vb.net でこのサブルーチンに何を渡す必要がありますか?

Question

Public Sub DrawRectangleInt(e As PaintEventArgs)

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

        ' Create location and size of rectangle. 
        Dim x As Integer = 0
        Dim y As Integer = 0
        Dim width As Integer = 200
        Dim height As Integer = 200

        ' Draw rectangle to screen.
        e.Graphics.DrawRectangle(blackPen, x, y, width, height)

    End Sub

Sub を呼び出すとき:

DrawRectangleInt()

「e」に何かを渡す必要があるというエラーが表示されますが、何ですか?

ありがとう。

Answer 1

ペイント イベントからそのサブを呼び出してe変数をサブに渡すか、サブ内に Graphics オブジェクトを作成します。Using/End Using ブロックは、オブジェクトを正しく破棄します。

Public Sub DrawRectangleInt()

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

    ' Create location and size of rectangle. 
    Dim x As Integer = 0
    Dim y As Integer = 0
    Dim width As Integer = 200
    Dim height As Integer = 200

    ' Draw rectangle to screen.
    Using g As Graphics = Me.CreateGraphics
      g.DrawRectangle(blackPen, x, y, width, height)
    End Using
  End Using
End Sub