Listbox avec checkbox + image stylé
Soyez le premier à donner votre avis sur cette source.
Vue 24 785 fois - Téléchargée 3 061 fois
Description
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.
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.
Codes Sources
A voir également
- Image stylé
- Image stylée - Meilleures réponses
- Checkbox image - Meilleures réponses
- Visual Basic / VB.NET : Visualisateur image style acdsee + visu gif anime - CodeS SourceS - Guide
- Visual Basic / VB.NET : Mosaïque affichage et impression d'image style mosaïque ou canevas - Guide
- Visual Basic / VB.NET : Viewer d'images style celui de windows xp, avec des cossins en + (beta) - Co - Guide
- Visualiseur d'image du style de acdsee - Codes sources - Visual Basic / VB.NET (Multimedia)
- PHP : Fusion d'images + texte : style copyright, protégez vos images - CodeS SourceS - Guide
Un belge qui cherchait une solution!
- Messages postés
-
3172
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
32C'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
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
@++
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.