listbox multiselect et double click ...Résolu

Question

Bonjour,

Je cherche &#224; s&#233;lectionner un &#233;l&#233;ment d'une listbox  gr&#226;ce &#224; un double click. Ensuite j'affiche une popup qui reprend des &#233;l&#233;ments sur la personne s&#233;lectionn&#233;e.

Probl&#232;me : comment fait-on pour r&#233;cup&#233;rer la valeur de la ligne s&#233;lectionn&#233;e par un double click dans une listbox multiselect et avec plusieurs colonnes ? Ou existe-t-il un type de list plus appropri&#233; quitte &#224; t&#233;l&#233;charger un .ocx ?

J'esp&#232;re que c'est compr&#233;hensible et vous remercie pour vos contributions.

Gobillot · Accepted Answer

La ListBox n'est pas multi-colonnes me semble - t -il !



&#224; partir de moment o&#249; tu fais du multiselect, il y a plus d'une ligne s&#233;l&#233;ctionn&#233;e

ce que tu vas r&#233;cup&#233;rer avec le click ou double click c'est seulement la derni&#232;re ligne s&#233;lectionn&#233;e:



l'index ---->List1.ListIndex

le texte -->  List1.Text


Daniel

jpleroisse · Answer

Bonjour,

Voici un exemple pour r&#233;cup&#233;rer les valeur d'une listBox dans un
deuxi&#232;me Listbox. Tu mets dans les propri&#233;t&#233;s de la List1, multiselect
sur 1 (Si tu mets sur multiselect sur 2, tu dois appuyer sur Ctrl pour
faire tes s&#233;lections et DoubleCliquer). Je ne sais pas si ton menu
Popup affichera toutes les s&#233;lections, en tout cas un TextBox n'
affiche que la derni&#232;re s&#233;lection (m&#234;me en multiligne).



Private Sub Form_Load()

   ' D&#233;clare la variable.

   Dim I

   ' Remplit la zone de liste &#224; l'aide des noms des

   ' polices d'&#233;cran.

   For I = 0 To Screen.FontCount - 1

      List1.AddItem Screen.Fonts(I)

   Next I

   List1.ListIndex = 0

End Sub



Private Sub List1_DblClick()

   ' D&#233;clare la variable.

   Dim I

   ' Efface tous les &#233;l&#233;ments contenus dans la liste.

   List2.Clear

   ' Si un ou plusieurs &#233;l&#233;ments sont s&#233;lectionn&#233;s, il sont ajout&#233;s &#224; 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

sourikiki · Answer

Je vous remercie mais ce n'est pas ce que je cherche. En fait, d'apr&#232;s ce que vous venez de dire, il n'y a pas de solution &#224; mon probl&#232;me 



Je sais comment r&#233;cup&#233;rer TOUS les items s&#233;lectionn&#233;s, je souhaitais pouvoir, gr&#226;ce &#224; un double clique, savoir quel ligne j'avais s&#233;lectionn&#233; pour pouvoir faire un affichage appropri&#233; ...

Bon c pas bien pas grave, mais j'aurais &#233;t&#233; contente que &#231;a marche.

Gobillot · Answer

ben si.



    For i = 0 To List1.ListCount - 1

        If List1.Selected(i) = True Then MsgBox List1.List(i)

        Next


Daniel

sourikiki · Answer

Effectivement, c'&#233;tait bien &#231;a !

J'ai pas du l'appliquer au bon objet ou je sais pas mais &#231;a me mettait toujours une erreur.



Par contre est-ce qu'il y a moyen de s&#233;lectionn&#233;/d&#233;selectionn&#233; un item avec un code ?

sourikiki · Answer

Ah et au fait, avec le double-click, on r&#233;cup&#232;re bien l'index de l'item cliqu&#233; !

Gobillot · Answer

oui on a le Text et l'index









Private Sub List1_DblClick()

    MsgBox List1.Text

    MsgBox List1.ListIndex

End Sub



pour s&#233;lectionner/d&#233;selectionner

List1.Selected(i) = True/False

Daniel

Listbox multiselect et double click ...

7 réponses

Discussions similaires