Assegnamento fallito..help..

di
marcoamd
il
2 risposte
M
marcoamd
Pochi posts
Iscritto da
apr, 2007
Messaggi:
24

Assegnamento fallito..help..

Salve a tutti..
In una applicazione che sto facendo dovrei prendere il numero presente in una textbox e immagazzinarlo in un vettore.. coi vettori in visual basic non ho esperienza quindi vi scrivo cosa ho provato a fare.. ovviamente mi da errore:

Dim linea() As Long
..
linea(i) = txtDato.Text <= qua mi segnala l'errore
..


Precisamente l'errore mi dice: Subscript out of range..

Aiutatemi please..

2 Risposte

  • Smanettone
    Smanettone
    Utente Attivo
    Iscritto da
    nov, 2004
    Messaggi:
    187

    Re: Assegnamento fallito..help..

    Dim linea() As Long
    ..
    linea(i) = txtDato.Text <= qua mi segnala l'errore
    L'errore ce l'hai perchè in questo modo hai dichiarato un vettore vuoto, devi indicare il numero di entry dell'array all'atto della dichiarazione, per esempio:
    Dim linea(30) As Long
    così si crea un array di 30 Long
  • M
    marcoamd
    Pochi posts
    Iscritto da
    apr, 2007
    Messaggi:
    24

    Re: Assegnamento fallito..help..

    Grazie mille..
    Volevo chiedere un altra cosa.. ho fatto una funzione che scrive dei numeri che ho in quel vettore in un file; nn mi da errori, sembra che abbia funzionato ma il file è vuoto.. è come se non considerasse l'istruzione di scrittura..
    Allego il codice:

    Open (App.Path & Form1.txtNome2) For Output As 1
    Do
    Print #1, linea(i)
    i = i + 1
    Loop Until i = lblConta.Caption
    Close #1

    quale potrebbe essere l'errore??
Devi accedere o registrarti per scrivere nel forum
2 risposte