Newsgroup: it.comp.lang.visual-basic
Titolo: Rich Text Box

Hi all!
Ho un problema con una rich text box.
Dovrei unire in tale casella il contenuto di una text box normale con quello
di un'altra rich text box.
Del tipo:
RichTextBox2=Text1+RichTextBox1
Il problema e' che nella rich text box di destinazione mi viene mostrato
come testo il codice RTF e non il testo formattato!!!
Questo non succede se copio semplicemente il contenuto della prima rich text
box nella seconda con:
RichTextBox2=RichTextBox1.
Qualcuno sa darmi qualche indicazione?
Thanks in advance...
Ciao, Alfonso.

come testo il codice RTF e non il testo formattato!!!
Ben ti sta, cosi' impari a fidarti delle proprieta' predefinite ;-)
RichTextBox2.Text = Text1.Text + RichTextBox1.Text
-- 
ciao, hal
che aspetta che .net faccia perdere un po' di brutte abitudini :-P

 che aspetta che .net faccia perdere un po' di brutte abitudini :-P
be', col rtb .text e' una delle prime cose che si impara :)
p.e. come me la prima volta che provi a mettere un rtb al posto di un txtbox
e ti tocca scrivere .text 280 volte a manina cercando i punti opportuni...
se cmq in .net .text non e' il default (se i default ancora esistono) del
textbox arrivo a nuoto fino alla lanterna. dal tigullio, sia chiaro, non da
qui. sono un labrador, non un s(h)almone.
j.swim
ps1 - oddio, forse un po' di cautela... a pensarci, in ms potrebbero anche
avere una simile luminosa idea. si bloccherebbero alcuni miliardi di linee
di codice, ma cosa vuoi che sia, e' solo codice vb...
ps2 - il richtextbox. il codice qui sotto mi sembra andasse. notare
l'assoluta presenza del lemma ".text" :)
Option Explicit
Dim sPath As String, sFile As String
Private Sub Command1_Click()
    If sFile = "" Then Exit Sub
    rtb1.LoadFile (sFile)
End Sub
Private Sub Command2_Click()
    If sFile = "" Then Exit Sub
    rtb2.LoadFile (sFile)
End Sub
Private Sub Command3_Click()
    If rtb1.Text = "" Or rtb2.Text = "" Then _
        MsgBox "text missing!"
    Clipboard.Clear
    Clipboard.SetText rtb2.Text, vbCFRTF
    rtb1.SelStart = Len(rtb1.Text)
    If Clipboard.GetFormat(vbCFRTF) Then _
        rtb1.SelText = Clipboard.GetText(vbCFRTF)
End Sub
Private Sub Command4_Click()
    If rtb1.Text = "" Or rtb2.Text = "" Then _
        MsgBox "text missing!"
    rtb1.Text = rtb1.Text & rtb2.Text
End Sub
Private Sub Dir1_Change()
    sFile = ""
    sPath = Dir1.Path
    If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
    File1.Path = sPath
    File1.Refresh
End Sub
Private Sub File1_Click()
    sFile = sPath & File1.FileName
End Sub

 di codice, ma cosa vuoi che sia, e' solo codice vb...
[SNIP]
Fortunatamente di questo se ne occupa il wizard, per il momento non ho visto
problemi...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 ...prepara le pinne, quel tipo di default non esiste piu' :-)
spluff !
(comincio a esercitarmi)
(per fortuna noi lab abbiamo le zampe palmate...)
(hal, comunque ancora e' freschino, se ne riparla in agosto...)
non c'e' un misero default tipo
if optSceglimi
?
bella concisione.
if istrue(optsceglimi.value) then, but only if the user is truly sure, and,
_
            for knowing that, a psycho team should ask him/her
    begin
        'your shitty line of code goes here
    end of begin
end of if
'ndam bein...
j.tacitus

 RichTextBox2.Text = Text1.Text + RichTextBox1.Text
E tu impara a non fidarti del + per concatenare stringhe! :)
RichTextBox2.Text = Text1.Text & RichTextBox1.Text
Altrimenti la tratta a nuoto te la fai tutta sul fondo.
Ciao

Zanna ha scritto:

Hai perfettamente ragione, tant' e' che non lo uso _mai_.
Li' ho fatto un rapido copia-incolla ed aggiunto i ".Text".
-- 
ciao, hal
ok, ok, dietro la lavagna ci vado da solo, non spingete :-(