[VB6] Da ListBox a vettore di numeri

[visualnic]

Buona serata a tutti i partecipanti al forum !!!

posto subito il codice per rendere l'idea:

Private Sub Command1_Click()

i = 0
constante = 4
Do While (i < UBound(VNumeri))
i = i + 1
List2.AddItem ((VNumeri(i) * VNumeri(i)) + constante)

Loop
End Sub

In questo modo ho il mio List2 corretto ...

se volessi inserire tutti gli elementi visualizzati da list2 in un nuovo vettore di numeri

per esempio vettore() che contiene gli stessi elementi di List2


è possibile ?

GRAZIE A TUTTI

[Meldon]

se ho capito bene potresti fare in questo modo:

Dim i As Integer
Dim Vettore() As Double

Redim Vettore(list2.recordcount) As double

For i = 0 to list2.listcount - 1
  
Vettore(i) = Val(list2.list(i))

Next

[visualnic]

mi da errore sul

recordcount

mi dice:

IMPOSSIBILE TROVARE IL METODO O IL MEMBRO DEI DATI ?!?!

NON CAPISCO

CMQ GRAZIE CIAO

[visualnic]

errore risolto ho sistituito

recordcount

con

listcount e funziona perfettamente

GRAZIE MILLLLLLE

ciao ciao

[visualnic]

Non funziona ...

ho un problema:

nella list2 ho dei numeri con la virgola mentre nel mio vettore sono senza virgola !!! sono arrotondati per difetto ?????


come si spiega ciò ?


GRAZIE CIAO A TUTTI

[oregon]

Usa CDbl al posto della Val

[visualnic]

perfieeeeettto !!!!


grazie