PROBLEME DE RECHERCHE DANS UNE TEXTBOX

Question

Voila, j'ai dans ma Form1 trois textbox.
Ma form3 est ma fenetre de recherche, identique &#224; 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 &#234;tre trouv&#233; 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 &#231;&#224; j'ai fais :

Text3.SetFocus
Form3.Show

du coup la recherche commence toujours au d&#233;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&#233; de mettre le TabIndex &#224; 0 sur ma textbox "text3" mais sa donne rien

comment je peux faire?

cau'X

cs_hassen · Answer

bonjour,
pourquoi tu n'utilise pas le controle richtextbox comme ca tu pourra chang&#233; la couleur du text selectionn&#233;
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

Zlub · Answer

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&#233;but de ton texte

  Text1.SetFocus





Pour selectionner une partie du texte il te faut utiliser SelStart et SelLength :

Exemple commencer au 2&#176; char et jusqu'&#224; la fin du texte



Text1.SelStart = 2

Text1.SelLength = Len(Text1.Text)-2

Text1.SetFocus



Avec &#231;a tu dois pouvoir r&#233;soudre ton pb.. 



++



Zlub

PROBLEME DE RECHERCHE DANS UNE TEXTBOX

2 réponses

Discussions similaires