[VB6] récup élément d'une listbox
predateur
Messages postés
73
Date d'inscription
Statut
Membre
Dernière intervention
-
predateur Messages postés 73 Date d'inscription Statut Membre Dernière intervention -
predateur Messages postés 73 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai une listbox list1 qui contient plusieurs éléments par exemple:
Société
Nom
Prénom
Adresse
J'ai créé un bouton à côté Command1ToDown dans une procédure Command1ToDown.click
Maintenant j'explique ce que je veux faire.
Je sélectionne par exemple Prenom, et je clique sur le bouton Command1ToDown et celui-ci dois prend la place de Adresse et vice versa, ce qui nous donne au final
Société
Nom
Adresse
Prénom
Maintenant pour le code j'ai pensé à quelque chose comme
if command1ToDown.selected(i) = true then
command1ToDown.selected(i) = Var1
command1ToDown.selected(i+1) = Var2
command1ToDown.selected(i) = Var2
command1ToDown.selected(i+1) = Var1
end if
Le problème c'est que ca ne fonctionne pas.
Merci d'avance
J'ai une listbox list1 qui contient plusieurs éléments par exemple:
Société
Nom
Prénom
Adresse
J'ai créé un bouton à côté Command1ToDown dans une procédure Command1ToDown.click
Maintenant j'explique ce que je veux faire.
Je sélectionne par exemple Prenom, et je clique sur le bouton Command1ToDown et celui-ci dois prend la place de Adresse et vice versa, ce qui nous donne au final
Société
Nom
Adresse
Prénom
Maintenant pour le code j'ai pensé à quelque chose comme
if command1ToDown.selected(i) = true then
command1ToDown.selected(i) = Var1
command1ToDown.selected(i+1) = Var2
command1ToDown.selected(i) = Var2
command1ToDown.selected(i+1) = Var1
end if
Le problème c'est que ca ne fonctionne pas.
Merci d'avance
A voir également:
- [VB6] récup élément d'une listbox
- Vb6 - Télécharger - Divers Utilitaires
- Open element - Télécharger - HTML
- Élément introuvable impossible à supprimer - Guide
- Comment ajouter un élément dans une liste déroulante excel - Guide
- Trouver la position d'un élément dans une liste python ✓ - Forum Python
2 réponses
Ton code est très bizarre.
command1ToDown d'après ce que tu dis c'est le bouton, faut donc que tu agisses sur la liste et non sur le bouton.
En fait tu retournes sur la feuille qui contient ta frame. Ensuite tu double-cliques sur le bouton. Tu arrives dans une procédure qui sera appelée lorsque l'événement clique se fera sur le bouton. Ensuite tu échanges les éléments dans list1.
command1ToDown d'après ce que tu dis c'est le bouton, faut donc que tu agisses sur la liste et non sur le bouton.
En fait tu retournes sur la feuille qui contient ta frame. Ensuite tu double-cliques sur le bouton. Tu arrives dans une procédure qui sera appelée lorsque l'événement clique se fera sur le bouton. Ensuite tu échanges les éléments dans list1.
Normal que ça ne marche pas.
Mets plutot dans ta procédure command1ToDown_click():
tmpIndex=List1.SelectedIndex
tmpItem = List1.SelectedItem
list1.Insert.RemoveAt(tmpIndex)
list1.Items.Insert((tmpIndex+1) mod list1.Items.Count, tmpItem)
ps : je suis pas sûr que cela marche, j'ai pas testé.
j'ai mis un mod pour modulo histoire que si c'est le dernier élément, il repassera en première position. A toi de voir
Mets plutot dans ta procédure command1ToDown_click():
tmpIndex=List1.SelectedIndex
tmpItem = List1.SelectedItem
list1.Insert.RemoveAt(tmpIndex)
list1.Items.Insert((tmpIndex+1) mod list1.Items.Count, tmpItem)
ps : je suis pas sûr que cela marche, j'ai pas testé.
j'ai mis un mod pour modulo histoire que si c'est le dernier élément, il repassera en première position. A toi de voir
en effet, il faut remplacer les command1ToDown par list1
en faite c'est la procédure qui s'appelle Command1ToDown
Private Sub Command1ToDown_Click()
Donc maintenant je n'obtiens pas d'erreur, mais je n'observe pas de modification au moment où je clique sur le bouton
Dim i As Long
For i = 0 To List2.ListCount - 1
If List2.Selected(i) = True Then
List2.Selected(i) = Var1
List2.Selected(i + 1) = Var2
List2.Selected(i) = Var2
List2.Selected(i + 1) = Var1
End If
Next i
End Sub