Jack,
I am very impressed as your version 'cleaned' my version up nicely. Thank
you so much as it does exactly as I wanted it to do.
Jonathon
----- Original Message -----
From: "CV" <[EMAIL PROTECTED]>
To: "Getting Started" <[email protected]>
Sent: Tuesday, January 10, 2006 4:15 AM
Subject: Re: EditField setfocus
Good. Although I'm not sure that you need to select all of the text and
then move the cursor to the end of the selected text. I would think that
it will work from the button as you wish by just moving the cursor to the
end of the text:
Sub Action()
// Add Date Stamp Code
Dim d as New Date
pNotes.text = pNotes.text + EndOfLine + "[" + d.longdate + "] - "
//pNotes.SelLength=len(pNotes.Text)
//pNotes.SelStart = pNotes.SelLength
pNotes.SelStart = len(pNotes.Text)
pNotes.SetFocus
End Sub
Best,
Jack
On Jan 10, 2006, at 12:19 AM, Jonathon Bevar wrote:
Jack,
I worked on it a bit more and I got this to work perfectly.
// Add Date Stamp Code
Dim d as New Date
pNotes.text = pNotes.text + EndOfLine + "[" + d.longdate + "] - "
pNotes.SelLength=len(pNotes.Text)
pNotes.SelStart = pNotes.SelLength
pNotes.SetFocus
So now after you click on the Add Note button, the DATE is entered and
then
you can start typing without moving the mouse to pre-focus the cursor
after
the " - ".
I like this method as many people have asked for an auto date stamp
feature
that will allow them to enter the date to which the note or comment was
added.
On Jan 9, 2006, at 8:10 PM, Jonathon Bevar wrote:
// Add Date Code
Dim d as New Date
pNotes.text = pNotes.text + EndOfLine + "[" + d.longdate + "] - "
Should look like this:
[Friday, January 7, 2006] -
It will auto enter the DATE fine but it will not put the focus after
the " - ".
How do I get the focus put after the " - "?
// Add Date Code
Dim d as New Date
pNotes.text = pNotes.text + EndOfLine + "[" + d.longdate + "] - "
pNotes.SelStart = len(pNotes.Text) <---------------------
Best,
_______________________________________________
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>
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.371 / Virus Database: 267.14.16/225 - Release Date: 1/9/2006
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.371 / Virus Database: 267.14.16/225 - Release Date: 1/9/2006
_______________________________________________
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>
