Listbox à multi selection, récupérer les valeurs sélectionnées [vb6]
Ninjabui
Messages postés2Date d'inscriptionvendredi 7 novembre 2003StatutMembreDernière intervention10 septembre 2005
-
10 sept. 2005 à 19:39
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 2022
-
13 sept. 2005 à 01:41
Bonjour,
je cherche comment récupérer sous vb6 à récupérer les valeurs
sélectionnées dans une listbox a choix multiple afin de traiter ces
valeurs....
J'ai essayer avec listbox1.text, mais cette propriété ne marche pas,
elle renvoie toujours la même valeurs celle située la plus en bas dans
la listbox.....
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 10 sept. 2005 à 20:56
Bonsoir,
Tu places deux ListBox et un CommandButton sur ta Form.
Private Sub Form_Load()
' Déclare la variable.
Dim I
' Remplit la zone de liste à l'aide des noms des
' polices d'écran.
For I = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(I)
Next I
End Sub
Private Sub Command1_Click()
' Déclare la variable.
Dim I
' Efface tous les éléments contenus dans la liste.
List2.Clear
' Si un élément est sélectionné, l'ajoute à List2.
For I = 0 To List1.ListCount - 1
If List1.Selected(I) Then
List2.AddItem List1.List(I)
End If
Next I
End Sub
Ninjabui
Messages postés2Date d'inscriptionvendredi 7 novembre 2003StatutMembreDernière intervention10 septembre 2005 10 sept. 2005 à 20:34
oui j'ai fait cette condition.
Je vien de trouver la propriété adéquate c'est list(entier)
listbox.list(3) renvoi le 3eme element de la listbox. Par contre avec
listbox.text ca renvoi le dernier element selectionné meme si tu en as
2-3-4.. selectionné.
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 20223 13 sept. 2005 à 01:41
Salut,
Petite précision
La propriété List est un tableau donc tu peux l'utiliser en tant que tel
Teste ce bout de code pour t'en rendre compte
Il te faut une zone de liste et un bouton sur ta feuille
Private Sub CommandButton1_Click()
Dim i As Integer: Dim Tvar
For i = 1 To 10
ListBox1.AddItem "liste :" & i
Next
MsgBox "la liste est chargée"
Tvar = ListBox1.List
MsgBox "le tableau est chargé"
[C1:C10] = Tvar
End Sub