[VB6] Problema doppio ciclo For per ordine alfabetico

[Adrix]

ciao, ho bisogno di ordinare in ordine alfabetico una listbox per cui ho utilizzato due cicli col For

Dim temp As String
Dim ORDINA, ORDINA1 As Single

For ORDINA = 1 To (listaurl.ListCount - 1)
For ORDINA1 = ORDINA + 1 To listaurl.ListCount

If listaurl.List(ORDINA) > listaurl.List(ORDINA1) Then
temp = listaurl.List(ORDINA)
listaurl.List(ORDINA) = listaurl.List(ORDINA1)
listaurl.List(ORDINA1) = temp

Next ORDINA1
Next ORDINA

mi rileva il Next Ordina1 come "Next senza for"
soluzioni?

[LMondi]

If listaurl.List(ORDINA) > listaurl.List(ORDINA1) Then

Manca End If

[Adrix]

oddio che idiota che sono grazieee!! sarà che mi sn svegliato da 5 minuti

[Adrix]

non ci sarebbe qualche altra maniera per ordinare alfabeticamente la list? questo metodo mi sembra un pò primitivo e tralaltro mi rallenta un pò l'applicazione

[Jupy64]

ciao, ma la proprietà sort della listBox non ti va bene?

[LMondi]

Guarda che il controllo ha la Proprietà Sorted
Restituisce un valore che indica se gli elementi di un controllo vengono ordinati alfabeticamente in modo automatico.
Sintassi
oggetto.Sorted

[Adrix]

Guarda che il controllo ha la Proprietà Sorted
Restituisce un valore che indica se gli elementi di un controllo vengono ordinati alfabeticamente in modo automatico.
Sintassi
oggetto.Sorted

ma a me non serve sapere se la list è ordinata o no, mi serve qualcosa che la ordini

[Jupy64]

ma guarda che se imposti Sorted=True, in automatico avrai la lista ordinata...

[LMondi]

Adrix, non capisco ...
se usi la predetta proprietà avrai gli addendi ordinati, non è questo che cerchi?

[MdE2005]

La proprietà "Sorted" NON è una proprietà di sola lettura ed ha due valori possibili, True e False: se è true allora viene ordinata la lista, altrimenti no..Quindi per far sì che la lista NON sia ordinata basta mettere questo valore = false.

Ciao