[02/03] Pass and return a 2 dimentional array

[T120]

Guys

I need to pass a two dimentional array to a funtion - work on it and return the array results. I can achieve it with a one dimentional array but I'm having problems with 2.

[Icyculyr]

Public D2Array(,) As String = {}
Public Function Take2D(ByVal strArray(,) As String) As String(,)
    'Work
    Return strArray
End Function
 
Private Sub My_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    D2Array = Take2D(D2Array)
End Sub

That should work, I use VB.net, so the syntax might be a bit different.

[T120]

Thanks for that.

The problem was :-

   Structure OSMTileName

        Public OSMColumn As Integer
        Public OSMTile As Integer
        Public Name As String    ' Tile Name
        Public OSMTileDetails As TileDetails

    End Structure

    Structure TileDetails

        Public X As Double       ' Lon
        Public Y As Double       ' Lat 
        Public Height As Double  ' Lon span 
        Public Width As Double   ' Lat span

    End Structure

    Private Sub LoadMapGrid(ByRef ThisArray As Array, ByVal Lat As Double, ByVal Lon As Double, ByVal z As Integer)

I changed it to:-

    Private Sub LoadMapGrid(ByRef ThisArray(,) As OSMTileName, ByVal Lat As Double, ByVal Lon As Double, ByVal z As Integer)