[Abandonné] SelStart ne fonctionne pas avec une TextBox

notpa

Nouveau membre
Bonjour !
Je suis avec VB6. Je recherche dans une textbox une chaîne de caractères avec le code suivant :

idx = 100
lg = Len(recherche)
frm_history.histo.SetFocus
frm_history.histo.SelStart = idx
frm_history.histo.SelLength = lg
zone = frm_history.histo.Find(frm_history.recherche)

Recherche = zone text
Histo = textbox format Memo
idx = integer

Problème : quelque soit la valeur que je code dans idx, la recherche (Find) part toujours de 0, même si je force le départ de recherche à 100. Par exemple, le texte recherché est trouvé en position 35 (zone) alors que je demande de démarrer la recherche à partir de 100.

Une idée ? Je sèche..

Merci d'avance

Notpa
 

notpa

Nouveau membre
Je laisse tomber le SelStart. J'ai écrit une boucle qui scanne le texte référence avec celui recherché :

lg = Len(recherche)
boucle:
Do Until idx > Len(frm_history.histo)
z1 = Mid(frm_history.histo.Text, idx, lg)
If z1 = frm_history.recherche Then
zone = idx - 1
GoTo couleur:
Else
idx = idx + 1
End If
Loop
couleur:
frm_history.histo.SelStart = zone
frm_history.histo.SetFocus
frm_history.histo.SelLength = lg
frm_history.histo.SelColor = vbRed

Ce qui est curieux, c'est que le SelStart dans la section Couleur fonctionne !

Ma boucle fonctionne très bien.

Merci à ceux qui m'ont lu.

Notpa
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 091
Membres
1 586 286
Dernier membre
petitangebleu1977
Partager cette page
Haut