Vb6 listbox

Signaler
Messages postés
44
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
30 août 2010
-
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
-
re(salut),

y-at-il un moyen de cacher un élément d'une listbox que j'ai sélectionné et récupéré l'index dans un tableau sans que les index ne change

merci

GIRAUD MARC

2 réponses

Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Salut,

Le caché je n'en sais rien, par contre récupérer l'index :

Dim MyVar(10) ' Reservation de 10 dimension

MyVar(1) = List1.ListIndex
A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Salut,

Voici ci-dessous une petite bidouille, qui te permet de "cacher" UN item séléctionner, puis de le remettre :

Option Explicit


Dim Mylist As String
Dim Valide As Boolean


Private Sub Command1_Click()


' On remet l'item supprimé dans la listbox
 If Not Mylist = vbNullString Then
 List1.AddItem (Mylist)
 List1.Refresh
 End If
 
 Mylist = ""
 Valide = False
 
End Sub


Private Sub Form_Load()


Dim Boucle As Integer


' Ajoute 2 item à ListBox
 For Boucle = 0 To 1
    
     If Boucle = 0 Then
        List1.AddItem "Toto"
     Else
        List1.AddItem "Tata"
     End If
    
 Next Boucle
 
End Sub


Private Sub List1_Click()


' Variable de stockage
 Dim MyVar(10)


' Passage de valeur lu
 MyVar(1) = List1.ListIndex 'Récupération de l'index
 Mylist = List1.List(List1.ListIndex)


' Bidouille pour cacher
If Not Valide Then
 List1.RemoveItem (List1.ListIndex)
 List1.Refresh
 Valide = True
Else
 Exit Sub
End If
 
End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin