Manipulation de 2 ListBox

Version imprimable

16/02/2009, 11h37
sondo

Manipulation de 2 ListBox

Bonjour,

J'ai deux listbox et deux bouton. Dans le premier ListBox il y'a des valeurs. Je veux faire de tel sorte qu'en sélectionnant une valeur dans la Listbox1 on puisse déplacer cette valeur dans la la ListBox2 et vice versa.
Je veux utiliser ces deux ListBox pour attribution des rôle dans Oracle.
Merci pour votre aide.
16/02/2009, 12h48
Aka Guymelef
Bonjour, rien de très compliqué à cela. Déjà tu auras surement besoin de mettre le MultiSelect à True sur ListBox1 pour gérer la multi-sélection. Ensuite il faut jouer avec la propriété Selected du ListBox1.
Code:

1 2 3 For Cpt := 0 to ListBox1.Count - 1 do if ListBox1.Selected[Cpt] then ListBox2.AddItem( ListBox1.Items[Cpt], NIL );
16/02/2009, 12h59
Charly910

Bonjour,

je pense que ce que tu veux faire est dans une des demo de D7 :

Répertoire Actions projet action.dpr

l'échange de données entre 2 listbox par des boutons est dans l'onglet List

A+

Charly
16/02/2009, 13h23
sondo
Merci Aka Guymelef pout ton aide.
Le nil ne marche pas donc je l'ai supprimé et ça marche bien.
Pour Charly910 j'ai Delphi 5.
Je voulais dans le même temps supprimer l'élément que j'ai envoyé dans ListBox2.
J'ai fais ceci :
Code:

1 2 3 4 5 6 For i := 0 to ListBox1.Items.Count - 1 do begin if ListBox1.Selected[i] then ListBox2.Items.Add(ListBox1.Items[i]); ListBox1.Items.Delete(i); end;
Si j'exécute j'ai une exception : indice hors limite.

Dans ce cas tu ne dois pas utiliser une boucle for.

Code:

1
2
3
4
5
6
7
8
9
10
i := 0;
while (i < ListBox1.Items.Count) do
begin
   if ListBox1.Selected[i] then
   begin
      ListBox2.Items.Add(ListBox1.Items[i]);
      ListBox1.Items.Delete(i);
   end;
   Inc( i );
end;

16/02/2009, 16h03
sondo

Merci beaucoup :king:. Ça marche.
16/02/2009, 16h16
sondo

Il me vient une idée : Est-ce possible de faire de tel sorte que si un élément d'un listbox est sélectionné et déplacé, l'item suivant dans la même ListBox soit soit automatique automatiquement sélectionné. Cela pour éviter à chaque fois de cliquer sur item avant de le déplacer.
Merci à vous.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
i := 0;
DernierIndexSelectionne := 0;
while (i < ListBox1.Items.Count) do
begin
   if ListBox1.Selected[i] then
   begin
      ListBox2.Items.Add(ListBox1.Items[i]);
      ListBox1.Items.Delete(i);
      DernierIndexSelectionne := i;
   end;
   Inc( i );
end;
 
if (  ListBox1.Count <> 0 )
  if ( DernierIndexSelectionne < ListBox1.Count )
    ListBox1.Selected[DernierIndexSelectionne] := True
  else
    ListBox1.Selected[ListBox1.Count-1] := True;

Voilà ce que j'ai fais :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
begin
      i := 0;
      DernierIndexSelectionne := 0;
      while (i < ListBox1.Items.Count) do
            begin
               if ListBox1.Selected[i] then
                  begin
                    ListBox2.Items.Add(ListBox1.Items[i]);
                    ListBox1.Items.Delete(i);
                    DernierIndexSelectionne := i;
                   end;
                   Inc(i);
            end;
            if (ListBox1.Items.Count <> 0) then
               if (DernierIndexSelectionne < ListBox1.Items.Count) then
                  ListBox1.Selected[DernierIndexSelectionne] := True
               else
                 ListBox1.Selected[ListBox1.Items.Count-1] := True;
    end;

il y'a indice hors limites.