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