1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim Xtbs() As TextBox = {TextBox11, TextBox1, TextBox2, TextBox3, TextBox4, TextBox4, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox12}
Dim Ytbs() As TextBox = {TextBox14, TextBox24, TextBox23, TextBox22, TextBox21, TextBox20, TextBox19, TextBox18, TextBox17, TextBox16, TextBox15, TextBox12}
For i As Integer = 0 To Xtbs.Length - 1
Dim x As Double = CDbl(Xtbs(i).Text)
Dim y As Double = CDbl(Ytbs(i).Text)
Dim pt = New DataPoint(x, y)
Chart1.Series(0).Points.Add(pt)
Next
End Sub
End Class |
Partager