DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

adding textbox to rtb

•

Join Date: Dec 2008

Posts: 14

Reputation: yuleball is an unknown quantity at this point

Solved Threads: 0

yuleball

Offline

Newbie Poster

adding textbox to rtb

Dec 6th, 2008

I am designing an editor program using rich text box in vb 6.0. I want to add a special box for entering verse or poems so that when I click a button, this box is placed at current position of cursor e-g if cursor is at line#3, the box is placed at line#3 and focus is changed from rtb to box. And after entering text in this box, when i click rtb, focus is changed from box to rtb, also cursor is placed below this box. Also I want that when I save the document, this box is also saved with. I have tried adding text box to accomplish these tasks but i am having problem setting position of textbox, setting focus and position of cursor. Also I dont think it can be saved with document. Is there a way to accomplish this by adding some box to rtb?

•

Join Date: Aug 2007

Posts: 160

Reputation: kb.net is an unknown quantity at this point

Solved Threads: 26

kb.net

Offline

Junior Poster

Re: adding textbox to rtb

Dec 6th, 2008

Hi,

Man i dont wana to dash your hopes, but what you r trying to do is quite difficult using such controls. I advise you to look for an alternative idea.

It is never about the number of languages you know, you either have the logic of programming or you don't ...

Some of the codes I post are collected from different sites during the past couple of years, so I would like to thank them for their help and for enabling me to help.

•

Join Date: Dec 2008

Posts: 14

Reputation: yuleball is an unknown quantity at this point

Solved Threads: 0

yuleball

Offline

Newbie Poster

Re: adding textbox to rtb

Dec 11th, 2008

In Microsft word there is a way to add TextBox. I want to do the same in rtb. Is there a way to do this?

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Offline

Practically a Posting Shark

Re: adding textbox to rtb

Dec 12th, 2008

Hi,

Try This Code :

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
    Dim MyStr As String
    Dim TotRTF As String
    Dim MyText As String
    '
    MyText = "MYTEXTBOX"
    MyStr = "\par \trowd\trgaph108\trleft36\cellx1636\pard\intbl "
    MyStr = MyStr & MyText & "\cell\row\pard\par"
    With RTB
        .SelText = Chr(&H80)
        TotRTF = .TextRTF
        TotRTF = Replace(.TextRTF, "\'80", MyStr)
        .TextRTF = TotRTF
    End With
    Dim MyStr As String
    Dim TotRTF As String
    Dim MyText As String
    '
    MyText = "MYTEXTBOX"
    MyStr = "\par \trowd\trgaph108\trleft36\cellx1636\pard\intbl "
    MyStr = MyStr & MyText & "\cell\row\pard\par"
    With RTB
        .SelText = Chr(&H80)
        TotRTF = .TextRTF
        TotRTF = Replace(.TextRTF, "\'80", MyStr)
        .TextRTF = TotRTF
    End With

Regards
Veena

Quick Reply to Thread

Show Printable Version

Other Threads in the Visual Basic 4 / 5 / 6 Forum

Previous Thread: Match String and extract till EndOfLine
Next Thread: Get Data Help

Thread Tools	Search this Thread
Show Printable Version Email this Page

DaniWeb Message

Cancel Changes