Visual Basic 6 - Listbox : cancellare voci vuote

Forum - Visual Basic 6 - Listbox : cancellare voci vuote

dimxasinteger (Normal User)
Rookie

Messaggi: 43
Iscritto: 10/11/2007

Postato alle 0:25
Mercoledì, 27/02/2008

Ciao Raga!
studiando il Visual Basic 6 a scuola, sono incappato in un problema con le ListBox:
ho creato una listbox contenente:
VETTORE

ELEMENTOVETTORE1
ELEMENTOVETTORE2
ELEMENTOVETTORE3
ELEMENTOVETTORE4

con 2 spazi vuoti di default scritti subito dopo per permettere alla listbox di aggiungerci altra roba, ma come faccio a dirgli: (velo scrivo in pseudocodifica, perchè appunto non trovo il codice adatto, ho gia provato list1.list(index) e list1.text e il sendkeys down per "selezionare a tastiera" la lista!)

SE TESTOLISTBOX="" allora
LISTBOXREMOVEITEM=LISTAVUOTA
FINE SE

ciclando con un for l'index (i) della listbox.. ma mi da errore! Help!
(ho provato pure con il passaggio dell'indice byval e byref e niente)

dimxasinteger (Normal User)
Rookie

Messaggi: 43
Iscritto: 10/11/2007

Postato alle 0:36
Mercoledì, 27/02/2008

questo è il codice scusate:

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
For i = 0 To List1.ListCount
If List1.List(i) = "" Then
List1.RemoveItem (i) 'qui segnala l'errore
End If
Next i
End Sub
Private Sub Form_Load()
List1.AddItem ("")
For i = 1 To 10
List1.AddItem (i)
Next i
List1.AddItem ("")
List1.AddItem ("")
End Sub

Da L'Errore:
"Chiamata di routine o argomento non valido"
alla chiamata di RemoveItem della listbox. :k:

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 8:38
Mercoledì, 27/02/2008

Usa un ciclo che parta dall'ultimo e arrivi al primo.

Ricorda che l'ultimo e' in ListCount-1