[Visual Basic 6] - Passaggio di variabile

[lucausa75]

Salve ragazzi,
ho creato questa procedura con Visual Basic 6:

Sub MiaProcedura (Valore as Integer)
Dim Numeri (1 to Valore)
Dim i as Integer
For i=1 to Valore
i=Numeri (i)
Next i
End Sub

Quando però la richiamo nell'evento click di un command button mi da errore quando la richiamo nell'evento click di un Command Button

Sub Command_Click()
MiaProcedura 10
End Sub

e più precisamente nel passaggio della Variabile Valore ( Dim Numeri (1 to Valore))

Mi aiutate a risolvere?

Grazie

[SerMagnus]

ma i parametri non devono stare tra tonde? :mbe:

guarda nn conosco vb6, ma prova a fare questa prova

[lucausa75]

ma i parametri non devono stare tra tonde? :mbe:

guarda nn conosco vb6, ma prova a fare questa prova

...non funziona! :confused:

[agente mm8]

Non conosco vb6, però ho giocherellato con vb 2008, prova a fare così:
Sub MiaProcedura(Valore As Integer)
Dim i As Integer
For i = 1 To Valore
...
End Sub

Cmq nn ho capito bene cosa vorresti fare con questa procedura.
Cioè la riga
i = Numeri(i)
cosa fa?
Comunque prova il mio consiglio e poi fammi sapere:D :D :D
ciauz!

ma i parametri non devono stare tra tonde?

[XRaziel]

l' errore te lo da qui?

Dim Numeri (1 to Valore)


se non ricordo male vb 6 non ammette array variabili come java, per modificare la dimensione dell' array devi usare il comando redim indicando la nuova dimensione del vettore.
La sintassi se non sbaglio è:
dim Numeri (1 to 100) as ...
Redim Numeri (1 to Valore)

[lucausa75]

l' errore te lo da qui?


se non ricordo male vb 6 non ammette array variabili come java, per modificare la dimensione dell' array devi usare il comando redim indicando la nuova dimensione del vettore.
La sintassi se non sbaglio è:
dim Numeri (1 to 100) as ...
Redim Numeri (1 to Valore)


Ciao ragazzi,
in allegato trovate l'eseguibile di un esempio.

Provate a lanciarlo e vedete l'errore :) che ancora persiste

Grazie 1000!!!

[XRaziel]

Sub MiaProcedura(Valore As Integer)
'Ridimensiono il vettore
ReDim Numeri(1 To Valore)
Dim i As Integer
'Questo for per inserire dei valori nella variabile Numeri(i)
For i = 1 To Valore
'in questo caso con dei numeri da 1 a 10 (il valore impostato al comand button)
Numeri(i) = i
Next i
'stampo il vettore
For i = 1 To Valore
i = Numeri(i)
List1.AddItem Numeri(i)
Next i
End Sub

Sub Command1_Click()
'Chiamata alla procedura
MiaProcedura (10)
End Sub

[lucausa75]

Sub MiaProcedura(Valore As Integer)
'Ridimensiono il vettore
ReDim Numeri(1 To Valore)
Dim i As Integer
'Questo for per inserire dei valori nella variabile Numeri(i)
For i = 1 To Valore
Numeri(i) = i
Next i
'stampo il vettore
For i = 1 To Valore
i = Numeri(i)
List1.AddItem Numeri(i)
Next i
End Sub

Sub Command1_Click()
'Chiamata alla procedura
MiaProcedura (10)
End Sub


Grazie 1000!

Sbagliavo anzichè mettere REDIM mettevo solo DIM

:mano:

[XRaziel]

Di niente :mano: