Vb6 listbox

marcgiraud Messages postés 44 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 30 août 2010 - 1 juin 2007 à 17:00
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 1 juin 2007 à 18:05
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

cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
1 juin 2007 à 17:44
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

 
0
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
1 juin 2007 à 18:05
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


 
0
Rejoignez-nous