Question

Ok, I have 20 labels defined on my form and the text for these labels are being blanked out when the form loads. Labels are named “LabelValue1…LabelValue20”

On the form, is a textbox where a user will enter a numeric value. Upon hitting submit, I need to populate the first available label with this numeric value. The user may enter up to 20 different values at one time and I need to populate the next label with what ever value they entered a second time and so fourth.

Is there an easier way to code this then using a huge long if else endif statement?

Answer 1

While a list box would be more appropriate, if you need to do so, you can access the labels by name using the form’s Controls collection:

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

To use a ListBox control, instead, you would simply need to do something like this:

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

And then to read a particular item, you would do something like this:

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