LISTBOX AVEC CHECKBOX + IMAGE STYLÉ

Commentaire de JJDai le 06/10/2005 19:25:11

Pas mal, seul bémol ca fait appel aux API de "uxtheme.dll"

Commentaire de OneHacker le 14/10/2005 21:07:31

Bravo, toutes mes félicitations ! 10/10

Bonne continuation !

Commentaire de MoiDebutantVB le 23/10/2005 17:12:24

Je comprend rien au code mais au final c'est génial !!!
Allez 10/10
CFP.

Commentaire de Dozzer le 21/12/2005 11:04:51

bravo, ton programme est vraiment interressant,tu ne peux pas m'envoyer une mais en VB.
a +

Commentaire de Dozzer le 22/12/2005 13:02:32

Merci pour ton aide, tu sais je n'y connais rien en .net, c'est pourquoi je te l'ai demandé en VB, parceque j'en ai besoin dans un programme. Mais juste une chose où est- ce que je pourrai avoir le .net (le logiciel), parce que je cherche sur le net mais je n'en trouve pas.Peux tu me donner un site ?
A + et continue comme ça.

Commentaire de Dozzer le 29/12/2005 12:45:19

Merçi Kenji pour l'info, !!!! a +

Commentaire de Colinalia le 21/01/2007 16:58:24

Merci super source :) . Pour info on peut l'utiliser avec le concepteur de forme aussi (je suis en 2005), pour cela il suffit d'englober les codes des sub OnDrawItem et OnMeasureItem par

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

@++