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