[vb6] Colorare parte di testo in txtbox

[ianstilo]

come posso fare a colorare una parte di testo per esempio:

tutto il testo nero tranne quello tra le parentesi () che deve essere verde.........

[Gugu]

Non ti sarò di aiuto.. se non per dirti che secondo me non si può fare!
O almeno.. con "vb6 standard" non è possibile, dovresti provare con delle api particolari.. ma la cosa diventerebbe complicata.
Devi per forza usare una textbox??
Cioè un campo di inserimento testo?
Se è un campo di visualizzazione e basta potresti affiancare 3 label in modo che non si veda neanche lo stacco..

[ianstilo]

deve essere un textbox.....

[junx]

non puoi se non con il subclassing, ma vista la difficoltà di questa tecnica è melgio lasciar perdere e usare controlli di terze parti, o a limite un RichTextbox.

[ianstilo]

ok...con questo più o meno funziona....
ma ha qualche problema....qualcuno potrebbe provarlo e "aggiustarmelo"...perchè quando scrivo i delimitatori che ho scelto mi fa casino...e poi il cursore mi va sempre alla fine del foglio...cioè all'ultimo carattere..

 Private Sub ColorTags(txtEdit As RichTextBox)

Dim txt As String
Dim tag_open As Integer
Dim tag_close As Integer

    txt = txtEdit.Text
    tag_close = 1
    Do
        ' See where the next tag starts.
        tag_open = InStr(tag_close, txt, "(")
        If tag_open = 0 Then Exit Do
        
        ' See where the tag ends.
        tag_close = InStr(tag_open, txt, ")")
        If tag_open = 0 Then tag_close = Len(txt)
        
        ' Color the tag.
        txtEdit.SelStart = tag_open - 1
        txtEdit.SelLength = tag_close - tag_open + 1
        txtEdit.SelColor = vbRed
    Loop
End Sub

grazie!

[ianstilo]

ovviamente ora ho messo una rich text box

[ianstilo]

cacchio....

come posso fare?