Question

所以我为标签创建了5个不同的数组，这些是

Dim ovsoLabels As Label（），customerLabels（）As Label，itemNameLabels（）As Label，quantityLabels（）As Label，topRightItemNameLbls（5）As Label Dim indexLabels（）As Label

之后我有一个函数将这些变量分配给实际标签。

'assign labels to array
    ovsoLabels(0) = oVSO10
    ovsoLabels(1) = oVSO11
    ovsoLabels(2) = oVSO12
    ovsoLabels(3) = oVSO13
    ovsoLabels(4) = oVSO14
    customerLabels(0) = custLbl20
    customerLabels(1) = custLbl21
    customerLabels(2) = custLbl22
    customerLabels(3) = custLbl23
    customerLabels(4) = custLbl24
    itemNameLabels(0) = nameLbl1
    itemNameLabels(1) = nameLbl2
    itemNameLabels(2) = nameLbl3
    itemNameLabels(3) = nameLbl4
    itemNameLabels(4) = nameLbl5
    quantityLabels(0) = quantLbl1
    quantityLabels(1) = quantLbl2
    quantityLabels(2) = quantLbl3
    quantityLabels(3) = quantLbl4
    quantityLabels(4) = quantLbl6
    indexLabels(0) = indexLbl10
    indexLabels(1) = indexLbl11
    indexLabels(2) = indexLbl12
    indexLabels(3) = indexLbl13
    indexLabels(4) = indexLbl14

之后我在我的计时器中调用该功能

这就是我要做的事情（不是引用阵列中有数字0 - 无穷大）

 For i = 0 To 4
                If quantityArray(i) = Nothing Then
                ElseIf quantityArray(i) = 0 Then
                    quantityLabels(i).ForeColor = Drawing.Color.Green
                    customerLabels(i).ForeColor = Drawing.Color.Green
                    itemNameLabels(i).ForeColor = Drawing.Color.Green
                    ovsoLabels(i).ForeColor = Drawing.Color.Green
                    indexLabels(i).ForeColor = Drawing.Color.Green
                Else
                    quantityLabels(i).ForeColor = Drawing.Color.Black
                    customerLabels(i).ForeColor = Drawing.Color.Black
                    itemNameLabels(i).ForeColor = Drawing.Color.Black
                    ovsoLabels(i).ForeColor = Drawing.Color.Black
                    indexLabels(i).ForeColor = Drawing.Color.Black
                End If
            Next

这是我的第一篇文章，请告诉我是否可以更好地格式化。我得到的错误是它告诉我没有对象，我需要使用关键字new。不确定这意味着什么，谢谢！

将标签放在vb.net数组中

0 个答案: