Sélectionner un mot et le colorer (pour editeur de Bat)

Question

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

cs_mds · Answer

'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 --------
'

Sélectionner un mot et le colorer (pour editeur de Bat)

1 réponse

Discussions similaires