Change Array variable from other class then it's 'creator' [RESOLVED]

[Bloged]

Hi everyone,

Another question by me !

Next problem I encounter is this one:
I create an array of an class, called Pion, like this:

Friend pioPion(30) As Pion

And give it it's values like this:

Private Sub cmdTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTest.Click
        Dim iLoop As Integer
        Dim iX As Integer = 0
        Dim iY As Integer = 0
        
        For iLoop = 0 To 29
            Dim testPion As New Pion(iLoop, 0, "Blue")
            pioPion(iLoop) = testPion
            pioPion(iLoop).SetCoordinates(iX, iY)
            If iX = 9 Then
                iY += 1
                iX = 0
            Else
                iX += 1
            End If
        Next
End Sub

But i want this not in my frmMain Code but in a other class.... Is this possible? Hope you get what I mean... if not just ask for clarification!

Grtz,

Bloged

[pax]

Hi.

In your other class you could have a function like

Public Function LoopPion() As Pion()
        Dim iLoop As Integer
        Dim iX As Integer = 0
        Dim iY As Integer = 0
        Dim pioPion(30) as Pion
 
        For iLoop = 0 To 29
            Dim testPion As New Pion(iLoop, 0, "Blue")
            pioPion(iLoop) = testPion
            pioPion(iLoop).SetCoordinates(iX, iY)
            If iX = 9 Then
                iY += 1
                iX = 0
            Else
                iX += 1
            End If
        Next
 
        Return pioPion
End Function

[Bloged]

Thanks pax for your answer, but iIf I'm not mistaken this will create the array in my other class and not on the frmMain....

Or does this statement:

Return pioPion

Sends back the complete array?

Grtz,

Bloged

[pax]

Hi.

Yes, it will return the entire array.

Another way could be to pass the array as a ByRef variable instead.

Public Sub LoopPion(ByRef pioArray() as Pion)
'
'
'
End Sub

But all-in-all, you'll end up with the same result.

[Bloged]

Thanks pax... this seems like what I've been looking for... Will test it when I can!

Grtz,

Bloged

Edit: Tested and works great! Thanks Again!