TextChanged 和 switch 语句判断改变的文本框并重建图表数据并更新（Index out of Range）VB.Net

Question

我正在努力使用 switch 语句和 textchanged 来更新表单面板中的图表，以便在更改文本时图表将重新绑定新值，从而在某种意义上创建动态图表。

我下面的代码不断返回 Case T8K.Name : Me.yvals(7) = Convert.ToInt32(T8K.Text) 上超出范围的索引。（见下文）

指出所有文本框和图表都位于面板内可能也很重要

任何人都可以帮助我可能做错了什么。

Public Class Dashboard
    Private xvals As New List(Of Integer)
    Private yvals As New List(Of Integer)

Private Sub Dashboard_Load(Sender As Dashboard, e As EventArgs) Handles MyBase.Load
        'loads data into the 'TCClientDBDataSet.Client_DB' table.
        Me.Client_DBTableAdapter.Fill(Me.TCClientDBDataSet.Client_DB)

        'Chart Setup
        'Dim A5K1 As Integer = T5K1.Text
        'Dim A5K2 As Integer = T5K2.Text
        'Dim A5K3 As Integer = T5K3.Text
        'Dim average = (A5K1 + A5K2 + A5K3) / 3

        Me.xvals = New List(Of Integer) From {1000, 2000, 3000, 4000, 5000, 6000, 7000, 8000, 9000, 10000}
        Me.yvals = New List(Of Integer) From {T1K.Text, T2K.Text, T3K.Text, T4K.Text, T5K1.Text, T6K.Text, T7K.Text, T8K.Text, T9K.Text, T10K.Text}

        Dim xmaxvals() As Integer = ({1000, 2000, 3000, 4000, 5000, 6000, 7000, 8000, 9000, 10000})
        Dim ymaxvals() As String = {tst_MaxOutput.Text, tst_MaxOutput.Text, tst_MaxOutput.Text, tst_MaxOutput.Text, tst_MaxOutput.Text, tst_MaxOutput.Text, tst_MaxOutput.Text, tst_MaxOutput.Text, tst_MaxOutput.Text, tst_MaxOutput.Text}

        Testpoint_Chart.Series.Clear()
        Testpoint_Chart.Series.Add("Test Data")
        Testpoint_Chart.Series.Add("Max Torque")

        With Testpoint_Chart.ChartAreas(0)
            .AxisX.Title = "Pressure (Psi)"
            .AxisX.Minimum = 1000
            .AxisX.Maximum = 10000
            .AxisX.Interval = 1000

            .AxisY.Interval = 1000
            .AxisY.Title = "Test Points (ft.lb)"

            'If T10K.Text > Math.Ceiling(tst_MaxOutput.Text / 1000) * 1000 Then
            .AxisY.Maximum = Math.Ceiling(T10K.Text / 1000) * 1000
            'Else
            '.AxisY.Maximum = Math.Ceiling(tst_MaxOutput.Text / 1000) * 1000
            'End If
        End With

        'Test Points
        With Testpoint_Chart.Series("Test Data")
            .IsVisibleInLegend = True
            .ChartType = SeriesChartType.Line
            .IsValueShownAsLabel = True
            .Points.DataBindXY(Me.xvals, Me.yvals)
        End With

        'Max Torque
        With Testpoint_Chart.Series("Max Torque")
            .IsVisibleInLegend = True
            .ChartType = SeriesChartType.Line
            .IsValueShownAsLabel = False
            .Color = Color.Red
            .Points.DataBindXY(xmaxvals, ymaxvals)
        End With
    End Sub

    Private Sub TextBox_TextChanged(Sender As TextBox, e As EventArgs) Handles T1K.TextChanged, T2K.TextChanged, T3K.TextChanged, T4K.TextChanged, T5K1.TextChanged, T6K.TextChanged, T7K.TextChanged, T8K.TextChanged, T9K.TextChanged, T10K.TextChanged
        Select Case Sender.Name
            Case T1K.Name : Me.yvals(0) = Convert.ToInt32(T1K.Text)
            Case T2K.Name : Me.yvals(1) = Convert.ToInt32(T2K.Text)
            Case T3K.Name : Me.yvals(2) = Convert.ToInt32(T3K.Text)
            Case T4K.Name : Me.yvals(3) = Convert.ToInt32(T4K.Text)
            Case T5K1.Name : Me.yvals(4) = Convert.ToInt32(T5K1.Text)
            Case T6K.Name : Me.yvals(5) = Convert.ToInt32(T6K.Text)
            Case T7K.Name : Me.yvals(6) = Convert.ToInt32(T7K.Text)
            Case T8K.Name : Me.yvals(7) = Convert.ToInt32(T8K.Text)
            Case T9K.Name : Me.yvals(8) = Convert.ToInt32(T9K.Text)
            Case T10K.Name : Me.yvals(9) = Convert.ToInt32(T10K.Text)
        End Select

        Me.Testpoint_Chart.Series("Test Data").Points.DataBindXY(Me.xvals, Me.yvals)
        Me.Testpoint_Chart.Update()
    End Sub

Answer 1

非常感谢@jmcilhinney 它原来是字符串的转换问题，这意味着我的索引是空的，所以在稍微修改代码并使用带有数组的 NumericUpDown 控件后，我设法让它工作。

TextChanged 和 switch 语句判断改变的文本框并重建图表数据并更新（Index out of Range）VB.Net

TextChanged and switch statement to judge the changed textbox and rebuild chart data and update (Index out of Range) VB.Net

vb.net

indexing

select

textchanged

indexoutofrangeexception