[VB6] Ordinare in una ListBox.

[luzhnyi]

Salve,

Ho bisogno di questo aiuto che riguarda l'ordinamento di parole in ordine alfabetico in una listbox con il timer esempio: (Dandomi il codice già fatto)

Invece di: Dev'essere:
Mario Andrea
Lucio Antonio
Andrea Marco
Marco Mario
Antonio Lucio

Ok, grazie.

Lužnyi.

[XVincentX]

E' una soluzione un po polacchesca, ma puoi provarci.
per prima cosa crei un db access con 1 sola tabella, la chiami nomi.
ci inserisci i nomi dentro e quindi dopo aver stabilito le dovute connessioni al database (ovviamente ado), fai cosi

dim query as string
dim cs as adodb.connection
dim rs as adodb.recordset
dim provider as string
set cs = new adodb.connection
set rs = new adodb.recordset
cs.open provider 'definisciti il provider prima
let query = "Select * from nomi order by nome"
rs.open query,cs,3,3
do until rs.eof
list1.additem rs.fields("nome").vale
rs.movenext
loop

In questo modo sfrutti l'ordinamento automatico del database access e popoli la tua lista.
Ciau

[Brainjar]

Cosa intendi per una ListBox con il Timer ?
Non puoi utilizzare la proprietà Sorted = True della ListBox ?

Ciao,