Discussion :

[sondo]

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Cpt := 0 to ListBox1.Count - 1 do
  if ListBox1.Selected[Cpt] then
    ListBox2.AddItem( ListBox1.Items[Cpt], NIL );

[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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Aka Guymelef]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[sondo]

Merci beaucoup . Ça marche.

[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.

[Aka Guymelef]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[sondo]

Voilà ce que j'ai fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.