Oui, on peut l'utiliser avec le concepteur window form sans aucun problème.
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
Colinalia
Messages postés4Date d'inscriptiondimanche 20 juin 2004StatutMembreDernière intervention21 janvier 2007 21 janv. 2007 à 16:58
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
@++
cs_Collie
Messages postés1Date d'inscriptionmercredi 30 novembre 2005StatutMembreDernière intervention 4 janvier 2006 4 janv. 2006 à 12:21
Merci je suis enfin sortie de ce problème de checklistbox peu convivial. @+
cs_Dozzer
Messages postés3Date d'inscriptionmercredi 4 mai 2005StatutMembreDernière intervention29 décembre 2005 29 déc. 2005 à 12:45
Il y a la bêta de vs2005 qui est gratuite et téléchargeable ici: http://www.dotnet-fr.org/article.php3?sid=1353 (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
cs_Dozzer
Messages postés3Date d'inscriptionmercredi 4 mai 2005StatutMembreDernière intervention29 décembre 2005 22 déc. 2005 à 13:02
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.
Désolé Dozzer, je me suis spécialisé en .net. Je ne peux donc pas le faire en vb
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.
cs_Dozzer
Messages postés3Date d'inscriptionmercredi 4 mai 2005StatutMembreDernière intervention29 décembre 2005 21 déc. 2005 à 11:04
bravo, ton programme est vraiment interressant,tu ne peux pas m'envoyer une mais en VB.
a +
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