如何解决将现有标签放入列表并根据列表索引更改名称?
我有 22 个标签。一半有 DISCNumX
,另一半有 TOTNumX
,其中 X
分别是 1 到 10 的数字。我已将标签文本需要更新到的值存储在列表中。我还将标签的名称存储在列表中。我试图遍历每个列表,因为它们共享相同的索引,并将 label.text
更新为计数列表中的值。
Dim Counts As New List(Of Integer)
Dim DISCNumList As New List(Of Label)({NeedsCorrectionsDISCNum0,NotRecognizedDISCNum1,EPNErrorsDISCNum2,OptionHeadersDISCNum3,ProdPermsDISCNum4,ReadyToImportDISCNum5,WithMemosDISCNum6,RankWarningsDISCNum7,LifecycleWarningsDISCNum8})
Private Sub PopulateCounts()
Dim i As Integer = 0
InitializeComponent()
For Each cont As Control In TableLayoutPanel1.Controls
If cont.Name.Contains("DISCNum" & i.ToString) Then
DISCNumList(i).Text = Counts(i)
i += 1
End If
Next
End Sub
我最近尝试过上述方法,但我一直在尝试做一些像这样简单的事情:
Private Sub PopulateCounts()
InitializeComponent()
For i = 0 To 10
DISCNumList(i).Text = Counts(i)
Next
End Sub
我想重申,DISCNumList 中的标签名称已经存在于表单中,我正在尝试更新它们。非常感谢这里的任何/所有帮助,因为我已经能够让自己完成一堆这样的事情,但现在我被正确地卡住了。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。