save position of cursor in a textbox

[TNL]

Hi,
I have a textbox, I want to save the cursor postion in this textbox in a
variable, when user leaves it ( event lostFocus).
When user click a button, a correspond. text will be insert in the actual
position.

But on event Lostfocus I receive only value 0:

private iPos as integer
Private Sub txtRegel_LostFocus()
iPos = txtRegel.SelStart
End Sub

Can anybody help me.
Thanks

 

[Marshall Barton]

I have a textbox, I want to save the cursor postion in this textbox in a
variable, when user leaves it ( event lostFocus).
When user click a button, a correspond. text will be insert in the actual
position.

But on event Lostfocus I receive only value 0:

private iPos as integer
Private Sub txtRegel_LostFocus()
iPos = txtRegel.SelStart
End Sub

The issue here is that the text box's AfterUpdate event
clears the Sel... properties. This means that you need to
use the BeforeUpdate event to save SelStart when the text
box was edited. Use the LostFocus event to save SelStart
when the text box was just clicked on whtout changing it.

You'll need to clear a module level flag variable in the
GotFocus event and set it in the BeforeUpdate event so the
LostFocus event can tell if it was edited or not.

 

[TNL]

Thanks very much.
It works correctly.
Is this documented anywhere?

TNL

 

[Marshall Barton]

Thanks very much.
It works correctly.

You're welcome.

Is this documented anywhere?

No, not that I've ever heard of.
I just kind of figured it out using trial,
error, intuition and 40 years of
programming experience ;-)