Changer la couleur d'un mot en particulier
Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 220 fois - Téléchargée 65 fois
Contenu du snippet
dans un module:
Source / Exemple :
Private Function HLW(rtb As RichTextBox, sFindString As String, Lcolor As Long) Dim LfoundPos As Long Dim LfindLenght Dim LorigSelStart Dim LorigSelLenght Dim ImatchCount As Integer LorigSelStart = rtb.SelStart LorigSelLenght = rtb.SelLength LfindLenght = Len(sFindString) LfoundPos = rtb.Find(sFindString, 0, , rtfNoHighlight) While LfoundPos > 0 ImatchCount = ImatchCount + 1 rtb.SelStart = LfoundPos rtb.SelLength = LfindLenght rtb.SelColor = Lcolor LfoundPos = rtb.Find(sFindString, LfoundPos + LfindLenght, , rtfNoHighlight) Wend rtb.SelStart = LorigSelStart rtb.SelLength = LorigSelLenght HLW = ImatchCount End Function
A voir également
- Changer la couleur d'un mot en particulier
- Texte qui change de couleur html - Guide
- Changer la couleur d un bouton au clic - Forum - Javascript / DHTML
- Changer la couleur de la barre de titre - Codes sources - Visual Basic / VB.NET (Formulaire)
- Changer les couleur du bureau... - Codes sources - Visual Basic / VB.NET (Divers)
- Visual Basic / VB.NET : Progressbar ( changer la couleur) - CodeS SourceS - Guide
Commentaires
- Messages postés
-
7393
- Date d'inscription
- mercredi 23 avril 2003
- Statut
- Membre
- Dernière intervention
- 6 avril 2012
50Je sais que cela fait longtemps que ce code est là...
Une petite amélioration possible serait de typer les variables et non pas seulement 2
Dim LfoundPos As Long
Dim LfindLenght As Long
Dim LorigSelStart As Long
Dim LorigSelLenght As Long
Dim ImatchCount As Integer
De plus si tu sais ce que retourne la fonction, type le aussi plutot que de mettre du Variant.
Private Function HLW(rtb As RichTextBox, sFindString As String, Lcolor As Long) As Integer
Voila.
Sinon à part cela, il semble que ce soit ce que je cherchais.
Alors Merci.
Private Function HLW(rtb As RichTextBox, sFindString As String, Lcolor
ça me dit que j'ai un type non défini par l'utilisateur.
Qqn peut m'aider ?
Ouais. mais je te conseille de remplacer Private par Public sion t'auras du mal a l'utiliser
********************************************************************
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.