LISTBOX AVEC CHECKBOX + IMAGE STYLÉ
Utilisateur anonyme
-
6 oct. 2005 à 19:25
pegaz_pegaz Messages postés 2 Date d'inscription mardi 12 octobre 2004 Statut Membre Dernière intervention 10 octobre 2007 - 10 oct. 2007 à 11:27
pegaz_pegaz Messages postés 2 Date d'inscription mardi 12 octobre 2004 Statut Membre Dernière intervention 10 octobre 2007 - 10 oct. 2007 à 11:27
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/34099-listbox-avec-checkbox-image-style
https://codes-sources.commentcamarche.net/source/34099-listbox-avec-checkbox-image-style
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
22 déc. 2005 à 14:19
(Je ne la trouve plus sur le site de microsoft)
Avec ca tu pourras déjà crée pas mal de projet mais le .net et quand un peu différent du vb6. Donc, il faudra t'y habituer
A+
Kenji
22 déc. 2005 à 13:02
A + et continue comme ça.
21 déc. 2005 à 12:50
Il faudrait voir les ReyXp de Renfield, il n'y pas d'image dans la ListBox mais je pense qu'on peu en mettre en rajoutant 2,3 trucs dans le code. Ce sera peut-être pour la V2.
21 déc. 2005 à 11:04
a +
23 oct. 2005 à 17:54
>MoiDebutantVB, demande moi si je dois t'éclaircir certains points. Quand on débute, il faut poser des questions.
20 oct. 2005 à 20:26
14 oct. 2005 à 21:07
Bonne continuation !
6 oct. 2005 à 19:48
Pour le "uxtheme.dll", c'est juste pour afficher les CheckBox en fonction du style de windows.
6 oct. 2005 à 19:25