TEXTBOX

Question

Bonjour, j'aimerais savoir s'il existe un moyen d'améliorer un controle de type textbox pour par exemple mettre des mots en couleur ou en gras (pour VB6)
Merci d'avance à tous

TheLordFreddy · Answer

slt,
tu choisi un nouveau composant dans la bar des outils:
Microsoft Rich TextBox Control
la tu poura mettre des couleur, en gras...

-------------------------------------------
Ne vous fiez pas à l'apparence...

Scalpweb · Answer

je t'expliques rapidement comment utiliser le richtextbox :
par exemple, imaginons que tu veuilles mettre en rouge tout les mots "bonjour" dans ton RichTextBox. Utilises ce code :


LastF = 1
begin:
d = Instr(LastF, RichTextBox.text, "bonjour",vbtextcompare)
 If d <> 0 then
   LastF = d + 1
   richtextbox.selstart = d - 1
   richtextbox.sellength = len("bonjour")
   richtextbox.selcolor = vbred
 Else
   exit sub
 End if
goto begin



Voilà... Enjoy :D

Scalpweb www.PiceWCorp.net à partir du 1 Mai 2004 ! venez nombreux pour programmer gratuit !

TheLordFreddy · Answer

fais attention Scalpweb  evite le plus possible les goto
sauf en cas erreur:
on error goto fin
par exemple
-------------------------------------------
Ne vous fiez pas à l'apparence...

Scalpweb · Answer

Pourquoi faut-il éviter les goto ?

Scalpweb www.PiceWCorp.net à partir du 1 Juillet 2004 ! venez nombreux pour programmer gratuit !

TheLordFreddy · Answer

je sui pas programmeur expérimenté mais tous les programmeur expérimenté te diron la meme chose et j'ai suivi leur conseil car avec les goto tarive pu a suivre surtou quan c'est pas ton code (ca renvoi ou? en bas? en haut? au milieu?) bon pour ton exemple Scalpweb le goto n'a pas l'air méchant mais on commence avec un et puis... si je reprend ton code on pourrai le remplacer par: Dim LastF As Integer LastF = 1 d = -1 Do While d <> 0 d = InStr(LastF, richtextbox.Text, "bonjour", vbTextCompare) If d <> 0 Then LastF = d + 1 richtextbox.SelStart = d - 1 richtextbox.SelLength = Len("bonjour") richtextbox.selcolor = vbRed End If Loop mais ce n'est juste qu'un exemple on pourrai le remplacer par autre chose encore aller a+ ------------------------------------------- Ne vous fiez pas à l'apparence...

Scalpweb · Answer

Ok, c'est vrai... Merci.
C'est clair que c'est plus clair comme ça.

Scalpweb www.PiceWCorp.net à partir du 1 Mai 2004 ! venez nombreux pour programmer gratuit !

TEXTBOX

6 réponses

Discussions similaires