Vb.net 使用变量选择标签

Vb.net 使用变量选择标签,vb.net,label,Vb.net,Label,这是我的密码。我使用这个代码92次。我想做的是创建一个子集,并将其称为发送变量以控制标签。所以它不是label92.text,而是类似于labellabelnum.text Case 92 If Label92.Text = "" Then Label92.Text = DataHold(92, 7) If Int(Label92.Text) = Int(DataHold(92, 7)) Then

这是我的密码。我使用这个代码92次。我想做的是创建一个子集,并将其称为发送变量以控制标签。所以它不是label92.text,而是类似于labellabelnum.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
您可以使用以下方法:

Dim labelNum为整数=92 Dim lbl As Label=Controls.FindLabel&labelNum,True.FirstOrDefault 如果lbl不是什么,那么 “用lbl做点什么,它是Label92 如果结束
旁注:标签太多了。请考虑使用其他控件,如DATAGIDVIEW或ListVIEW控件等,或者只需绘制信息即可。或者更重要的是,使用您的程序的用户可能无法通过查看屏幕上的大量信息获得良好的用户体验。尽量减少它,只显示相关信息。

尝试使用如下命令:对于Panel1中的每个c。Controlserror消息on Controls.FindLabel&labelNum,True.FirstOrDefault-FirstOrDefault不是成员或System.Array。@user3708128引用LINQ库:Imports System.LINQ。