Descendre des items dans une listbox

Soyez le premier à donner votre avis sur cette source.

Vue 3 360 fois - Téléchargée 276 fois

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.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
mercredi 8 septembre 2004
Statut
Membre
Dernière intervention
8 septembre 2004

Messages postés
13
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
8 octobre 2008

si ça t'intérresse, j'ai fait un petit code pour la saisie-semi automatique.
C'est à dire que ça te présélectionne le texte qu'il y a dans ton listbox .
Pour l'instant, il est sensible a la casse mais c'est trés facile de l'en rendre insensible
Donc, si ça vous dis, suffit de me le dire
Messages postés
41
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
27 mars 2009

SAlut,

Pourrais tu mettre une source...pour donner un exemple
STP (je ne comprend pas tout, faut-il charger des item...?)

Merci d'avance
ps :
- pour http://www.vbfrance.com/article.aspx?Val=7385
- et pour http://www.vbfrance.com/article.aspx?Val=7384

Keneyda

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.