Changer la couleur d'un mot en particulier
Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 053 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
- 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)
- Progressbar ( changer la couleur) - Codes sources - Visual Basic / VB.NET (API)
- Couleur vb change la couleur d'un document pour lui donner un style vb - Codes sources - Visual Basic / VB.NET (Texte)
- Visual Basic / VB.NET : Barre de progression soft et avec changement de couleur du texte à la - Guide
Commentaires
Ouais. mais je te conseille de remplacer Private par Public sion t'auras du mal a l'utiliser
********************************************************************
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 ?
Je 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.
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.