Discussion :

[Henri_13]

Bonsoir,

Cette question a déjà du etre posée mais je n'ai pas trouvé la réponse.
Je désirerai lorsque je click sur bouton passer ç l'item suivant de mon listbox et afficher le resultat sur le caption de mon label

Code :

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

1
2
3
4
5
6
7
8
9
 begin
   i := ListBox1.ItemIndex;
     If I < 0 Then Exit;
     fin := ListBox1.count;
     for debut := 0 to fin do
     suivant := i + 1 ;
     ListBox1.Selected[suivant];
     spSkinLabel2.Caption := ListBox1.Items.Strings[suivant];
end;

Merci henri

[jmjmjm]

Voila qui devrait t'aider

Code :

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

1
2
3
4
5
6
 
     If ListBox1.ItemIndex < ListBox1.Count
        then begin
        ListBox1.ItemIndex:=ListBox1.ItemIndex+1;
        Label1.Caption := ListBox1.Items.Strings[ListBox1.ItemIndex];
     end;

[Henri_13]

en effet , je te remercie, apparament je m'étais vraiment compliqué la vie pour rien Merci beaucoup jmjmjm

Merci
Henri

[jmjmjm]

C'est souvent le cas au debut tu cree plein de variable inutile et tu finis par te perdre. Je suis content d'avoir pu t'aider bonne prog!!

[LadyWasky]

Voila qui devrait t'aider

Code :

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

1
2
3
4
5
6
 
     If ListBox1.ItemIndex < ListBox1.Count
        then begin
        ListBox1.ItemIndex:=ListBox1.ItemIndex+1;
        Label1.Caption := ListBox1.Items.Strings[ListBox1.ItemIndex];
     end;

Là, ça riqsque de planter quand ListBox1.ItemIndex est d'entrée de jeu égal à ListBox1.Count-1

Je suggère donc :

Code :

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

1
2
3
4
5
6
 
     If ListBox1.ItemIndex < ListBox1.Count-1
        then begin
        ListBox1.ItemIndex:=ListBox1.ItemIndex+1;
        Label1.Caption := ListBox1.Items.Strings[ListBox1.ItemIndex];
     end;

[Henri_13]

Lorsque j'ai testé ton code c'est la 1ere des chose que j'ai testé car j'avais eu le message d'erreur , Merci waskol

Merci Henri