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