How to transfer 5 text boxes to 1 RTFbox and 1 of them in Italic?
Posted on 2003-02-25
I need to select a text in RTF text box in order to afterwards make that selection in italic.
My idea is to have like 5 text boxes, all will be toghether, but box number 3 will be italic.
Each time I click Insert button, an RTF box will have Box1 & box2 & box3... but number 3 is in italic.
Anyone can help me?
This is the code I've tried:
Private Sub Insert_Click()
italicfinder$ = txt3.Text
newline$ = Chr(13) + Chr(10)
frmMain.rtfBox.Text = frmMain.rtfBox.Text & txt2.Text & "." & txt3.Text & txt4.Text & txt5.Text & newline$
Dim foundpos As Integer
foundpos = frmMain.rtfBox.Find(italicfinder$, , , rtfWholeWord)
If foundpos <> -1 Then
frmMain.rtfRefs.Span " ", True, True
frmMain.rtfRefs.SelBold = True
MsgBox "Not found"
This doesn't work.
Maybe there is another way to have those in the RTFBox and each time i click insert more will go into the new line (always with textbox 3 italic)
Thanks to everyone!