Monter des items dans une listbox

Soyez le premier à donner votre avis sur cette source.

Vue 5 246 fois - Téléchargée 436 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...

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

Ajouter un commentaire Commentaire
Messages postés
48
Date d'inscription
mardi 3 avril 2007
Statut
Membre
Dernière intervention
11 juin 2007
1
merci beaucoup, c'est exactement le code que je recherché

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.