What about removing the "me.SelStart = Len(me.text)" line?
If key = chr(9) then
me.SelText = " "
return true
End If
(the main difference is that selected text is replaced, like when
another key (like the space bar) is pressed; also, the insertion point
is not moved)
On 8 janv. 06, at 22:54, Lennox Jacob wrote:
Thanks Jack,
That works great, but if I now find a new insertion point and click
the Tab key it adds the tab where the curser was previously.
Thanks, that works for now.
Lennox
CV <[EMAIL PROTECTED]> wrote:
On Jan 8, 2006, at 10:47 AM, Lennox Jacob wrote:
Hello,
I have an app with a Styled EditField and I have checked Accept
Tabs but it accept Tabs as only one space, how can I configure that
to accept Tabs as five spaces?
You can do something like this:
Function KeyDown(Key As String) As Boolean
dim Spaces as string = " "
If key = chr(9) then
me.SelStart = Len(me.text)
me.SelText = left(Spaces,5)
return true
End
End Function
Best,
Jack
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
