[VB6] evidenziare parola cercata

[Lasentinella]

io ho fatto un programma che cerca all'interno di una textbox una parola...quando la trova dovrebbe evidenziarla, ma non so che codice mettere !Ho provato a cercare altri topic, ma non so come mettere setlenght (o il comando che é)!
la txt si chiama txt_testo, e non so come fareee aiutatemi pls
grazie

[Lasentinella]

uppo il codice, magari vi aiuta, anche se per ora dice solo se ha o non ha trovato la parola

Private Sub cmd_cerca_Click()
Dim i As Integer
Dim testo As String
Dim ricerca As String
Dim n As Integer
Dim l As Integer
Dim trovato As Boolean

ricerca = txt_ricerca.Text
testo = txt_testo.Text

n = Len(testo)
l = Len(ricerca)

trovato = False
Do
    For i = 1 To n
        If (ricerca = Mid(testo, i, l)) Then
            trovato = True

        End If
    Next i
Loop Until (trovato = True Or i > n)

If trovato = True Then
    MsgBox ("Trovato")
Else
    MsgBox ("Non trovato")
End If
        
End Sub

[Corwin]

Private Sub cmd_cerca_Click()
Dim i As Integer
Dim testo As String
Dim ricerca As String
Dim n As Integer
Dim l As Integer
Dim trovato As Boolean

ricerca = txt_ricerca.Text
testo = txt_testo.Text

n = Len(testo)
l = Len(ricerca)

trovato = False
Do
    For i = 1 To n
        If (ricerca = Mid(testo, i, l)) Then
            trovato = True
            exit do
        End If
    Next i
Loop Until (trovato = True Or i > n)

txt_testo.SelStart = i - 1
txt_testo.SelLength = l

If trovato = True Then
    MsgBox ("Trovato")
Else
    MsgBox ("Non trovato")
End If
        
End Sub

Devi anche impostare la proprietà HideSelection di txt_testo a false.

[alesssia]

E se invece di evidenziare il testo in una text box volessi evidenziare quello di una stringa non è possibile, vero?

[Lasentinella]

Anche scrivendo quello non me lo evidenzia...
Mi potresti anche spiegare cosa fanno rispettivamente selstart e sellenght ?Qual'é delle 2 che evidenzia?
Grazie ancora

[Corwin]

Uh, a parte che le istruzioni con selStart e SelLenght dovrebbero andare dentro if trovato etc...
sei sicuro/a di aver settato la proprietà HideSelection di txt_testo a false ? Avevo fatto copia e incolla della sub e funzionava benissimo.
In ogni caso SelStart indica da che carattere vuoi che il testo sia selezionato, SelLength indica quanti caratteri selezionare a partire da quel punto.

x alesssia: cosa intendi per "evidenziare quello di una stringa" ?

[Lasentinella]

Okk funziona perfettamente grazie
Ultimissima domanda : Se io volessi, invece di evidenziare la parola, cambiarle solo colore (e magari farla diventare rossa)?Come potrei fare ?
Grazie

[Corwin]

Il colore con cui viene evidenziato il testo non dipende dal controllo ma dalle impostazioni di windows. Quindi, in linea di massima, direi di no.

[Lasentinella]

noo non dicevo di cambiare colore all'evidenziatura, ma di cambiare colore alla scritta!!E' fattibile ?

[Corwin]

Originariamente inviato da Lasentinella
noo non dicevo di cambiare colore all'evidenziatura, ma di cambiare colore alla scritta!!E' fattibile ?

A quanto mi risulta se dico a un TextBox che deve scrivere in rosso mi scrive TUTTO in rosso, non la parola selezionata in quel momento.