「リアルタイム」で描画プログラムを作りたい。フォームに 2 つのテキスト ボックスと 1 つのボタンがあります。テキスト ボックスに 2 つの値を入力し、ボタンを押して線を描画します。
b_Click
(b
はボタン)から呼び出そうとしましたが、とパラメータForm_paint
をどうすればよいかわかりません。sender
e
これを行う方法はありますか?
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