Thanks Arnaud,
That works great, no problems now.
Thanks again.
Lennox.
Arnaud Nicolet <[EMAIL PROTECTED]> wrote: 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 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:
Search the archives of this list here:
---------------------------------
Yahoo! Photos
Got holiday prints? See all the ways to get quality prints in your hands ASAP.
_______________________________________________
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>
