如何在图表中使点等于文本框的值？

Question

在我的项目中，我创建了一个图表，我希望它与我的文本框中的点数相同，我该怎么做？这是我的代码

 Public Class Form1
      Dim a As Object
      Dim b As Object

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    Chart1.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Top
    Chart1.ChartAreas(0).AxisX.Maximum = 20
    Chart1.ChartAreas(0).AxisY.Maximum = 30
    Chart1.ChartAreas(0).AxisX.Minimum = -20
    Chart1.ChartAreas(0).AxisY.Minimum = -30
    Chart1.ChartAreas(0).AxisY.Interval = 5
    Chart1.ChartAreas(0).AxisX.Interval = 5
    Chart1.ChartAreas(0).AxisX.Crossing = 0
    Chart1.ChartAreas(0).AxisY.Crossing = 0
    Chart1.ChartAreas(0).AxisX.LineWidth = 2
    Chart1.ChartAreas(0).AxisY.LineWidth = 2
    Chart1.ChartAreas(0).AxisY.MajorGrid.LineColor = Color.Black

    a = New DataPoint(0, 0)
    a.Label = "#VALX : #VALY"
    a.MarkerStyle = MarkerStyle.Circle
    a.MarkerSize = 5
    Chart1.Series(0).Points.Add(a)
End Sub

我想数据点就像

 a =(val(textbox1.text),val(textbox2.text))

Answer 1

在下面的示例中，我刚创建了一个textboxes的集合，并通过它们循环添加文本框中的x和y坐标

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

    Dim Xtbs() As TextBox = {TextBox1, TextBox3, TextBox5}
    Dim Ytbs() As TextBox = {TextBox2, TextBox4, TextBox6}

    For i As Integer = 0 To Xtbs.Length - 1
        Dim x As Double = Xtbs(i).Text
        Dim y As Double = Ytbs(i).Text
        Dim pt = New DataPoint(x, y)
        Chart1.Series(0).Points.Add(pt)
    Next

End Sub