Label Arrays

[Kpop4life]

Hi, I'm trying to create a Class "Count" which will produce as many labels as stated in an argument to a given function.

Here I have Set_Number and Get_Number, with Set declaring the amounts of labels to be stated, and Get displaying the labels.

For Get, I have a for loop in the main form that will provide values for Ascend, but later I get the error message:


An unhandled exception of type 'System.NullReferenceException' occurred in WindowsApplication6.exe

Additional information: Object reference not set to an instance of an object.


It gets stuck on a line that reads:
Labelx(Ascend).Size = New System.Drawing.Size(50, 50)



Well, here is my code for Class Count. I hope you don't spend too much time trying to figure it out.

Option Explicit On

Public Class Count
Dim Labelx() As Label
Dim IsBeat() As Boolean

Public Sub Set_Number(ByVal Order As Integer)
ReDim Labelx(Order)
End Sub

Public Function Get_Number(ByVal Ascend As Integer) As Label
Labelx(Ascend).Size = New System.Drawing.Size(50, 50)
Labelx(Ascend).Location = New System.Drawing.Point(Ascend * 20, 20)
Labelx(Ascend).Text = CStr(Ascend)
Labelx(Ascend).Visible = True
Return (Labelx(Ascend))
End Function

End Class



And I know that this not a practical use of printing text, but I have a reason behind it that I am going all this way.

Best of wishes,
Ben.

[bushmobile]

Wrong forum. You want our .Net forum.

And what was wrong with your previous thread?

[Kpop4life]

I thought this post was quite different from my previous post. Well, for me it was.

Is there a huge difference as to where I put this post? Just a thought. If there is, please explain. But yeah, I'll revive my other post in the .NET area

[bushmobile]

well the fact that .Net and classic VB are completely different programming languages kinda means you should post .Net questions in the .Net forum.

[MartinLiss]

Moved.

[Andy_P]

If you pass in a value of '10' (for example) through the Order parameter in your Set_Number sub:

Public Sub Set_Number(ByVal Order As Integer)
ReDim Labelx(Order)
End Sub

This will create an array of 11 labels, (0 through 10).

Could this be a source of trouble maybe? Just a thought.

[ComputerJy]

Option Explicit On 
 
Public Class Count
    Dim Labelx() As Label
    Dim IsBeat() As Boolean
 
    Public Sub Set_Number(ByVal Order As Integer)
        ReDim Labelx(Order)
    End Sub
 
    Public Function Get_Number(ByVal Ascend As Integer) As Label
[B]        If Labelx(Ascend)=Nothing Then Labelx(Ascend)=New Label[/B]
        Labelx(Ascend).Size = New System.Drawing.Size(50, 50)
        Labelx(Ascend).Location = New System.Drawing.Point(Ascend * 20, 20)
        Labelx(Ascend).Text = CStr(Ascend)
        Labelx(Ascend).Visible = True
        Return (Labelx(Ascend))
    End Function
 
End Class

[Kpop4life]

Thank you, ComputerJy.

[Kpop4life]

Hi, I've encountered another problem.
From the main form, Ascend is given different values with a for loop, but when I run the program, the program prints '0'.

Is it possible to Return different values with one function? Please help.

Public Function Get_Number(ByVal Ascend As Integer) As Label
Labelx(Ascend).Location = New System.Drawing.Point(Ascend * 20, 20)
Labelx(Ascend).Text = CStr(Ascend)
Labelx(Ascend).Visible = True
Return (Labelx(Ascend))
End Function


Thanks a bunch,
Ben