[VB6] Passaggio a funzione di una matrice di elementi di tipo record

[newbie]

Originariamente inviato da katrina
Si consideri il seguente frammento di codice:

///////////////////////////////////////////////////////////

Type RecTabSimb
label As String
pagina0 As Boolean
tipo As String
valore As String
End Type


Dim TabSimb(1 to 101) As RecTabSimb

////////////////////////////////////////////////////////////



e si supponga di avere la funzione così definita:
//////////////////////////////////////////////////////////

Public Function RicercaBinaria(x() As String, target As String) As Integer

//////////////////////////////////////////////////////////
che cerca la stringa target nel vettore x() e ne ritorna - se la ricerca ha esito positivo -
la posizione.


Esiste un modo per passare alla funzione di RicercaBinaria il campo label
di tutti gli elementi della matrice TabSimb , come se si trattasse di
un semplice vettore di stringhe?

Non credo che esista un metodo diretto. Comunque si potrebbero riversare tutte le label in un array di stringhe:

Dim Vettore(1 To 101) As String
For i = 1 To 101
   Vettore(i) = TabSimb(i).label
Next i

per poi passare l'array Vettore alla funzione.