realbasic-nug.fr
[Top] [All Lists]

Re: tri de lisbox

To: REALbasic NUG French <realbasic-nug dot fr at lists dot realsoftware dot com>
Subject: Re: tri de lisbox
From: Robin de Kat <sxenvironnement at mac dot com>
Date: Tue, 8 Apr 2008 09:50:48 +0200
Delivered-to: listarchive at realsoftware dot com
Delivered-to: realbasic-nug dot fr at lists dot realsoftware dot com
References: <B7567AA2-AF69-4859-9F93-0940C6CDA04E at mac dot com> <BAF1269D-E4BA-4DC4-BCAC-1BFEF663A500 at mac dot com> <716945E1-4019-47C0-9F38-A3AC4FE87235 at mac dot com> <BC5E83EF-98E7-4211-96D0-D0E33619BEA6 at mac dot com> <23DDEE1C-BC91-4164-A647-C4DFF9FB1078 at mac dot com> <2A3EC382-E600-47E7-8882-FA817AC0F74E at mac dot com> <2B4C2A85-0F8B-430F-890E-9D2B7C37FFE8 at mac dot com> <9CE39876-7215-4EEF-ABD7-B4E4D624737D at mac dot com> <5046F694-A41B-4FC8-9C4B-B73DAD43D343 at mac dot com>

Le 7 avr. 08 à 22:37, Arnaud Nicolet a écrit :

Le 7 avr. 08 à 16:26 (soir), Robin de Kat a écrit:

Merci beaucoup, c'est beaucoup plus clair et j'ai enfin parfaitement compris le fonctionnement d'un "Timer". Cela dit, dans mon cas précis du Drag&Drop, cela ne change rien, le résultat est identique, seuls les éléments "dropés" sont triés


Chez moi, ça marche. Je n'ai même pas eu besoin d'un "Timer". J'ai ce code:

Sub DropObject(<paramètres>)
 dim i As Integer

 do
   ListBox1.AddRow Obj.Text
   if not obj.NextItem then Exit
 Loop
 ListBox1.Sort
End Sub

Sub Open
 ListBox1.AcceptTextDrop
 ListBox1.SortedColumn=0
End Sub

Avez-vous quelque chose de spécial?

J'ai exactement le même code. ça fonctionne parfaitement quand la liste est vide au départ. Cependant il y a déjà des éléments dans ma listbox et les éléments "dropés" ne sont pas insérés dans cette liste, ils sont ajoutés en début de liste. Le tri n'est effectué que parmi ces nouveaux éléments.



<Prev in Thread] Current Thread [Next in Thread>