Insert text into a text box.[RESOLVED]

[Morgoth]

Hello,

I am trying to figure out how to insert a line of text into a text box where the cursor is located.

Insert "Hello World" into a textbox.
Text Box = "This is so|me text"
| = Cursor
Inserted Text Box = "This is soHello Worldme text"

My first idea is to store the text before the cursor into a variable and the text after the cursor into another variable.
To insert the text I just:

textbox.text = strTextBeforeCursor & strTextInsert & strTextAfterCursor

Anyone else think there is an easier idea?


Thanks for your input!

[RhinoBull]

Try this very simple approach first:

Private Sub Command1_Click()
Dim pos%
 
    pos = Text1.SelStart 'get current cursor position
    Text1.Text = Left(Text1.Text, pos) & "_ABC_" & Mid(Text1.Text, pos + 1)
 
End Sub

[chemicalNova]

Why bother finding where the Cursor is, when SelStart is where it is anyway?

TextBox.SelText = "Hello World"

Phreak

[RhinoBull]

Why bother? Because I wanted to ... But your sample will do it as well.

[chemicalNova]

I realise I sounded a bit annoyed in my previous post. My bad

We're all happy here..

Phreak

[RhinoBull]

... We're all happy here ...

Yea, so far ...

[Morgoth]

I am all smiles here!
:mike:

Thanks for taking the time to answer a stupid question
(so easy)

[RhinoBull]

There aint stupid questions ...
You're welcome.