OBJET : GESTION DE COULEUR 1.0 : DLL QUI CRÉE UN DÉGRADÉ DE COULEUR
Vbsupernul
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004
-
18 déc. 2002 à 19:32
cs_bidouille007 Messages postés 257 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 22 décembre 2012 - 5 sept. 2009 à 13:38
cs_bidouille007 Messages postés 257 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 22 décembre 2012 - 5 sept. 2009 à 13:38
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/5370-objet-gestion-de-couleur-1-0-dll-qui-cree-un-degrade-de-couleur
https://codes-sources.commentcamarche.net/source/5370-objet-gestion-de-couleur-1-0-dll-qui-cree-un-degrade-de-couleur
5 sept. 2009 à 13:38
Ton code est il adaptable au VB2008 ?
Que la force soit avec vous
28 juin 2005 à 04:21
euh... bah c'est quoi alors, la différence entre le module de classe et le UserControl?
juste l'interface (objet)? si j'ai bien lu à droite à gauche, le usercontrol créé par exemple le txtbox. et le txtbox est une instance de txtbox. et l'instance est un module de classe.
houlaaa!!!!!
sinon je ne note pas ta source, trop complexe et complète, mais elle est nikel et très bien commentée. tu peux me dire l'avantage du usercontrol par rapport au module de classe? au final, on peut faire un ocx et une dll (respectivemement), mais pourquoi choisir l'un plus que l'autre (si pas d'objet à créer par exemple)
merci ;)
PCPT
23 avril 2005 à 15:11
Ensuite, pour tracer le dégradé, il te faut définir :
* Le DC dans lequel il faut tracer (Picture1.hDC par exemple)
* La position sur le DC où tracer le dégradé (il faut mentionner les propriétés Top, Left, Width et Height pour définir les coordonnées d'un rectangle dans lequel sera tracé le dégradé)
* Le nombre de couleurs et les couleurs elles-mêmes
* Enfin, le type de dégradé (voir l'énumération correspondante à la propriété TypeGradient par l'explorateur d'objets de VB).
Une fois toutes ces propriétés définies, tu peux tracer le dégradé en appelant la fonction GradientTrace (la propriété DefaultColor et Step ne sont pas obligatoires).
Par contre, pour tracer un dégradé non rectangulaire, c'est moins évident : il faut créer une région, et l'appliquer à la classe, mais là, c'est plus compliqué !
DarK Sidious
23 avril 2005 à 14:50
Je comprends ton exemple d'instanciation, mais pas comment je dessine sur le formulaire une forme avec une couleur dégradée.
En outre, je ne peux pas démarrer sur une form, pour cela je dois changer le type du projet en exe standard au lieu de DLL activeX.
Je suis, comme tu peux t'en rendre compte, totalement ignorante en la matière.
Si tu as le temps ou la patience de me donner un peu plus d'infos, j'apprécierais beaucoup.
22 avril 2005 à 06:56
'création d'une instance de la classe :
Dim OBJ_Objet As New CLS_GESTION_COULEUR
'définition de la coordonnée sur Y :
OBJ_Objet.Top = 10
'définition de la coordonnée sur X :
OBJ_Objet.Left = 10
'définition de la hauteur du dégradé (en pixels !) :
OBJ_Objet.Height = 200
'définition de la largeur du dégardé (en pixels !) :
OBJ_Objet.Width = 200
'Nombre de couleur à appliquer au dégradé :
OBJ_Objet.ColorNumber = 3
'Définition des 3 couleurs du dégradé :
OBJ_Objet.Color(0) = vbRed
OBJ_Objet.Color(1) = vbGreen
OBJ_Objet.Color(2) = vbBlue
'Définition du DC dans lequel tracer le dégradé (ici, la feuille, mais ca peut être un PictureBox par exemple) :
OBJ_Objet.hDC = Me.hDC
'Couleur par défaut (appliquée si on ne spécifie pas toutes les couleurs :
OBJ_Objet.DefaultColor = vbBlack
'Pas du tracé du dégradé :
OBJ_Objet.Step = 1
'type de dégradé à tracer :
OBJ_Objet.TypeGradient = GradientExternToCenter
'enfin, on peut tracer le dégradé, ouf !
OBJ_Objet.GradientTrace
DarK Sidious
21 avril 2005 à 23:14
Et voir l'exe ne m'aide pas.
Peux-tu m'expliquer ?
10 janv. 2004 à 09:31
Dorénavant, il s'agit d'un véritable objet avec des propriétés et des fonctions. Il y a également la possibilité de tracer un dégradé dans une région envoyée à l'objet.
Il y a un programme de test pour vous montrer comment cette nouvelle version marche.
DarK Sidious
21 déc. 2002 à 07:27
Enfin, merci beaucoup Nix !
DARK SIDIOUS
21 déc. 2002 à 07:20
Oui, mais il n'y a pas que cette source qui ne marche pas : TOUTES mes sources contenant un fichier .vbp contiennent un erreur ;-(((
Je pense que ca doit être le cas pour beaucoup de monde, mais rassurez vos, Nix est en train de bosser sur ce problème, donc, wait and see.
Sinon, j'ai inclue un executable dans le zip, commeca vous pouvez quand même tester... mais il faut que la dll soit enregistrée dans le registre.
DARK SIDIOUS
20 déc. 2002 à 17:59
Sinon le resultat est frappant c'est tres bien comme code Superbe :)
18 déc. 2002 à 22:10
DARK SIDIOUS
18 déc. 2002 à 21:18
DARK SIDIOUS
18 déc. 2002 à 21:07
Excusez moi : normalement, il ne devait y avoir que la dll de dégradé, avec un exe de démo. Je change le zip tout de suite. DSL
DARK SIDIOUS
18 déc. 2002 à 20:54
Bravo pour la dll de dégradés c'est vraiment bien foutu !
Pour la gestion des fichiers en revanche, je vois pas trop l'intérêt, d'autant plus que il y a une dépendance avec Scripting.FileSystemObject(scrrun.dll).
J'ai du pour ma part ouvrir les fichiers *.VPB avec un éditeur de texte et supprimer la ligne :
ExeName32="--------------"
pour pouvoir l'ouvrir avec VB. Autrement un message d'erreur dit que le fichier est endommagé.
@+, VIC
18 déc. 2002 à 20:51
18 déc. 2002 à 19:46
S'il vous plaît, laissez vos commentaires, et notez cette source.
DARK SIDIOUS
18 déc. 2002 à 19:38
DARK SIDIOUS
18 déc. 2002 à 19:33
18 déc. 2002 à 19:32
petit petit, où est tu???