ListBox evenement simple et double clic

Version imprimable

Bonjour,
J'ai une ListBox à plusieurs colonnes. Quant on double clic sur une ligne, ça fait appel à un evenement (lstContrats_DblClick).
J'aimerai mettre en place une nouvelle interaction avec cette ListBox, quand on clique une fois sur une ligne ça la selectionne (Ok ça de base ça le fait). Mais j'aimerai que quand on clique une seconde fois sur la même ligne ça la déselectionne (c'est pas un double clic vu que ce n'est pas une succession rapide de clic)

J'ai fais simplement:
Code:

1 2 3 4 5 6 Private Sub lstContrats_Click() If Me.lstContrats.ListIndex <> -1 And Me.lstContrats.Selected(Me.lstContrats.ListIndex) Then ' Me.lstContrats.Selected(Me.lstContrats.ListIndex) = False ' Me.lstContrats.ListIndex = -1 End If End Sub
Mais aucune des deux solutions ne fonctionne, on dirait que entre en conflict avec l'evenement gérant le double clic.

Merci de l'aide

Bonjour,

Teste ceci :

Code:

1
2
3
4
5
6
7
8
Private Sub lstContrats_Click()
    With Me.lstContrats
        Select Case .Selected(.ListIndex)
            Case True: .Selected(.ListIndex) = False
            Case Else: .Selected(.ListIndex) = True
        End Select
    End With
End Sub

06/06/2012, 16h31
Invité

Oui ça me fait la même chose.
En faite l'erreur arrive quand on fait un double clic.
A la ligne:

Code:

szContrat = Me.lstContrats.List(Me.lstContrats.ListIndex, 0)

L'erreur est "Impossible de lire la propriété List. Index de la table de propriétés non valide."
Quand je regarde la valeur de Index, elle est toujours égale à -1, quelque soit la ligne sur la quelle je clic.
Je pense donc que l'évenement double clic et clic simple entre en conflit, ça déselectionne la ligne et donc met Index à -1.
06/06/2012, 17h27
fring

Regarde la propriété MultiSelect de ta ListBox, elle doit être sur MultiSelectMulti