En cette heure matinale, bonjour,
Dans une appli, je voudrais pouvoir sélectionner une partie du texte
d'un TextBox (partie entre parenthèses) et lui changer la couleur.
Est ce possible ?
et si oui, comment ?
Pour la sélection, j'ai déja écrit ça :
Private Sub Command2_Click()
Dim x As Long
For x = 1 To Len(TxtDonnees.Text)
If car = "(" Then TxtDonnees.SelStart = x
If car = ")" Then
TxtDonnees.SelLength = x - TxtDonnees.SelStart + 1
TxtDonnees.SelText.ForeColor = 8 'Couleur verte : à trouver
End If
Next
End Sub
Suis je sur la bonne voie ? Par contre, j'ai une erreur sur la couleur
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-marc
"JLuc" wrote in message news:
En cette heure matinale, bonjour, Dans une appli, je voudrais pouvoir sélectionner une partie du texte d'un TextBox (partie entre parenthèses) et lui changer la couleur. Est ce possible ? et si oui, comment ? Pour la sélection, j'ai déja écrit ça :
Private Sub Command2_Click() Dim x As Long For x = 1 To Len(TxtDonnees.Text) If car = "(" Then TxtDonnees.SelStart = x If car = ")" Then TxtDonnees.SelLength = x - TxtDonnees.SelStart + 1 TxtDonnees.SelText.ForeColor = 8 'Couleur verte : à trouver End If Next End Sub
Hello,
pour faire cela, il te faut un control RichTextBox: ProjetsComposantsMicrosoft RichTextBox.
Ca marche comme un textbox mais on peut colorier.
VOici un code qui fonctionne (testé ce matin):
Private Sub Command2_Click() Dim p1 As Long, p2 As Long, txt As String
txt = txtDonnees.Text p1 = InStr(txt, "(") If p1 Then p2 = InStr(p1, txt, ")") If p2 Then ' colorie en vert le texte entre paretnhèses ET les parenthèses txtDonnees.SelStart = p1 - 1 txtDonnees.SelLength = p2 - p1 + 1
' pour ne colorier que la partie entre parenthèses ' mais pas les parenthèses 'txtDonnees.SelStart = p1 'txtDonnees.SelLength = p2 - p1 - 1
txtDonnees.SelColor = RGB(0, 255, 0) ' VERT End If End If
"JLuc" <ns.jeanluc.laurent@free.fr.ns> wrote in message
news:mn.98097d71ce6fb8ef.40692@free.fr.ns...
En cette heure matinale, bonjour,
Dans une appli, je voudrais pouvoir sélectionner une partie du texte d'un
TextBox (partie entre parenthèses) et lui changer la couleur.
Est ce possible ?
et si oui, comment ?
Pour la sélection, j'ai déja écrit ça :
Private Sub Command2_Click()
Dim x As Long
For x = 1 To Len(TxtDonnees.Text)
If car = "(" Then TxtDonnees.SelStart = x
If car = ")" Then
TxtDonnees.SelLength = x - TxtDonnees.SelStart + 1
TxtDonnees.SelText.ForeColor = 8 'Couleur verte : à trouver
End If
Next
End Sub
Hello,
pour faire cela, il te faut un control RichTextBox:
ProjetsComposantsMicrosoft RichTextBox.
Ca marche comme un textbox mais on peut colorier.
VOici un code qui fonctionne (testé ce matin):
Private Sub Command2_Click()
Dim p1 As Long, p2 As Long, txt As String
txt = txtDonnees.Text
p1 = InStr(txt, "(")
If p1 Then
p2 = InStr(p1, txt, ")")
If p2 Then
' colorie en vert le texte entre paretnhèses ET les parenthèses
txtDonnees.SelStart = p1 - 1
txtDonnees.SelLength = p2 - p1 + 1
' pour ne colorier que la partie entre parenthèses
' mais pas les parenthèses
'txtDonnees.SelStart = p1
'txtDonnees.SelLength = p2 - p1 - 1
txtDonnees.SelColor = RGB(0, 255, 0) ' VERT
End If
End If
En cette heure matinale, bonjour, Dans une appli, je voudrais pouvoir sélectionner une partie du texte d'un TextBox (partie entre parenthèses) et lui changer la couleur. Est ce possible ? et si oui, comment ? Pour la sélection, j'ai déja écrit ça :
Private Sub Command2_Click() Dim x As Long For x = 1 To Len(TxtDonnees.Text) If car = "(" Then TxtDonnees.SelStart = x If car = ")" Then TxtDonnees.SelLength = x - TxtDonnees.SelStart + 1 TxtDonnees.SelText.ForeColor = 8 'Couleur verte : à trouver End If Next End Sub
Hello,
pour faire cela, il te faut un control RichTextBox: ProjetsComposantsMicrosoft RichTextBox.
Ca marche comme un textbox mais on peut colorier.
VOici un code qui fonctionne (testé ce matin):
Private Sub Command2_Click() Dim p1 As Long, p2 As Long, txt As String
txt = txtDonnees.Text p1 = InStr(txt, "(") If p1 Then p2 = InStr(p1, txt, ")") If p2 Then ' colorie en vert le texte entre paretnhèses ET les parenthèses txtDonnees.SelStart = p1 - 1 txtDonnees.SelLength = p2 - p1 + 1
' pour ne colorier que la partie entre parenthèses ' mais pas les parenthèses 'txtDonnees.SelStart = p1 'txtDonnees.SelLength = p2 - p1 - 1
txtDonnees.SelColor = RGB(0, 255, 0) ' VERT End If End If
Salut Jean-Marc, Ca y est, j'ai pu m'atteler à la tache... C'est impeccable et j'ai modifié un peu le code pour tous les commentaires entre paranthèses. Merci
Salut Jean-Marc,
Ca y est, j'ai pu m'atteler à la tache...
C'est impeccable et j'ai modifié un peu le code pour tous les
commentaires entre paranthèses.
Merci
Salut Jean-Marc, Ca y est, j'ai pu m'atteler à la tache... C'est impeccable et j'ai modifié un peu le code pour tous les commentaires entre paranthèses. Merci