在循环中动态生成标签

Question

我有点小问题。诚然，我不是最擅长 VB 的人，但我终其一生都无法弄清楚为什么这不起作用。

我有一个从中提取数据的 Access 数据库。我正在尝试动态创建标签，以便我可以根据需要漂亮地呈现数据。但是，在尝试执行它时，我在 arrayLabels(i).Text = "Howdy"

行收到异常 "System.NullReferenceException: Object reference not set to an instance of an object"

我几乎可以肯定这是我所缺少的一些非常简单的东西...但这是我的代码：

Private Sub TabControl2_Click(sender As Object, e As EventArgs) Handles TabControl2.Click, btnRefresh1.Click, btnRefresh2.Click, btnRefresh3.Click, ddSelectTech.SelectedIndexChanged, ddSelectTech2.SelectedIndexChanged

    If TabControl2.SelectedIndex = 0 Then

        'use this to count the number of rows
        Dim numRows As Integer

        'here be database stuff
        Dim da2 As OleDb.OleDbDataAdapter
        Dim ds2 As New DataSet
        Dim con2 As New OleDb.OleDbConnection
        con2.ConnectionString = dbProvider & dbSource
        sqlStatusOpen = "SELECT * FROM work_orders WHERE status = 'In Progress';"

        da2 = New OleDb.OleDbDataAdapter(sqlStatusOpen, con2)
        con2.Open()
        da2.Fill(ds2, "installations2")
        con2.Close()
        numRows = ds2.Tables("installations2").Rows.Count()

        'create an array label based on the number of rows in the table
        Dim arrayLabels(numRows) As Label

        'loop it to actually make the labels, position them, and such
        For i = 0 To (numRows - 1) 'just looping the number of rows
            Dim x As Integer = 100
            Dim y As Integer = 1 + (i * 10)
            Try
                TabPage3.Controls.Add(arrayLabels(i))
                arrayLabels(i).Text = "Howdy"
                arrayLabels(i).Location = New Point(x, y)
            Catch ex As Exception
                MessageBox.Show(ex.ToString, "Looky there, Franky, another error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try

        Next

    ElseIf TabControl2.SelectedIndex = 1 Then

    ElseIf TabControl2.SelectedIndex = 2 Then

    Else

    End If

End Sub

当然，如果您认为有更好的方法来处理这个问题，我愿意接受建议。

Answer 1

您的代码：

Dim arrayLabels(numRows) As Label

创建类型为 Label 的数组。但是这个数组中的每个条目都是 null.

尝试初始化循环中的每个标签：

Dim label As New Label
label.Text = "Howdy"
label.Location = New Point(x, y)
TabPage3.Controls.Add(label)

而且您不需要将标签保存在数组中。

在循环中动态生成标签

Dynamically generating labels in loop

vb.net

arrays

loops

labels

visual-studio