Setting the values of text of controls (labels) in an array in Visual Basic

Question

I am trying to run a loop through an array of labels (called 'rank'), and make each label's text set to the value of a list of highscore's values.

Dim highScores As New List(Of Integer)
Dim rank() As Control = {Label1, Label2, Label3, Label4, Label5}

Private Sub High_Scores_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    highScores.Add(points)
    highScores.Sort()
    For index As Integer = 0 To highScores.Count()
        rank(index).Text = highScores(index)
    Next index
End Sub

When I run this, I get:

Object reference not set to an instance of an object

at line "rank(index).Text = highScores(index)". I have tweaked a bit off the stuff and I think I'm using the control array incorrectly, but I can't find a way to use it correctly.

I get 'Text is not a member of 'System.Array' error for rank(index).Text). If I make Dim rank() As Control to Dim rank() As String, and then change Label1 etc. to Label1.Text (and of course change rank(index).Text to rank(index)), I get "Object reference not set to an instance of an object" as well. — iraex
– iraex, Commented Jul 30, 2014 at 11:53

Bjørn-Roger Kringsjå · Accepted Answer · 2014-07-30 11:51:12Z

1

I bet the error occurs at the last iteration. You need to subtract 1 of Count.

For index As Integer = 0 To (highScores.Count() - 1)

Also, you need to be sure that the length of rank is greater than or equal to the length of highScores. If not, bad things will happen.

If (index < rank.Length) Then

Example

Private Sub High_Scores_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    If (rank Is Nothing) Then Throw New Exception("Rank is null.")
    If (highScores Is Nothing) Then Throw New Exception("highScores is null.")
    highScores.Add(points)
    highScores.Sort()
    For index As Integer = 0 To (highScores.Count() - 1)
        If (index >= rank.Length) Then Throw New Exception("Rank to short.")
        If (rank(index) Is Nothing) Then Throw New Exception(String.Format("Rank element #{0} is null.", index))
        rank(index).Text = highScores(index)
    Next
    'If you hit any of the "null" exception see the following SO post:
    'http://stackoverflow.com/questions/4660142/what-is-a-nullreferenceexception-and-how-do-i-fix-it
End Sub

edited Jul 30, 2014 at 11:51

answered Jul 30, 2014 at 11:23

Bjørn-Roger Kringsjå

10.1k6 gold badges43 silver badges66 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

iraex Over a year ago

Unfortunately, the debugger (I use Visual Studio. I know the question got put into vb.net because I put in a tag called vb, though I'm not sure that matters) shows that it stops at the line after "For index..." (at index=0), so it doesn't even get to the last iteration. I did try your solution and the same error occurs. Length of rank is greater than highScores, which is 1, but it may exceed rank later on. So far it isn't the problem, but I'm not sure why highScores having a higher count would be a problem?

iraex Over a year ago

Instead of rank() As Label = {...}, I did rank(4) As Label and then set the values for each index below. I feel that this is less elegant, but it must've been the way that I did it earlier that returned me with null values.

Andrew Morton · Accepted Answer · 2014-07-30 11:58:33Z

0

As you want to show a maximum of rank.Length labels, you just need to find the smaller of rank.Length and highScores.Count():

Dim highScores As New List(Of Integer)
Dim rank() As Label = {Label1, Label2, Label3, Label4, Label5}

Private Sub High_Scores_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    highScores.Add(points)
    highScores.Sort()
    For index As Integer = 0 To Math.Min(highScores.Count(), rank.Length) - 1
        rank(index).Text = highScores(index).ToString()
    Next index
End Sub

You might as well declare rank() as being of type Label, and you appear to have forgotten to use .ToString() when showing the values.

answered Jul 30, 2014 at 11:58

Andrew Morton

25.3k9 gold badges66 silver badges96 bronze badges

Collectives™ on Stack Overflow

Setting the values of text of controls (labels) in an array in Visual Basic

2 Answers 2

2 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related