GESTION DES UP & DOWN D'UNE LISTE
cs_blabla
Messages postés
112
Date d'inscription
mercredi 28 août 2002
Statut
Membre
Dernière intervention
13 mars 2004
-
5 déc. 2002 à 21:00
FrostByte Messages postés 138 Date d'inscription mercredi 4 avril 2001 Statut Membre Dernière intervention 28 janvier 2006 - 6 déc. 2002 à 18:04
FrostByte Messages postés 138 Date d'inscription mercredi 4 avril 2001 Statut Membre Dernière intervention 28 janvier 2006 - 6 déc. 2002 à 18:04
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5272-gestion-des-up-down-d-une-liste
https://codes-sources.commentcamarche.net/source/5272-gestion-des-up-down-d-une-liste
6 déc. 2002 à 18:04
6 déc. 2002 à 13:44
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
5 déc. 2002 à 21:56
5 déc. 2002 à 21:00