我想“实时”制作绘图程序。我的表单中有两个文本框和一个按钮。我想在文本框中输入两个值，按下按钮并绘制线条。
我尝试从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
您应该调用的Refresh方法，而Form不要自己调用事件处理程序。该方法最终将调用Paint事件及其处理程序。
Private Sub b_Click(sender As Object, e As EventArgs) Handles b.Click
a = t1.Text
c = t2.Text
Refresh()
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句