save position of cursor in a textbox

  • Thread starter Thread starter TNL
  • Start date Start date
T

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
 
TNL said:
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
Click to expand...


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 said:
Thanks very much.
It works correctly.
Click to expand...

You're welcome.

Is this documented anywhere?
Click to expand...

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 ;-)
 
Back
Top