DÉGRADÉ OFFICE

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 6 juin 2003 à 09:03
cs_Alain Proviste Messages postés 908 Date d'inscription jeudi 26 juillet 2001 Statut Modérateur Dernière intervention 1 février 2015 - 9 juin 2003 à 09:12
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/7355-degrade-office

cs_Alain Proviste Messages postés 908 Date d'inscription jeudi 26 juillet 2001 Statut Modérateur Dernière intervention 1 février 2015 2
9 juin 2003 à 09:12
le code est à la fois beau et immonde... il n'en reste pas moins qu'il est efficace...
ICIoBRa Messages postés 368 Date d'inscription dimanche 24 juin 2001 Statut Membre Dernière intervention 7 décembre 2015
7 juin 2003 à 12:23
grd1to2 < Type d'argument ByRef incompatible ...
Neo.balastik Messages postés 796 Date d'inscription jeudi 17 mai 2001 Statut Membre Dernière intervention 5 mai 2009 7
6 juin 2003 à 21:40
En effet, le code est très condensé. Tu aurais mis des "If Then Else" un peu plus au lieu de "IIF", le code aurait gagné en clareté (point de vue compréhension).
Ceci dit, même si IIF rend le code plus court, ce n'est pas pour cela qu'il en est plus rapide. Bien au contraire, l'instruction IIF est bcp plus longue à interpréter par VB qu'un simple IF THEN ELSE...
Aussi, bravo pour ce code.... Un bon 8 !
Arecibo Messages postés 124 Date d'inscription jeudi 13 juin 2002 Statut Membre Dernière intervention 30 juillet 2003
6 juin 2003 à 17:04
C'est très bien, les possibilités sont nombreuses mais, comme tu le dis, c'est très très condensée et pas évident à comprendre pour tout le monde...
Jujufouq Messages postés 254 Date d'inscription jeudi 27 décembre 2001 Statut Membre Dernière intervention 5 mars 2006
6 juin 2003 à 12:09
Ouai, ben tu t'es bien défoulé apparement... j'espère que t'as pas fait trop de mal à ton clavier ;-)
De voir ça, ça me décourage... Il y en a qui sont doués, c'est tout.
Bravo.
VBSpirit Messages postés 15 Date d'inscription mardi 11 juin 2002 Statut Membre Dernière intervention 15 juillet 2004
6 juin 2003 à 11:15
Pour utliser la fonction, voici un exemple :
Dans une Form appelé Form1, Ajouter un bouton et appeller la fonction Degrad comme ceci :
Degrad (Form1, 0, 0, 50, 50, vbred, RGB(255,255,0),grd1to2)
où Form1 est l'objet qui doit être une Form ou un PictureBox,
X1, Y1, X2, Y2 sont les coordonnées du rectangle dans lequel le dégradé sera effectué, style étant le type de dégradé (utiliser les constantes "DegradStyle") et le dégradé apparaîtra...
cs_fts Messages postés 8 Date d'inscription lundi 21 avril 2003 Statut Membre Dernière intervention 10 juin 2003
6 juin 2003 à 10:13
chapeau!
qqun de charitable pourrait il expliquer au newbie que je suis comment utiliser cette fonction svp ?
d'avance merci !
(j'ai fait un copier coller ds 1 form vide en supprimant form load mais ça le fait pas...)
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
6 juin 2003 à 09:03
on se fiche de savoir si ca prend ou pas de la place dans le code !!!!
ce n'est pas un motif valable......

parle d'un temps d'execution accru, ca c'est bon, mais la place dans le code........
on fait un module , on y met ton code, et voila !!!!!


et tout cas chapeau, c'est beaucoup de boulot

un zip & une capture ( pour un truc graphique, c'est mieux !! )
Rejoignez-nous