cs_max12
Messages postés1491Date d'inscriptiondimanche 19 novembre 2000StatutModérateurDernière intervention 7 juillet 2014 7 juil. 2009 à 23:10
Hum c'est vieux tout ceci, je ne suis pas particulièrement fière de ce code, j'ai presque envie de le désactiver. Enfin, ma bonne idée dans tout ça était le fait de transférer directement en RTF code (pourrait être du HTML a la limite)
cs_piwee
Messages postés34Date d'inscriptionlundi 10 juin 2002StatutMembreDernière intervention20 octobre 2009 7 juil. 2009 à 09:18
Salut,
Ce code me sert bien et fonctionne super.
Merci pour ce code.
Mais j'ai apporté une petite modification à la fonction IsCompleteWord.
j'ai modifié la ligne :
If Left(Texte, 1) " " Or Left(Texte, 1) Chr(10) Then
par
If Left(Texte, 1) " " Or Left(Texte, 1) vbTab Or Left(Texte, 1) = Chr(10) Then
car j'avais juste devant des "If" des tabulations et ils n'étaient pas coloriés.
Noxid
Messages postés78Date d'inscriptionlundi 13 mai 2002StatutMembreDernière intervention 4 mai 2008 16 juin 2004 à 16:56
Vraiment excellent.
GG à toi! :D
Je vais m'en servir pour un editeur de fichiers VBS ;)
Je laisse tes commentaires sans pb :)
++
cs_max12
Messages postés1491Date d'inscriptiondimanche 19 novembre 2000StatutModérateurDernière intervention 7 juillet 2014 25 août 2003 à 20:37
J'ai simplement fait des tests pour les code. Sinon poru faire comme sur Word Toasty a déposer un code qui montre comment. Je crois que sa s'appelais : backcolor dans un richtextbox
cs_PROGRAMMIX
Messages postés1133Date d'inscriptionmercredi 2 octobre 2002StatutMembreDernière intervention24 juillet 20112 24 août 2003 à 20:36
J'aimerais savoir comment tu t'y es pris pour obtenir les codes à utiliser pour la coloration ? +Où puis-je les trouver (j'aimerais par exemple mettre en gras, en italique...) ? Est-il possible de colorer également l'arrière du mot à la manière de Word (comme si on avait utilisé un surligneur) ?
J'ai fait une ataptation de ton code en passant le texte non pas "lettre" par "lettre" mais en utilisant la fonction Split(Texte, " ") et en passant alors les mots en revue les uns après les autres.
EdENGINE
Messages postés1Date d'inscriptiondimanche 12 janvier 2003StatutMembreDernière intervention12 janvier 2003 12 janv. 2003 à 15:44
c'est une bonne idee seulement le code est pas tres ...... Propre
va voir VBtoHtml le code est plus clair plus propre et les If à ralonge c'est une tres mauvaise idee.
7 juil. 2009 à 23:10
7 juil. 2009 à 09:18
Ce code me sert bien et fonctionne super.
Merci pour ce code.
Mais j'ai apporté une petite modification à la fonction IsCompleteWord.
j'ai modifié la ligne :
If Left(Texte, 1) " " Or Left(Texte, 1) Chr(10) Then
par
If Left(Texte, 1) " " Or Left(Texte, 1) vbTab Or Left(Texte, 1) = Chr(10) Then
car j'avais juste devant des "If" des tabulations et ils n'étaient pas coloriés.
16 juin 2004 à 16:56
GG à toi! :D
Je vais m'en servir pour un editeur de fichiers VBS ;)
Je laisse tes commentaires sans pb :)
++
25 août 2003 à 20:37
24 août 2003 à 20:36
J'ai fait une ataptation de ton code en passant le texte non pas "lettre" par "lettre" mais en utilisant la fonction Split(Texte, " ") et en passant alors les mots en revue les uns après les autres.
12 janv. 2003 à 15:44
30 juil. 2001 à 21:33
30 juil. 2001 à 10:18
va voir VBtoHtml le code est plus clair plus propre et les If à ralonge c'est une tres mauvaise idee.
29 juil. 2001 à 17:54
29 juil. 2001 à 09:25
j'ai pas testé mais je suppose que ça marche...
vraiment bien!
http://www.guestfactory.fr.st
29 juil. 2001 à 05:28
Bonne prog