Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 480 fois - Téléchargée 67 fois
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
23 nov. 2007 à 08:40
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.
14 mars 2003 à 10:34
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 ?
24 mars 2002 à 14:30
Ouais. mais je te conseille de remplacer Private par Public sion t'auras du mal a l'utiliser
********************************************************************
3 juil. 2001 à 11:14
19 mai 2001 à 02:21
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.