ordernar listbox

[rafa-martin 2]

pessoal, como eu posso estar ordenando um conteúdo de um listbox sem usar a propriedade sorted?

[Luizgrs 0]

hm...se umsar essa propriedade, creio eu que tria que ser na raça: - Você jogaria todas os itens pra um vetor/matriz - Ordenaria esse vetor - Limparia a Lisbox - Colocava os itens do vetor já organizado de volta na listbox

[rafa-martin 2]

como eu faria isso?nunca trabalhei com vetor no vb.

[Luizgrs 0]

Seria assim:

dim vetor(listbox1.listcount-1) as stringfor x=0 to listbox1.listcount-1 'carrega vetor com os índices da list   vetor(x) = listbox1.list(x)next xfor x=lbound(vetor) to ubound(vetor) - 1 'ordena vetor    for y = x+1 to ubound(vetor)          if vetor(x) > vetor(y) then                 vaux = vetor(y)                 vetor(y) = vetor(x)                 vetor(x) = vaux          end if    next ynext xlistbox1.clear 'limpa listboxfor x=lbound(vetor) to ubound(vetor) 'adiciona na listbox   listbox1.additem vetor(x)next x