Monter des items dans une listbox
0/5 (1 avis)
Vue 5 434 fois - Téléchargée 461 fois
Description
Avec ce code vous pourrez monter les items dans une listbox,
en cliquant simplement sur un bouton.
Les erreurs sont gérées...
Première procédure = code du bouton qui servira à monter
Deuxième procédure = code de la listbox
Choisi, i, j, chaine = variables globales
N'oubliez pas les variables !
Ce code est particulièrement intéressant pour ceux qui chargent leurs items à partir d'une base de données. Ainsi ils peuvent organiser ou trier les informations et faire ensuite ce qu'ils veulent, comme enregistrer l'ordre des items.
en cliquant simplement sur un bouton.
Les erreurs sont gérées...
Source / Exemple :
Option explicit Dim choisi as Boolean Dim i as Integer Dim j as Integer Dim chaine as String Private Sub Button_Click() If choisi = True Then I = List1.ListIndex If I = 0 Then MsgBox "Aïe ! Je me suis cogné...", vbCritical, "Erreur..." Else chaine = List1.Text j = List1.ListIndex - 1 List1.RemoveItem (I) Call List1.AddItem(chaine, j) List1.Refresh List1.Selected(j) = True End If Else MsgBox "Veuillez sélectionner un item avant !", vbCritical, "Erreur..." End If End Sub Private Sub List1_Click() choisi = True End Sub
Conclusion :
Première procédure = code du bouton qui servira à monter
Deuxième procédure = code de la listbox
Choisi, i, j, chaine = variables globales
N'oubliez pas les variables !
Ce code est particulièrement intéressant pour ceux qui chargent leurs items à partir d'une base de données. Ainsi ils peuvent organiser ou trier les informations et faire ensuite ce qu'ils veulent, comme enregistrer l'ordre des items.
Codes Sources
A voir également
- Listbox itemssource
- Deplacer un ou plusieurs item d'une listbox vers la position de son choix via la souris - Codes sources - Visual Basic / VB.NET (Divers)
- Descendre des items dans une listbox - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
- Visual Basic / VB.NET : Tooltiptext qui affiche l'item d'un listbox que survole la souris - CodeS So - Guide
- Delphi / Pascal : Supprimer des items dans une listbox suivant leur texte - CodeS SourceS - Guide
- Delphi / Pascal : Texte au survol de l'item d'une listbox - CodeS SourceS - Guide
21 mai 2007 à 14:23
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.