PROBLEME DE RECHERCHE DANS UNE TEXTBOX

Signaler
-
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
-
Voila, j'ai dans ma Form1 trois textbox.
Ma form3 est ma fenetre de recherche, identique à celle du bloc note de windows. la textbox sur cette form s'appelle "Text1"

Dans mon application, ce que l'on tape dans text1.text de la form3 doit être trouvé dans text3.text de la form1, et le mettre en surbrillance

mais le probleme, c'est que je n'ai pas le focus sur la textbox "text3"

alors pour contourner çà j'ai fais :

Text3.SetFocus
Form3.Show

du coup la recherche commence toujours au début du texte, et je ne peut pas utiliser l'option de rechercher vers le haut

mon probleme viens du Text3.setfocus, mais si je ne le mets pas je n'ai pas le focus sur la text3.text

mon code de recherche est bon car je l'utilise sur une autre application qui n'a qu'une textbox

j'ai essayé de mettre le TabIndex à 0 sur ma textbox "text3" mais sa donne rien

comment je peux faire?

cau'X

2 réponses

Messages postés
338
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
4 novembre 2008
1
bonjour,
pourquoi tu n'utilise pas le controle richtextbox comme ca tu pourra changé la couleur du text selectionné
exemple

RichTextBox1 = "du text dans richtextbox"
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelBold = False
RichTextBox1.SelColor = RGB(0, 0, 0)


RichTextBox1.SelStart = 1
RichTextBox1.SelLength = 5
RichTextBox1.SelBold = True
RichTextBox1.SelColor = RGB(255, 0, 0)


j'espere que ca resoudra ton probleme

Hassen TUNISIE
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
Salut,





Je ne suis pas certain d'avoir bien compris ton pb...



Avec ton SetFocus, tu peux positionner l'emplacement de ton curseur en utilisant SelStart



Text1.SelStart = Len(Text1.Text) ' pour positionner en fin de texte

'Text1.SelStart = 0 ' pour positionner au début de ton texte

Text1.SetFocus





Pour selectionner une partie du texte il te faut utiliser SelStart et SelLength :

Exemple commencer au 2° char et jusqu'à la fin du texte



Text1.SelStart = 2

Text1.SelLength = Len(Text1.Text)-2

Text1.SetFocus



Avec ça tu dois pouvoir résoudre ton pb..



++



Zlub