Problème pour cocher les checkbox dans un ListView
abdoulayediouf
Messages postés7Date d'inscriptionjeudi 16 septembre 2004StatutMembreDernière intervention 7 septembre 2009
-
3 juil. 2007 à 18:31
chaibat05
Messages postés1883Date d'inscriptionsamedi 1 avril 2006StatutMembreDernière intervention20 novembre 2007
-
4 juil. 2007 à 13:39
Bonjour,
J'ai crée un ListView avec 3 colonnes contenant des Checkbox. J'arrive à cocher et à décocher les CheckBox de la première colonne mais je n'arrive pas à faire le même sur les colonnes 2 et 3
j'ai beau cherché mais je n'arrive pas à avoir de solution.
Merci
abdoulayediouf
Messages postés7Date d'inscriptionjeudi 16 septembre 2004StatutMembreDernière intervention 7 septembre 2009 4 juil. 2007 à 10:59
J'ai utilisé les control Imagelist et commondialog sur lesquels j'ai inserer deux images : une qui est une case à coher et une autre qui est une case vide . Ainsi au lancement du formulaire se sont les cases vides qui s'affichent en premier sur le 3 premiers colonnes et quand on clique sur une des ses cases la case vide est automatiquement replacée par la case cochée. J'ai réussi à le faire celà sur la première colonne et pour le reste j'ai beaut essayé mais je n'arrive pas à le faire.
Merci
abdoulayediouf
Messages postés7Date d'inscriptionjeudi 16 septembre 2004StatutMembreDernière intervention 7 septembre 2009 4 juil. 2007 à 13:38
J'ai utilisé les control Imagelist et commondialog sur lesquels j'ai
inserer deux images : une qui est une case à coher et une autre qui est
une case vide . Ainsi au lancement du formulaire se sont les cases
vides qui s'affichent en premier sur le 3 premiers colonnes et quand on
clique sur une des ses cases la case vide est automatiquement replacée
par la case cochée. J'ai réussi à le faire celà sur la première colonne
et pour le reste j'ai beaut essayé mais je n'arrive pas à le faire.
Voilà mon code :
Private Sub Form_Load()
For i = 1 To 6
With ListView1
.ListItems.Add , , , , 2
.ListItems(i).ListSubItems.Add , , , 2
.ListItems(i).ListSubItems.Add , , , 2
.ListItems(i).ListSubItems.Add , , "Test"
End With
Next i
End With
End Sub
'Permet de Cocher et décocher la première colonne
Private Sub Cmd_Lancer_Click()
If Me.ListView1.ListItems.Count > 0 Then
With Me.ListView1
If .SelectedItem.SmallIcon = 2 Then
.SelectedItem.SmallIcon = 1
Else
.SelectedItem.SmallIcon = 2
End If
.Refresh
End With
End If
End Sub
Maintenant je parviens à cocher ou décocher les case de la 1ère colonne reste maintenant à faire de même pour les deux qui reste.
chaibat05
Messages postés1883Date d'inscriptionsamedi 1 avril 2006StatutMembreDernière intervention20 novembre 20072 4 juil. 2007 à 13:39
Bonjour,
le coup de l' ImageList est plus facile à coder avec un MSFlexGrid qu ' avec une ListView.Mais ça reste toujours possible théoriquement.En pratique c' est quand
même très laborieux par la suite de savoir sur quelle case on click car à la différence
de MsFlexGrid la Listview fonctionne sur le principe de la ligne et non de la cellule.