D'accordo a passare le array se devi anche passare dei dati e farli completare, ma allora dovevi mettere il ciclo come ho fatto io altrimenti non leggi tutti i dati di ritorno.
Comunque io quello che so sulle matrici dinamiche lo devo a te avendolo letto sulla nostra wiky e un po anche a Tobias.
volevo mettere il link alla lezione sulle array di array ma non le trovo più, le devi cambiare o sono io che non trovo più l'acqua in mare?
A te l'onore dei link se li trovi, comunque qui un idea l'abbiamo data.
Questo dovrebbe essere giusto:
Public Sub Form_Open()
Dim frutas, fecula As New String[]
Dim fr_fe As String[][]
Dim i As Integer, s As String
frutas.Add("Melone")
fecula.Add("Spaghetti")
fr_fe = Ad_Functionem(frutas, fecula)
For i = 0 To fr_fe[0].Max
s = fr_fe[0][i]
Print s
Next
Print "==============="
For i = 0 To fr_fe[1].Max
Print fr_fe[1][i]
'Print s
Next
End
Private Function Ad_Functionem(Fru As String[], Fec As String[]) As String[][]
Dim FruFec As New String[][]
' Dim Fru As New String[]
' Dim Fec As New String[]
With Fru
.Push("manzana")
.Push("pera")
.Push("higo")
End With
'
With Fec
.Push("arróz")
.Push("fideos")
End With
FruFec = [Fru, Fec]
Return FruFec
End
Sbaglio o la formattazione del codice è andata a pallino?