'Bonjour,
Essayez cette méthide, elle n'est pas pas exhaustive, mais a le mérite de bien fonctionner tout en étatnt très simple a comprebdre...
Salutations. MDs ;-)
'
'
'Créez une form = Name = frmRechercher
Placez da,s cette feuille :
1 - TextBox = Name : Text1
1 - Btn de commande = Name : CmdRechercher
1 - Btn de commande = Name : CmdOk
1 - CheckBox = Name : ChckCasse
'
'Dans un Module...
Public N As Integer
'
'
'RTF = RichTextBox()
'
'
Private Sub CmdRechercher_Click()
If N = 0 Then N = FrmMain.RTF.SelStart
If ChckCasse = 1 Then
N = InStr(N, FrmMain.RTF, Text1)
Else
N = InStr(N, LCase(FrmMain.RTF), LCase(Text1))
End If
If N > 0 Then
With FrmMain.RTF
.SelStart = N - 1
.SelLength = Len(Text1)
.SetFocus
End With
N = N + 1
Else
MsgBox "Recherche terminée !", vbInformation, "Rechercher"
N = 1
End If
End Sub
Private Sub CmdOk_Click()
N = 0
Unload Me
End Sub
'
'Fin --------
'
-------------------------------
Réponse au message :
-------------------------------
> Bonjour tout le monde !
>
> Je cherche un moyen de chercher un mot particulier qui se répète plusieurs fois dans une Rich Text Box et de colorer celui-ci... Comme dans VB, je voudrais que les commandes reconnues par le logicièle soient colorées... Voila !
>
>
> Merci d'avance !
>
> Sebleboss2002
|