Descendre des items dans une listbox

Télécharger le projet
Commenter

Description

Ce code permet de descendre des items dans une listbox en cliquant simplement sur un bouton.
Le code gère les erreurs...

Source / Exemple : 


Option Explicit
Dim I As Integer
Dim j As Integer
Dim k As Integer
Dim chaine As String
Dim choisi As Boolean

Private Sub Button1_Click()
If choisi = True Then
k = List1.ListCount
I = List1.ListIndex
chaine = List1.Text
j = List1.ListIndex + 1
If j = k Then
 MsgBox "Aïe ! La tête dans le cul...", vbCritical, "Erreur..."
Else
List1.RemoveItem (I)
Call List1.AddItem(chaine, j)
List1.Refresh
List1.Selected(j) = True
End If
Else
 MsgBox "Veuillez sélectionner une fonction avant !", vbCritical, "Erreur..."
End If
End Sub

Private Sub List1_Click()
choisi = True
End Sub

Conclusion :


Première procédure = code du bouton
Deuxième procédure = code de la listbox
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.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_deviljoker)