Gestion des up & down d'une liste

Soyez le premier à donner votre avis sur cette source.

Vue 4 171 fois - Téléchargée 320 fois

Description

Ce code vous explique comment gérer une liste, incluant un systéme permettant de monter un élément d'une position ou de le descendre de -1 le renvoyer en haut et en bas (pour voir de quoi je parle quand vous utilisez leech ftp dans votre playlist vous avez envoyer en haut ou en bas c'est idem)!! ce code est assez simple donc si vous avez des question pas de pb !!!

Source / Exemple :


download the zip

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
138
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
28 janvier 2006

euh oui !! si tu le dits !! je te remerci(e) !!!
Messages postés
436
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
2
Hello -:)

j'ai une autre version :


Option Explicit
'-------------
Private Sub btnCmd_Click(Index As Integer)
Dim str As String, str2 As String
With lstBox
If .ListIndex = -1 Then Exit Sub
str = .List(.ListIndex)
Select Case Index
Case 0 'top
str2 = .List(0)
If str2 = "" Then Exit Sub
.List(0) = str
.List(.ListIndex) = str2
.ListIndex = 0
Case 1 'up1
str2 = .List(.ListIndex - 1)
If str2 = "" Then Exit Sub
.List(.ListIndex) = str2
.List(.ListIndex - 1) = str
.ListIndex = .ListIndex - 1
Case 2 'down1
str2 = .List(.ListIndex + 1)
If str2 = "" Then Exit Sub
.List(.ListIndex) = str2
.List(.ListIndex + 1) = str
.ListIndex = .ListIndex + 1
Case 3 'bottom
str2 = .List(.ListCount - 1)
If str2 = "" Then Exit Sub
.List(.ListCount - 1) = str
.List(.ListIndex) = str2
.ListIndex = .ListCount - 1
End Select
End With
End Sub

Private Sub Form_Load()
Dim i As Byte
For i = 0 To 127
lstBox.AddItem "Item " & i
Next
End Sub

'---------
'un listBox >> listBox
'et un btnCmd (de 0 à 3) 0 premier, 1 place précédente etc...

@+, VIC
Messages postés
138
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
28 janvier 2006

ouais je reconnais que je code pas trés bien, mais bon le principe y est (et je pense que sur vbfrance une source de ce type n'y est pas !!)
Messages postés
112
Date d'inscription
mercredi 28 août 2002
Statut
Membre
Dernière intervention
13 mars 2004

ouais le code est bien , mais pour le consepte c 1 pe la merde apret avoir tou changer ;)

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.