2

「リアルタイム」で描画プログラムを作りたい。フォームに 2 つのテキスト ボックスと 1 つのボタンがあります。テキスト ボックスに 2 つの値を入力し、ボタンを押して線を描画します。

b_Click(bはボタン)から呼び出そうとしましたが、とパラメータForm_paintをどうすればよいかわかりません。sendere

これを行う方法はありますか?

Public Class Form1
Dim a, c, d, e As Integer



Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
    Dim pen As New Pen(Color.FromArgb(255, 0, 0, 0))
    e.Graphics.DrawLine(pen, a, c, 300, 100)
End Sub

Private Sub b_Click(sender As Object, e As EventArgs) Handles b.Click
    a = t1.Text
    c = t2.Text
    Form1_Paint(0,??)

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    a = 0
    c = 0
  End Sub
  End Class
4

1 に答える 1