Listbox à multi selection, récupérer les valeurs sélectionnées [vb6]

Question

Bonjour,

je cherche comment r&#233;cup&#233;rer sous vb6 &#224; r&#233;cup&#233;rer les valeurs
s&#233;lectionn&#233;es dans une listbox a choix multiple afin de traiter ces
valeurs....



J'ai essayer avec listbox1.text, mais cette propri&#233;t&#233; ne marche pas,
elle renvoie toujours la m&#234;me valeurs celle situ&#233;e la plus en bas dans
la listbox.....



Voila merci d'avance.

jpleroisse · Accepted Answer

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

jpleroisse

Utilisateur anonyme · Answer

Bonjour,



Il faut boucler sur tous les &#233;l&#233;ments et regarder si il est s&#233;lectionn&#233;.



ChRB


 

Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

Ninjabui · Answer

oui j'ai fait cette condition.

Je vien de trouver la propri&#233;t&#233; ad&#233;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&#233; meme si tu en as
2-3-4.. selectionn&#233;. 



Voila Merci  &#224; vous de votre reponse

valtrase · Answer

Salut,
Petite pr&#233;cision
La propri&#233;t&#233; 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&#233;e"
Tvar = ListBox1.List
MsgBox "le tableau est charg&#233;"
[C1:C10] = Tvar
End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Listbox à multi selection, récupérer les valeurs sélectionnées [vb6]

4 réponses

Discussions similaires