Re: tri de lisbox

[Robin de Kat <sxenvironnement at mac dot com>]

Le 8 avr. 08 à 14:47, Robin de Kat a écrit :
> >
> En effet, merci pour cette précision, source de bugs mais en  
> l'occurrence cela ne résout pas mon problème de tri.
Bon, j'ai résolu mon problème de tri.
J'ai pondu un tri bulle à la place de ListBox.sort

le code:

sub DropObject()

  dim permut as boolean
  dim i as integer
  dim tmp as string

  Do
    If Obj.TextAvailable then
      Me.AddRow(Obj.Text)
    End if
  Loop until Not obj.NextItem

  //ListBox9.sort ne fonctionne pas

  Do
    permut = false
    for  i=1 to Listbox9.lastIndex - 1
      if ListBox9.cell(i,0) > ListBox9.cell(i+1,0) then
        tmp = ListBox9.cell(i,0)
        ListBox9.cell(i,0) = ListBox9.cell(i+1,0)
        ListBox9.cell(i+1,0) = tmp
        permut=true
      end if
    next
  loop until permut = false

end sub