COLORATION SYNTAXIQUE PAR RICHETEXTEBOX ET API (TRÈS RAPIDE)
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
23 juin 2003 à 23:41
psykocrash Messages postés 240 Date d'inscription vendredi 14 juin 2002 Statut Membre Dernière intervention 17 mars 2009 - 16 déc. 2004 à 15:21
psykocrash Messages postés 240 Date d'inscription vendredi 14 juin 2002 Statut Membre Dernière intervention 17 mars 2009 - 16 déc. 2004 à 15:21
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/7591-coloration-syntaxique-par-richetextebox-et-api-tres-rapide
https://codes-sources.commentcamarche.net/source/7591-coloration-syntaxique-par-richetextebox-et-api-tres-rapide
16 déc. 2004 à 15:21
Ton composant est très utile, mais j'aimerais avoir une petite précision. Moi je voudrais l'utiliser dans mes programmes pour interpréter des codes de couleur, comment je fais pour créer la liste ?
Par exemple si le texte est :
##code1##MON TEXTE##/code1##
MONTEXTE doit être colorié en rouge.
Dans le programme qui permet de créer des listes, est ce que je dois entrer :
##code1##*##/code1## pour la couleur rouge ?
(un peut comme pour le texte entre guillemets, mais avec plusieurs codes)
Sinon juste un problème avec Annuler qui met tout en vert, il suffit simplement de faire un .AllScan après pour résoudre le problème.
Bonne continuation :)
Psykocrash
10 nov. 2004 à 12:35
On pourrait pas faire en sorte que les numéros soient actualisés par un timer?
29 déc. 2003 à 15:46
J'espère que j'ai été clair ...
27 déc. 2003 à 14:26
- ouvre le bloc notes et tappe un truc dedant
- sélectionne le et fais COPIER
- change le fichier de mots
- fais COLLER. Il n'est plus là !
Evidemment c'est un détail
23 déc. 2003 à 10:33
pour le bug du presse-papier je vois pas trop mais je vais m'y pencher plus tard.
Pour ce qui est de la coloration d'une zone c assez simple :
il faut (toujours dans la classe clsColoration et dans la fonction FindExpression) ajouter ses quelques lignes :
(il suffie de reprendre le principe de la coloration des string)
il faudra juste remplacer les variable pour pas qu'il y est de conflie
If ColorString = True Then 'Colorisation des String
Do
ComStr(0) = InStr(ComStr(0) + 1, Txt, Chr$(34))
ComStr(1) = InStr(ComStr(0) + 1, Txt, Chr$(34))
If ComStr(0) <> 0 And ComStr(1) <> 0 Then
Call ColorText(RTB, dLigne + ComStr(0) - 1, (ComStr(1) + 1) - ComStr(0), RTB.SelStart, CString, _
fFontSize, fBold, fFont, dColor, dFontSize, dBold, dFont)
ComStr(0) = ComStr(1)
Else
Exit Do
End If
Loop
End If
Puis tu modifie c'est deux lignes
Il fo remplacer Chr$(34) par seque tu veux
ComStr(0) = InStr(ComStr(0) + 1, Txt, Chr$(34))
ComStr(1) = InStr(ComStr(0) + 1, Txt, Chr$(34))
Exemple :
ComStr(0) = InStr(ComStr(0) + 1, Txt, "<!--")
ComStr(1) = InStr(ComStr(0) + 1, Txt, "-->")
voila
22 déc. 2003 à 16:46
- quand on agrandi le compteur de lignes (ex 800), on ne voit plus la flèche de l'ascenseur. Je crois que tu oublie de redimensionner le RTB.
Si tu veux je te dirai à chaque fois ce qui ne va pas. En fait, je fais un prog avec ton contrôle donc je repère vite les bugs.
22 déc. 2003 à 11:54
22 déc. 2003 à 11:38
22 déc. 2003 à 11:35
21 déc. 2003 à 22:31
(il suffie de reprendre le principe des commentaire VB (voir dans la source)
If Commentaire = True Then 'Colorisation des Commentaires
ComVB = InStr(ComVB + 1, Txt, "'")
If ComVB <> 0 Then
Call ColorText(RTB, dLigne + ComVB - 1, Len(Txt) - ComVB + 1, RTB.SelStart, CComantaire, _
fFontSize, fBold, fFont, dColor, dFontSize, dBold, dFont)
End If
End If
Il suffie de modifier cette ligne ComVB InStr(ComVB + 1, Txt, "'") et de mettre a la place ComVB InStr(ComVB + 1, Txt, "//")
Et voila.
Pour ta question, il faut savoir que plus le texte est long plus il faut de tps pour le colorer et bien sur plus le fichier de voca est long et plus il faut de boucle pour analyser un mot c'est 2 facteur sont important. Mais dans la mise a jour que je viens de faire la coloration du texte au chargement et aussi rapide de la coloration du texte lors d'un copier coller.
voila sinon je suis entrain de preparer une nouvelle version qui corrige qq bug et ajoute qq fonction VIVE LES VACANCES je vais pouvoir l'ameliorer
21 déc. 2003 à 19:25
Comment faire pour colorier la fin d'une ligne avec par exemple // à la place de '
Et qu'est-ce qui prend le plus de temps au chargement, un long fichier texte ou un long fichier de vocabulaire ?
22 nov. 2003 à 20:41
22 nov. 2003 à 16:09
RTB.RightMargin = Screen.Width * 2 (par exemple) et dans ce cas les retour a la ligne se feront seulement lorsque la chaîne de caractère et 2 fois plus grande que l'écran. (a toi de mettre la valeur que tu veux).
Sinon cette petite question m'a donner envie de compléter un peu mon Ocx alors je pence faire une petite mise a jour ce week-end. A surveiller donc.
A++ et bonne prog
22 nov. 2003 à 11:50
16 sept. 2003 à 15:40
24 juin 2003 à 14:38
va voir sur www.vbAccelerator.com il le fait dans l'un de ces exemples.
24 juin 2003 à 14:36
http://www.vbMaf.fr.st (Téléchargement)
24 juin 2003 à 14:24
Comme je l'est dit plus haut c'est du au faite que dans une RTB on peu modifier la taille ou la police d'une sélection, ce n'est pas une modification globale comme dans une TextBox.
J'ai donc essayer de résoudre le problème en récupérant la police de chaque ligne qui sont visible. Mais deux autres problème on émerger : D'une par sa ralentissais considerablement de la coloration et d'autre par je suis incapable de récupérer dans une ligne la taille de la police lorsque dans cette même ligne il y en a 2 différentes (taille ou police).
Voilà comment (en gros) je mis suis pris :
1ère : je récupère par la fonction « txtInLigne » le texte de la ligne je le sélectionnais puis par la propriété de la rtb -> .SelFontSize je récupérais la taille de la police et .SelFontName pour la police. Je vous l'accorde la méthode n'est pas terrible et pas toujours fonctionnel mais c'est la seul que j'ai trouver pour palier plus ou moins au pb.
Renfield, j'ai jeté un coup d'oil sur tes sources vraiment très bien faite. J'ai essayer d'adapter le code de ReyTextBox sur une RTB mais sans succès il y a le même problème.
Si tu pouvais me dire se que signifie « hooker » ? merci
Sebmafate , je ne connaissais pas like c'est pour cette raison que je ne lais pas utiliser, peut tu me dire si elle est plus rapide que InStr.
Kirua, ce n'étais pas prévu car le but de cette ocx c'est de permettre à l'utilisateur de colorer seulement les mots qu'il désir de la façon la plus simple pour lui (d'ou l'éditeur). Mais c'est vrais pourquoi ne pas les proposer en option (comme les commentaire vb) dans les propriété.
Je vais mis mettre.
FrostByte, pas de prob je te tien au courent
Si quelqu'un a une idée pour le pb?
24 juin 2003 à 09:40
Perso ton controle m'interesse fortement !! previens moi lorsque tu auras trouvé ton bug !!
Amicalement FrostByte
24 juin 2003 à 08:21
Colorer les chaînes
Sinon oui c rapide ^^ Bonne continuation !
24 juin 2003 à 07:07
Found = txt like "*" & listM(J).Mot & "*"
mais bon c'est une question de goût... c'est du bon boulot.
Séb...
23 juin 2003 à 23:41
va voir l'une de mes sources, qui colorie le code c++ , j'en ai une autre qui montre comment afficher les numeros de lignes, mais c'est au fin fond du controle, donc, amuse toi !!! tu devrai hooker le controle pour modifier les numeros de ligne au moment du scroll.....
c'est une chose qui me tient vraiment a coeur, la coloration syntaxique, et je tien a annoncer que je me remet au boulot la dessus (en plus de mes controles Xp et de mon explorateur, ca fait deja du monde !!!!)
sinon ca va, quelques bugs, mais ca fonctionne bien !!!!! 8/10