Как я могу сделать точку на графике равной значению текстового поля?

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