array

[vonkranz]

Pero' e' meglio se fai un ridimensionamento dinamico preservando i dati contenuti nell'array altrimenti, ogni volta che ridimensioni l'array ti perdi i dati in essa contenuti.

modifica il codice postato da xegallo in questo modo:

dim A() as String 
dim conta as long 

Private Sub txtFrmCerca_KeyPress(KeyAscii As Integer) 
redim preserve A(conta) 
A(conta) = Chr$(KeyAscii) 
conta = conta + 1 '<-  spostandolo qui utilizzi anche l'elemento con indice 0 
end sub

per visualizzare il contenuto dell'array nel textbox puoi fare cosi'

dim i as long
text1.text=""
for i=0 to ubound(a)
   text1.text=text1.text & A(i) & " "
next i

Ciao.