Newsgroup: it.comp.lang.visual-basic
Titolo: (?) codice RTF

Come posso modificare in Run-Time il codice RTF di un controllo RTF?
devo trasformare una parte di testo da normale a grassetto o viceversa,
oppure sottolineare, tabulare..insomma un piccolo editor di testo con:
Grassetto - Sottolineato - Corsivo
Tabulazione
Elenco Numerato (o simile)
Diverso carattere nel testo
Grandezza diversa carattere
Grazie a chiunque mi aiuti!!

 oppure sottolineare, tabulare..insomma un piccolo editor di testo con:
Non vorrei sembrarti scorbutico, ma hai provato a guardare l' help del
controllo RTF e tutte le relative proiprietą e i metodi? Non ci vuole molto
a fare ciņ che chiedi....
Se vuoi spedirmi insulti ot similia sappi che parto stasera per le vacanze
estive e quindi me li sgamerei ;-)
Ciao
Daniele
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 wrote in message
7p4m5g$soc$2...@nslave1.tin.it...


 Grazie a chiunque mi aiuti!!
La soluzione migliore è quella di crearti un file RTF e poi editarlo con un
qualsiasi Text-Editor. In questo modo ti puopi studiare il formato e poi
impostare la proprietà TextRTF con una stringa corrispondente al formato...
CIAO!

Ti faccio questo esempio con i fonts ma è identico per tutte le altre
proprietà come il colore, l'allineamento od altro:
'Per prima cosa ( per emulare i programmi di word processing )
'riempo una combo box con i font disponibili sulla 'stampante predefinita:
'cbFont è la ComboBox
Private Sub RiempiComboFont()
    Dim oPrint As Printer
    Dim i As Integer
    Dim strFont As String
    Set oPrint = Printer
    For i = 0 To oPrint.FontCount
        strFont = oPrint.Fonts(i)
        If Not IsEmptyString(strFont) Then
            cbFont.AddItem strFont
        End If
    Next i
    cbFont.ListIndex = 0
    Set oPrint = Nothing
End Sub
' Faccio una cosa simile con le dimensioni
Private Sub RiempiSizeFont()
    Dim i As Integer
    For i = 8 To 72 Step 2
        cbSize.AddItem i
    Next i
    cbSize.ListIndex = 1 ' font 10
End Sub
'Poi scrivo queste procedure publiche poichè
'l'impostazione delle propietà la faccio con i pulsanti di una barra di
pulsanti,
'ma è ovvio che puoi fare come meglio credi:
Public Sub RunGrassetto()
    RichTextBox.SelBold = Not RichTextBox(udeRTFAttivo).SelBold
    RichTextBox.SetFocus
End Sub
Public Sub RunSottolineato()
    RichTextBox.SelUnderline = Not RichTextBox(udeRTFAttivo).SelUnderline
    RichTextBox.SetFocus
End Sub
Public Sub RunItalic()
    RichTextBox.SelItalic = Not RichTextBox(udeRTFAttivo).SelItalic
    RichTextBox.SetFocus
End Sub
Public Sub RunChangeFont()
    RichTextBox.SelFontName = ofrmMain.cbFont.Text
    RichTextBox.SelFontSize = Val(ofrmMain.cbSize.Text)
    RichTextBox.SetFocus
End Sub
Public Sub RunChangeSize()
    On Error Resume Next
    RichTextBox.SelFontSize = ofrmMain.cbSize.Text
    RichTextBox.SetFocus
End Sub
' Questa procedura imposta i pulsanti o le combo box
'con la propietà corretta del testo che attualmente si trova sul cursore
Private Sub RichTextBox_SelChange()
    On Error Resume Next
    Select Case RichTextBox.SelBold
        Case True
            ofrmMain.ToolBarType.Buttons(bttBold).Value = tbrPressed
        Case False
            ofrmMain.ToolBarType.Buttons(bttBold).Value = tbrUnpressed
    End Select
    Select Case RichTextBox.SelItalic
        Case True
            ofrmMain.ToolBarType.Buttons(bttItalic).Value = tbrPressed
        Case False
            ofrmMain.ToolBarType.Buttons(bttItalic).Value = tbrUnpressed
    End Select
    Select Case RichTextBox.SelUnderline
        Case True
            ofrmMain.ToolBarType.Buttons(bttSottolineato).Value = tbrPressed
        Case False
            ofrmMain.ToolBarType.Buttons(bttSottolineato).Value =
tbrUnpressed
    End Select
   cbFont.Text = "" & RichTextBox.SelFontName
   cbSize.Text = "" & RichTextBox.SelFontSize
End Sub
Spero di essere stato chiaro o cominque di averti dato lo spunto.
PS Per tutti quelli che consigliano di leggere l'help:
E' chiaro che leggere l'help è necessario, ma quante volte avete passato la
nottata a sfogliare MSDN cercando qualcosa che sicuramente avreste trovato
ma senza sapere con che tempi.
L'aiuto che si fornisce su questo NG deve essere anche di questo tipo, se
avete già risolto un problema, perchè non aiutare qualcun'altro a fare prima
nella risoluzione dello stesso problema.
--
      Pino Saffioti
-----------------------------------
pino.s...@asl1.to.it

 wrote in message
7pdvkn$4ms$1...@fe1.cs.interbusiness.it...
