[VB6] Frase di default con testo standard e neretto in un richtextbox

[Alethesnake]

Ciao,
ho inserito un richtextbox in un form e vorrei che contenesse un testo di default all'apertura parte in neretto e parte normale, ex:

Ciao a tutti!

tuttavia non so come fare ad inserire il testo nerettato.. ho provato un mix con html

me.richTextBox1.Value = "Ciao a tutti!"

ma ovviamente non ha funzionato. Sapete suggerirmi come fare?

[ladyBlu]

Per formattare il testo di un RichTextBox devi utilizzare una specie di tag html.
Io ho fatto una cosa simile, però in neretto ci sta il titolo.
Ti riporto il codice così com'è sulla prova che ho fatto.
Ho un form con un RichTextBox e un CommandButton:

Private Sub Command2_Click()
   Dim strTesto As String

   strTesto = "{\rtf1\ansi\ansicpg1252\deff0\
   strTesto = strTesto & "deflang1040{\fonttbl"
   strTesto = strTesto & "{\f0\fnil\fcharset0 MS Sans Serif;}}"
   strTesto = strTesto & "{\colortbl ;\red0\green0\blue0;}"
   strTesto = strTesto & "\viewkind4\uc1\pard\qj\cf1\b\f0\fs16 "
   strTesto = strTesto & "----- Titolo Neretto -----\b0"
   strTesto = strTesto & "\par"
   strTesto = strTesto & "\par"
   strTesto = strTesto & "\par Prova a scrivere testo non grassetto "
   strTesto = strTesto & "Prova a scrivere testo non grassetto "
   strTesto = strTesto & "Prova a scrivere testo non grassetto "
   strTesto = strTesto & "Prova a scrivere testo non grassetto "
   strTesto = strTesto & "Prova a scrivere testo non grassetto "
   strTesto = strTesto & "Prova a scrivere testo non grassetto "
   strTesto = strTesto & "Prova a scrivere testo non grassetto "
   strTesto = strTesto & "Prova a scrivere testo non grassetto "
   strTesto = strTesto & "Prova a scrivere testo non grassetto."
   strTesto = strTesto & "\par"
   strTesto = strTesto & "\par Prova a scrivere testo non grassetto "
   strTesto = strTesto & "\par"
   strTesto = strTesto & "\par Prova a scrivere testo non grassetto "
   strTesto = strTesto & "Prova a scrivere testo non grassetto "
   strTesto = strTesto & "Prova a scrivere testo non grassetto "
   strTesto = strTesto & "Prova a scrivere testo non grassetto "
   strTesto = strTesto & "Prova a scrivere testo non grassetto."
   strTesto = strTesto & "\par \pard Prova a scrivere "
   strTesto = strTesto & "testo non grassetto "
   strTesto = strTesto & "Prova a scrivere testo non grassetto."
   strTesto = strTesto & "\cf0\f1\fs20"
   strTesto = strTesto & "\par }"

   RichTextBox1.TextRTF = strTesto

End Sub

[Alethesnake]

Era quello che cercavo, grazie

[giuSp]

senza impazzirti con il codice RTF...utilizza SelectionBold=true...

1) trova l'indice del carattere da cui vuoi iniziare ad usare il grassetto, e poi la lunghezzza...
2) selezioni
3) imposti il grassetto
4) deselezioni

tradotto:

rtb.text="Ciao a tutti"
inizio=InStr(rtb.text,"tutti")
rtb.SelectionStart=inizio
rtb.SelectionLength=5
rtb.SelectionBold=true
rtb.SelectionLength=0
'magari sposti anche il cursore in una determinata pos SelStart=x

forse a inizio dovresti metterci -1, o forse mi sbaglio...
cmq dovrebbe funzionare....

[Alethesnake]

Originariamente inviato da giuSp
senza impazzirti con il codice RTF...utilizza SelectionBold=true...

1) trova l'indice del carattere da cui vuoi iniziare ad usare il grassetto, e poi la lunghezzza...
2) selezioni
3) imposti il grassetto
4) deselezioni

tradotto:

rtb.text="Ciao a tutti"
inizio=InStr(rtb.text,"tutti")
rtb.SelectionStart=inizio
rtb.SelectionLength=5
rtb.SelectionBold=true
rtb.SelectionLength=0
'magari sposti anche il cursore in una determinata pos SelStart=x

forse a inizio dovresti metterci -1, o forse mi sbaglio...
cmq dovrebbe funzionare....

Forte, grazie

[ladyBlu]

Originariamente inviato da giuSp
senza impazzirti con il codice RTF...utilizza SelectionBold=true...

1) trova l'indice del carattere da cui vuoi iniziare ad usare il grassetto, e poi la lunghezzza...
2) selezioni
3) imposti il grassetto
4) deselezioni

tradotto:

rtb.text="Ciao a tutti"
inizio=InStr(rtb.text,"tutti")
rtb.SelectionStart=inizio
rtb.SelectionLength=5
rtb.SelectionBold=true
rtb.SelectionLength=0
'magari sposti anche il cursore in una determinata pos SelStart=x

forse a inizio dovresti metterci -1, o forse mi sbaglio...
cmq dovrebbe funzionare....

molto carino
per quello che ho fatto io nel software mi serviva il testo RTF però questo lo terrò a mente

Solo una precisazione, per eventuali utenti a cui servisse la stessa cosa:
le proprietà non sono Selection... ma Sel... e poi, come ha già detto giuSp, a inizio ci va il -1; inoltre io passerei alla proprietà SelLength il risultato di una Len().
Quindi il tuo codice andrebbe modificato in questo modo:

rtb.text = "Ciao a tutti"
inizio = InStr(rtb.text, "tutti")
rtb.SelStart = inizio - 1
rtb.SelLength = Len("tutti")
rtb.SelBold = True
rtb.SelLength = 0

cmq grazie giuSp perchè il tuo codice mi sarà sicuramente utile