Aide pour un code de couleur d'écriture
cs_Showcase
Messages postés
2
Date d'inscription
mardi 27 septembre 2005
Statut
Membre
Dernière intervention
9 juillet 2007
-
9 juil. 2007 à 20:53
cs_ISoKa Messages postés 435 Date d'inscription jeudi 27 avril 2006 Statut Membre Dernière intervention 17 octobre 2008 - 10 juil. 2007 à 00:57
cs_ISoKa Messages postés 435 Date d'inscription jeudi 27 avril 2006 Statut Membre Dernière intervention 17 octobre 2008 - 10 juil. 2007 à 00:57
A voir également:
- Aide pour un code de couleur d'écriture
- Ecriture transparente - Conseils pratiques -Graphisme
- Vba couleur cellule - Forum Visual Basic 6
- Inverser couleur photoshop - Forum Visual Basic
- Inverser les couleurs d'une image 16x16 ✓ - Forum Visual Basic 6
- Inversion de couleur ✓ - Forum Visual Basic 6
2 réponses
cs_wims
Messages postés
2466
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
1 août 2010
1
10 juil. 2007 à 00:22
10 juil. 2007 à 00:22
Outch que c'est mal codé, tu devrais regarder les autres sources d'addon couleur présent ici, d'une part pour amelioré ton code, et d'autre par pour complété ton input
cs_ISoKa
Messages postés
435
Date d'inscription
jeudi 27 avril 2006
Statut
Membre
Dernière intervention
17 octobre 2008
10 juil. 2007 à 00:57
10 juil. 2007 à 00:57
comme wims, je pense que c'est assez mal codé, en me donnant 5min je refai ton dialog de la facon suivante :
dialog couleurs {
title "Couleurs d'écriture"
size -1 -1 300 330
box "Couleurs d'écriture",02, 10 55 280 70
text "Texte",03, 20 75 100 20
combo 04, 20 93 115 150,drop,vsbar,drop,size
text "Fond",05, 165 75 100 20
combo 06, 165 93 115 150,drop,vsbar,drop,size
box "Option",07, 10 130 280 50
check "Gras",08, 20 148 50 20
check "Souligné",09, 90 148 60 20
check "1ere lettre majuscule",10, 165 148 120 20
box "1ère Lettre de couleur différente",11, 10 185 280 97
check "Activer",12, 122 207 60 20
text "Texte",13, 20 231 100 20
combo 14, 20 249 115 150,drop,vsbar,drop,size
text "Fond",15, 165 231 100 20
combo 16, 165 249 115 150,drop,vsbar,drop,size
button "Enregistrer",17, 100 291 100 30, ok cancel
}
on 1:dialog:couleurs:init:0: {
var %combo 04
did -a couleurs 4,6 Aucune
didtok couleurs 4,6 124 Blanc|Noir|Bleu Marine|Vert|Rouge|Marron|Violet|Orange|Jaune|Vert Clair|Bleu Ciel Foncé|Bleu Ciel|Bleu|Rose|Gris|Gris Clair
if (%texte = = off) { did -c couleurs 04 1 | did -cb couleurs 2 1 | did -ub couleurs 7 }
elseif (%texte isnum 0-17) { did -c couleurs 04 $calc(%texte +2) }
if (%fond == off) { did -c couleurs 06 1 }
elseif (%fond isnum 0-17) { did -c couleurs 06 $calc(%fond +2) }
if (%gras == 1�2;) { did -c couleurs 08 }
if (%soul == 1) { did -c couleurs 09 }
if (%maj == 1) { did -c couleurs 10 }
if (%premlettre == 1) { did -c couleurs 12 }
if (%premlettretextre isnum 0-15) { did -c couleurs 14 $calc(% premlettretextre +1) }
if (%premlettrefond == 0) { did -c couleurs 16 $calc( %premlettrefond +1) }
}
on 1:dialog:couleurs:sclick:04: { if (($did(couleurs,04).text Aucune) || ($did(couleurs,04).text $null)) { set %texte off }
elseif ($did(couleurs,04).sel) { set %texte $did(couleurs,04).sel }
}
on 1:dialog:couleurs:sclick:06: { if (($did(couleurs,06).text Aucune ) || ($did(couleurs,2).text $null)) { set %fond off }
elseif ($did(couleurs,06).sel) { set %fond $did(couleurs,06).sel }
}
on 1:dialog:couleurs:sclick:08: {
if ($did(couleurs,08).state == 1) { set %gras �2; } | else { unset %gras }
}
on 1:dialog:couleurs:sclick:09: {
if ($did(couleurs,09).state == 1) { set %soul 1 } | else { unset %soul }
}
on 1:dialog:couleurs:sclick:10: {
if ($did(couleurs,10).state == 1) { set %maj 1 } | else { unset %maj }
}
on 1:dialog:couleurs:sclick:12: {
if ($did(couleurs,12).state == 1) { set %premlettre 1 } | else { unset %premlettre }
}
on 1:dialog:couleurs:sclick:14: {
if ($did(couleurs,14).sel) { set %premlettretexte $did(couleurs,14).sel }
}
on 1:dialog:couleurs:sclick:16: {
if ($did(couleurs,16).sel) { set %premlettrefond $did(couleurs,16).se }
}
et encore là c'est pck j'ai fai un C/C de ton code et l'ai modif sans le repenser pck deja tu pourais regrouper tes on dialog et mm regrouper encore pleins de trucs.
Pour le On input à mon avis le vrai probleme reside dans le premier caractere qui est tapé, à savoir si c'est un "/" ou "!" etc.. donc te suffit de faire un $left($1,1) et de traiter tous les cas possibles.
ISoKa
dialog couleurs {
title "Couleurs d'écriture"
size -1 -1 300 330
box "Couleurs d'écriture",02, 10 55 280 70
text "Texte",03, 20 75 100 20
combo 04, 20 93 115 150,drop,vsbar,drop,size
text "Fond",05, 165 75 100 20
combo 06, 165 93 115 150,drop,vsbar,drop,size
box "Option",07, 10 130 280 50
check "Gras",08, 20 148 50 20
check "Souligné",09, 90 148 60 20
check "1ere lettre majuscule",10, 165 148 120 20
box "1ère Lettre de couleur différente",11, 10 185 280 97
check "Activer",12, 122 207 60 20
text "Texte",13, 20 231 100 20
combo 14, 20 249 115 150,drop,vsbar,drop,size
text "Fond",15, 165 231 100 20
combo 16, 165 249 115 150,drop,vsbar,drop,size
button "Enregistrer",17, 100 291 100 30, ok cancel
}
on 1:dialog:couleurs:init:0: {
var %combo 04
did -a couleurs 4,6 Aucune
didtok couleurs 4,6 124 Blanc|Noir|Bleu Marine|Vert|Rouge|Marron|Violet|Orange|Jaune|Vert Clair|Bleu Ciel Foncé|Bleu Ciel|Bleu|Rose|Gris|Gris Clair
if (%texte = = off) { did -c couleurs 04 1 | did -cb couleurs 2 1 | did -ub couleurs 7 }
elseif (%texte isnum 0-17) { did -c couleurs 04 $calc(%texte +2) }
if (%fond == off) { did -c couleurs 06 1 }
elseif (%fond isnum 0-17) { did -c couleurs 06 $calc(%fond +2) }
if (%gras == 1�2;) { did -c couleurs 08 }
if (%soul == 1) { did -c couleurs 09 }
if (%maj == 1) { did -c couleurs 10 }
if (%premlettre == 1) { did -c couleurs 12 }
if (%premlettretextre isnum 0-15) { did -c couleurs 14 $calc(% premlettretextre +1) }
if (%premlettrefond == 0) { did -c couleurs 16 $calc( %premlettrefond +1) }
}
on 1:dialog:couleurs:sclick:04: { if (($did(couleurs,04).text Aucune) || ($did(couleurs,04).text $null)) { set %texte off }
elseif ($did(couleurs,04).sel) { set %texte $did(couleurs,04).sel }
}
on 1:dialog:couleurs:sclick:06: { if (($did(couleurs,06).text Aucune ) || ($did(couleurs,2).text $null)) { set %fond off }
elseif ($did(couleurs,06).sel) { set %fond $did(couleurs,06).sel }
}
on 1:dialog:couleurs:sclick:08: {
if ($did(couleurs,08).state == 1) { set %gras �2; } | else { unset %gras }
}
on 1:dialog:couleurs:sclick:09: {
if ($did(couleurs,09).state == 1) { set %soul 1 } | else { unset %soul }
}
on 1:dialog:couleurs:sclick:10: {
if ($did(couleurs,10).state == 1) { set %maj 1 } | else { unset %maj }
}
on 1:dialog:couleurs:sclick:12: {
if ($did(couleurs,12).state == 1) { set %premlettre 1 } | else { unset %premlettre }
}
on 1:dialog:couleurs:sclick:14: {
if ($did(couleurs,14).sel) { set %premlettretexte $did(couleurs,14).sel }
}
on 1:dialog:couleurs:sclick:16: {
if ($did(couleurs,16).sel) { set %premlettrefond $did(couleurs,16).se }
}
et encore là c'est pck j'ai fai un C/C de ton code et l'ai modif sans le repenser pck deja tu pourais regrouper tes on dialog et mm regrouper encore pleins de trucs.
Pour le On input à mon avis le vrai probleme reside dans le premier caractere qui est tapé, à savoir si c'est un "/" ou "!" etc.. donc te suffit de faire un $left($1,1) et de traiter tous les cas possibles.
ISoKa
