使用变量选择标签

Question

听到我的代码。我使用这段代码92次。我想要做的是创建一个sub并调用它发送一个变量来控制标签。因此，它不是label92.text，而是标签（labelnum）.text。

Case 92
                If Label92.Text = "" Then Label92.Text = DataHold(92, 7)
                If Int(Label92.Text) = Int(DataHold(92, 7)) Then
                    Label92.ForeColor = Color.Black
                    Label92.Text = DataHold(92, 7)
                End If
                If Int(Label92.Text) < Int(DataHold(92, 7)) Then
                    Label92.ForeColor = Color.Red
                    Label92.Text = DataHold(92, 7)
                End If
                If Int(Label92.Text) > Int(DataHold(92, 7)) Then
                    Label92.ForeColor = Color.LightBlue
                    Label92.Text = DataHold(92, 7)
                End If

Answer 1

您可以使用Controls.Find方法：

Dim labelNum As Integer = 92
Dim lbl As Label = Controls.Find("Label" & labelNum, True).FirstOrDefault
If lbl IsNot Nothing Then
  'Do something with lbl, which is Label92
End If

旁注：这是很多标签。请考虑使用其他控件，例如DataGridView或ListView控件等，或者只绘制信息。或者更重要的是，使用您的程序的用户可能无法通过在屏幕上查看大量信息来获得出色的用户体验。尽量减少它，只显示相关信息。