diablamanshadow
Messages postés419Date d'inscriptionlundi 30 août 2004StatutMembreDernière intervention28 janvier 2008
-
30 oct. 2006 à 07:35
cs_magicgus
Messages postés206Date d'inscriptionmardi 10 février 2004StatutMembreDernière intervention14 septembre 2011
-
29 août 2008 à 17:23
Bonjour a tous,
(today journee question mdr)
voila voila j'ai un treview je me suis baser sur la source de violent ken a cet adresse pour voir comment utiliser un treeview pour noob
cependant celle de violent ken aucun probleme pour la comprendre et l'adapter (qui en doutais ^^)
cependant la source pour mettre de la couleur est bien mais sur base de boite de dialog (truc avec les couleur) mais moi je connais d'avance les couleurs que je veux dés le demarrage du logiciel) dans mon treeview alors comment faire (simplement ^^) pour mettre de la couleur de fond , de ligne et de texte en form load sans boite de dialogue (avec du code couleur hexa ou vb ou rvb m'en fou mais que sa se fasse automatiquement avec les couleur choisie ^^)
voila voila ses pas plus compliquer que ca
encore un grand merci a violent_ken pour son aide pour les treeview dont la source (comme les autres de lui d'ailleurs) sont magnifiquement simple et pratique
ps: j'ai mis categorie api vu que la source pour les couleur se base sur l'api sendmessage mais bon si vous avez encore une autre methode suis pas compliquer moi tant que cela fonctionne ^^
diablamanshadow
Messages postés419Date d'inscriptionlundi 30 août 2004StatutMembreDernière intervention28 janvier 2008 30 oct. 2006 à 07:45
' declaration de l'api
Private Declare Function SendMessageLong Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
' les constantes pour les message vers le treeview
Private Const TV_FIRST As Long = &H1100
Private Const TVM_SETBKCOLOR As Long = (TV_FIRST + 29)
Private Const TVM_SETLINECOLOR As Long = (TV_FIRST + 40)
Private Const TVM_SETTEXTCOLOR As Long = (TV_FIRST + 30)
Set nodx = Tvw.Nodes.Add(, , "n1", "1")
Set nodx = Tvw.Nodes.Add("n1", tvwChild, "n1.1", "1.1")
Set nodx = Tvw.Nodes.Add("n1.1", tvwChild, "n1.1.1", "1.1.1")
Set nodx = Tvw.Nodes.Add("n1.1", tvwChild, "n1.1.2", "1.1.2")
Set nodx = Tvw.Nodes.Add("n1.1", tvwChild, "n1.1.3", "1.1.3")
Set nodx = Tvw.Nodes.Add("n1", tvwChild, "n1.2", "1.2")
Set nodx = Tvw.Nodes.Add("n1.2", tvwChild, "n1.2.1", "1.2.1")
Set nodx = Tvw.Nodes.Add("n1.2", tvwChild, "n1.2.2", "1.2.2")
Set nodx = Tvw.Nodes.Add("n1.2", tvwChild, "n1.2.3", "1.2.3")
Set nodx = Tvw.Nodes.Add("n1.2", tvwChild, "n1.2.4", "1.2.4")
Set nodx = Tvw.Nodes.Add("n1.2", tvwChild, "n1.2.5", "1.2.5")
Set nodx = Tvw.Nodes.Add("n1", tvwChild, "n1.3", "1.3")
Set nodx = Tvw.Nodes.Add("n1.3", tvwChild, "n1.3.1", "1.3.1")
Set nodx = Tvw.Nodes.Add("n1.3", tvwChild, "n1.3.2", "1.3.2")
Set nodx = Tvw.Nodes.Add("n1", tvwChild, "n1.4", "1.4")
Set nodx = Tvw.Nodes.Add("n1.4", tvwChild, "n1.4.1", "1.4.1")
Set nodx = Tvw.Nodes.Add("n1.4", tvwChild, "n1.4.2", "1.4.2")
Set nodx = Tvw.Nodes.Add("n1.4", tvwChild, "n1.4.3", "1.4.3")
Set nodx = Tvw.Nodes.Add("n1.4", tvwChild, "n1.4.4", "1.4.4")
Set nodx = Tvw.Nodes.Add("n1.4", tvwChild, "n1.4.5", "1.4.5")
Set nodx = Tvw.Nodes.Add("n1.4", tvwChild, "n1.4.6", "1.4.6")
Set nodx = Tvw.Nodes.Add("n1.4", tvwChild, "n1.4.7", "1.4.7")
Set nodx = Tvw.Nodes.Add("n1.4", tvwChild, "n1.4.8", "1.4.8")
Set nodx = Tvw.Nodes.Add("n1.4", tvwChild, "n1.4.9", "1.4.9")
Set nodx = Tvw.Nodes.Add("n1.4", tvwChild, "n1.4.10", "1.4.10")
End Sub
Private Sub tvw_NodeClick(ByVal Node As MSComctlLib.Node)
Label1.Caption = "Le chemin : " + Node.FullPath
End Sub
j'ai reussi a modifier la couleur dans mon code adapter comme ken cependant cela me fait des carrer gris partout (surement l'emplacement des img des noeud etc enfin je vois que ca)
diablamanshadow
Messages postés419Date d'inscriptionlundi 30 août 2004StatutMembreDernière intervention28 janvier 2008 30 oct. 2006 à 09:15
j'ai essayer et si je met a 0 (ou meme autres chose) sois ses ok j'ai plus les carrer gris de l'img mais alors j'ai plus les lignes (que je souhaite) sois sa laisse les ligne et plus d'img mais le text est comme "surligner" par du gris :-/
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_magicgus
Messages postés206Date d'inscriptionmardi 10 février 2004StatutMembreDernière intervention14 septembre 2011 29 août 2008 à 17:23
C'est bien qu'il y'est des solutions mais bon, le coup d'utiliser un "vieux" contrôle n'est pas très pro.
Pour ma part je propose plutôt de rechercher les nouvelles constants appliquable à la version 6.
Dites vous que selon le logiciel d'installation que vous utiliserez pour distibuer vos programmes, il pourront peut être mêtre à jour le contrôle et alors vos constantes ne seront de toutes façon plus bonne !
Merci de tenir informé si quelqu'un trouve les constantes valables pour la version 6