2

我想“实时”制作一个绘图程序。我的表单中有两个文本框和一个按钮。我想在文本框中输入两个值,按下按钮并画线。

我试图从b_Clickb是按钮)调用,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

3

您应该调用 的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
于 2014-12-11T12:34:06.633 回答