检查空标签并根据文本框值填充

【问题标题】：Checking for empty labels and populate based on textbox values检查空标签并根据文本框值填充
【发布时间】：2012-09-11 21:49:16
【问题描述】：

好的，我在表单上定义了 20 个标签，当表单加载时，这些标签的文本将被空白。标签被命名为“LabelValue1...LabelValue20”

在表单上，是一个文本框，用户将在其中输入数值。点击提交后，我需要用这个数值填充第一个可用标签。用户一次最多可以输入 20 个不同的值，我需要用他们第二次输入的值填充下一个标签，所以第四次。

有没有更简单的方法来编写代码，然后使用很长的 if else endif 语句？

【问题讨论】：

你能用一个列表框代替 20 个标签吗？
我可以...只要我可以获取每个列表框项的值。列表框是我考虑的第二个选项。
是的，您可以获取每个列表框项的值。查看 listbox 或 google 的帮助文件。

标签： vb.net visual-studio-2010

【解决方案1】：

虽然列表框更合适，但如果您需要这样做，您可以使用表单的 Controls 集合按名称访问标签：

Dim _currentLabel As Integer = 1

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    If _currentLabel <= 20 Then
        Dim lbl As Label = CType(Controls("LabelValue" & _currentLabel.ToString()), Label)
        lbl.Text = TextBox1.Text
        _currentLabel += 1
    End If
End Sub

要使用ListBox 控件，您只需执行以下操作：

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    If ListBox1.Items.Count < 20 Then
        ListBox1.Items.Add(TextBox1.Text)
    End If
End Sub

然后要阅读特定项目，您可以执行以下操作：

Dim secondItem As String = CStr(ListBox1.Items(1))

【讨论】：

我现在明白为什么列表框比一大堆标签更合适...感谢您的建议。