Errore di overflow nella ricerca in richtextbosx

di il
4 risposte

Errore di overflow nella ricerca in richtextbosx

Buon pomeriggio,
oggi mi è capitato un altro problema nella ricerca di una parola in una richctextbox che carica il testo da un file mbd, ovvero ho notato che se la richctextbox contiene tantissimo testo mi da un errore di run-time "6": overflow.
Mi spiego meglio:
Scrivo in una textbox la parola da cercare nella richctextbox e quando la trova viene evidenziata in grassetto e in rosso.
Per testi non lunghissimi inseriti nella richctextbox tutto va bene ma per testi molto lunghi (ad es. 15-20 pagine) mi da l'errore suddeto.
ecco il codice:

Private Sub Cerca(txt As String)
Dim I As Integer
I = 1
Do
If cmb_cerca.Text = "Testo" Then
I = InStr(I, txt_testo.Text, str, vbTextCompare) - 1
If (I < 0) Then Exit Do
txt_testo.SelStart = I
txt_testo.SelLength = Len(str)
txt_testo.SelBold = True
txt_testo.SelColor = vbRed
I = I + 2
End If
Loop
End Sub

4 Risposte

Devi accedere o registrarti per scrivere nel forum
4 risposte