FRAME GRAPHIQUE A GRADIENTS DE COULEURS AVEC ICONE (+ EVENTS MOUSE, SUBCLASSING.
violent_ken
Messages postés
1812
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010
-
5 mai 2007 à 23:39
cs_claudetom Messages postés 115 Date d'inscription jeudi 11 octobre 2001 Statut Membre Dernière intervention 15 octobre 2012 - 25 oct. 2011 à 11:39
cs_claudetom Messages postés 115 Date d'inscription jeudi 11 octobre 2001 Statut Membre Dernière intervention 15 octobre 2012 - 25 oct. 2011 à 11:39
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/42581-frame-graphique-a-gradients-de-couleurs-avec-icone-events-mouse-subclassing
https://codes-sources.commentcamarche.net/source/42581-frame-graphique-a-gradients-de-couleurs-avec-icone-events-mouse-subclassing
25 oct. 2011 à 11:39
J'utilise ton composant frame dans un de mes programme mais j'ai un gros soucis,
en effet en mode débug via L'IDE le source plante et ferme par la même occasion l'interface de développement
se produit aussi lors de l’exécution ?
Par contre en mode compilé (EXE) y'a pas de soucis.
Le problème semblerait venir des copyMemory ou de ce qui se trouve dans
Private Sub UserControl_Initialize()
Aurais-tu une solution ?
Merci
10 juil. 2009 à 18:06
avant la question qui tue.. je voulais te féliciter pour la qualité de ton code et les composants que tu proposes.. c'est du tip top !!
J'ai une question cependant, disons que j'ai une Form avec juste ton controle dessus. sur cette Form, je recupere les evenements Mouseleave ou Mousehover de ton controle pour modifier une propriete de ce dernier. (borderwith, caption ..) et bien j'ai toutes les icones de mon bureau qui clignotent un coup ... j'ai essyé sur d'autres postes que le mien et ca fait pareil ...
J'ai essaye de voir les Messages qui etaient envoyés mais j'ai pas trouvé grand chose de probant .. As-tu une idée de ce qui se produit ? et comment l'eviter ?
D'avance Merci ...
Ps: au cas j'aurias pas ete clair, tu trouveras ci-dessous le code utilisé que tu reconnaitras je pense ...
Private Sub grdFrame1_MouseHover(Index As Integer)
Me.Caption = "Rentrée dans un de frames"
grdFrame1(Index).BorderWidth = 2
End Sub
Private Sub grdFrame1_MouseLeave(Index As Integer)
Me.Caption = "Sortie d'un des frames"
grdFrame1(Index).BorderWidth = 1
End Sub
17 mai 2007 à 17:22
http://www.vbfrance.com/code.aspx?ID=42726
@+
12 mai 2007 à 13:27
""transparence avec bordure" le coin haut gauche apparait." ==> En effet, c'est un (le) bug connu, je suis pas arrivé à le résoudre... je comprend pas trop pourquoi le coin est affiché puisque la zone ne le prend pas en compre (avec SetWnidowRgn) -__-
"avec CombineRgn, tu pourrais arrondir que les coins qui t'arrangent, ca rend pas mal..." ==> Bonne idée, je vais travailler du côté de cette API
Merci pour le commentaire ;)
@+
12 mai 2007 à 12:21
"transparence avec bordure" le coin haut gauche apparait...
avec CombineRgn, tu pourrais arrondir que les coins qui t'arrangent, ca rend pas mal...
ton controle ressemble fort désormais a celui que j'avais fait au boulot ^^
ca rend vraiment pas mal, tu t'en sort bien
11 mai 2007 à 19:59
-correction du bug précédent (merci Moustachu)
-ajout d'APIs pour les contours (merci Renfield)
-ajout de nombreuses propriétés
-ajout de la gestion d'une icone (qui se grise quand enabled=false)
-optimisations diverses
-ajout OleTranslateRGB
-bordure avec angle et épaisser réglable
-...
@+
11 mai 2007 à 09:06
10 mai 2007 à 19:48
Merci encore pour tes précieux conseils.
@+
10 mai 2007 à 19:45
deja testé dans un de mes controles, faits pour le boulot, ca rend vraiment pas mal.
je suis a ta disposition, si tu as besoin d'une maquette, conseil...
10 mai 2007 à 19:15
Je vais essayer les APIs de Renfield, puis je rajouterais une option Picture (pour afficher une image 16x16) et j'étofferais les events.
Donc une MAJ dans quelques temps.
@+
10 mai 2007 à 13:13
J'avais lu http://www.vbfrance.com/codes/RGB-MEILLEUR-TECHNIQUE-VB_40020.aspx un peu vite alors...
@+
10 mai 2007 à 07:05
c'est, comme l'indique moustachu, pour pouvoir utiliser les couleurs système... (&h80xxxxxx )
ca permet de passer d'un vbButtonFace à la valeur RGB
9 mai 2007 à 19:06
Moustachu ==> alors pour la classe de DarkSidious, je préfère ne pas l'utiliser (j'essaie de prendre le moins possible de code déjà fait et le refaire moi même, dans la mesure du possible).
Sinon pour la "bidouille", en effet, çà doit passer ^^ J'avais tenté un truc dans le genre déjà (d'ailleurs y doit rester deu fonctions GetMaxRGB et GetMinRGB ou un truc comme çà, c'était pour çà^^)
Et pour OleTranslateColor, effectivement je conaissais, je testerais pour voir si çà gagne du temps réellement.
Merci pour les commentaires, @+ (je ferais probablement une MAJ quand j'aurais du temps)
9 mai 2007 à 11:08
N'oublie pas (comme moi dans beaucoup de sources) le OleTranslateColor pour pouvoir utiliser les couleurs système.
++
Moustachu
9 mai 2007 à 09:13
Renfield a dégainé plus vite que moi ^^.
Donc, pour les région, c'est fait. Pour le dégradé tu peux :
- Utiliser la classe de gestion d'image de Darksidious
- Faire une petite bidouille du genre :
If CLng(RGB(LeftColor.R, LeftColor.G, LeftColor.B)) < CLng(RGB(RightColor.R, RightColor.G, RightColor.B)) Then
lsigne = 1
Else
lsigne = -1
End If
et ensuite :
.ForeColor = RGB(LeftColor.R + lsigne * x * rAverageColorPerSizeUnit, LeftColor.G + lsigne * x * _
gAverageColorPerSizeUnit, LeftColor.B + lsigne * x * bAverageColorPerSizeUnit)
Ca passe à peu près.
++
Moustachu
9 mai 2007 à 08:45
CreateRoundRectRgn
puis
SetWnidowRgn
et pour dessiner la bordure : FrameRgn
8 mai 2007 à 22:41
@+
8 mai 2007 à 22:36
Comme on dit : Chaque chose en son temps...
A+
Exploreur
8 mai 2007 à 22:33
disons que çà a été plutôt rapide puisque c'était pas très difficile... mais j'ai d'autres source à mettre à jour en ce moment (ocx traduction par exemple) qui trainent un peu ! ;)
@+
8 mai 2007 à 22:19
J'admire ta rapidité de réponse...
A+
Exploreur
8 mai 2007 à 18:08
Il y a désormais une gestion des arrondis, avec une property qui permet de (dés)activer les arrondis.
Je me suis pas cassé la tête à changer la forme du UserControl, je me suis contenté de dessiner des points dans les coins de la même couleur que le MaskColor... (méthode de Renfield).
Ne doit pas y avoir de conflit avec les gradients (faudrait pas que le MaskColor apparaisse dans un gradient !) après quelques tests.
@+
7 mai 2007 à 21:40
Ah..oui...Cela serai bien ça...
A+
Exploreur
7 mai 2007 à 21:31
@+
7 mai 2007 à 21:26
Je vais voir si c'est possible de faire un truc comme çà :
http://www.enregistrersous.com/images/32394159920070507212634.jpg
tout en restant simple (c'est aussi le but de la source) ^^
@+ et merci pour le conseil
7 mai 2007 à 21:17
Finalement juste un petit truc à dire niveau graphique....Cela cool avec les coins arrondis.
A+
Exploreur
7 mai 2007 à 21:08
@+
7 mai 2007 à 12:48
A plus...
LARD
6 mai 2007 à 01:28
6 mai 2007 à 00:42
@+
6 mai 2007 à 00:40
Allez, moi j'adopte dessuite...Par contre pour les commentaires techniques...euh...comment dire...ce n'est pas moi qui pourra en dire...lol
A+
Exploreur
5 mai 2007 à 23:39
@+ et oubliez pas de noter et commenter ^^