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: Arnaud Nicolet <anic297 at mac dot com>
Date: Mon, 7 Apr 2008 22:37:51 +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>
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?

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