Au début je cherchait à mettre des images dans une CheckListBox.
Comme le contrôle CheckedListBox prend uniquement la propriété DrawMode.Normal en charge, il suffisait de prendre une ListBox normal et de rajouter la gestion des CheckBox puis les image et une personalisation avec des dégradé, couleurs, police ...
Dans l'application d'example, ca liste les dossiers et les fichiers de la racine du disque ou se trouve l'application.
10 oct. 2007 à 11:27
Un belge qui cherchait une solution!
21 janv. 2007 à 17:26
C'est juste moi qui l'ai volontairement désactivé. Je le déteste, je ne l'utilise jamais,
il me met la pagaille dans le code avec pleins de trucs inutiles. (Désolé, je m?emporte)
Mais c'est vrai que du coup, je ne pense pas pour ceux qui l'utilisent.
Bien vu pour le CheckedChanged. Merci
__
Kenji
21 janv. 2007 à 16:58
If MyBase.Items.Count > 0 Then
...
end if
Et une petite modification qui peut s'avérer utile c'est de rajouter l'événement checkedChanged
il suffit de rajouter dans les déclarations
Public Delegate Sub checkedChangeDelegate(ByVal sender As Object, ByVal e As ItemCheckEventArgs)
Public Event checkedChange As checkedChangeDelegate
et dans OnMouseDown aprés "If ItemBounds.Contains(e.X, e.Y) = True Then" :
Dim checked As Boolean = CType(MyBase.Items(MyBase.SelectedIndex), ListItem).m_Checked
If checked Then
RaiseEvent checkedChanged(Me, New ItemCheckEventArgs(MyBase.SelectedIndex, CheckState.Unchecked, CheckState.Checked))
Else
RaiseEvent checkedChanged(Me, New ItemCheckEventArgs(MyBase.SelectedIndex, CheckState.Checked, CheckState.Unchecked))
End If
@++
4 janv. 2006 à 12:21
29 déc. 2005 à 12:45
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.