Going to the bottom of EditBox

[Goofus828]

Hi all, I've read [blue] thread1254-1352455 [/blue] and I have a similar situation. I post progress messages to the editbox and as the message grows, I want go to the bottom of the message. I've tried what was suggested in the prior thread but to no success. This is my code.

cString is my message

frmmain.edtMessage.VALUE = frmmain.edtMessage.VALUE + cString
frmmain.edtMessage.SETFOCUS
frmmain.edtMessage.REFRESH
frmmain.edtMessage.SELSTART = 0
frmmain.edtMessage.SELLENGTH = LEN(frmmain.edtMessage.VALUE )
KEYBOARD "{Ctrl+end}"

All this does is highlight the text from the top to the bottom but never does it move the cursor to the bottom of the edit box.


Any help is appreciated.
Thanks.

 

[Mike Lewis]

Basically, you've got too much code. This is all you need:

frmmain.edtMessage.VALUE = frmmain.edtMessage.VALUE + cString
frmmain.edtMessage.SETFOCUS
frmmain.edtMessage.SELLENGTH = LEN(frmmain.edtMessage.VALUE )

If that doesn't work, try switching round the last two lines.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[dgrewe]

Where did you place the code, What Method?


David W. Grewe Dave

 

[Olaf Doschke]

Set SelStart to len(value), that moves the scrollbar to the bottom. SelLen does not matter, unless you want everything to appear selected/inverted.

Bye, Olaf.

 

[Imaginecorp]

Like Olaf suggested:

****Editbox INIT() or gotfocus() if not the first control

***Cursor is after the last character in edit box
thisform.edit1.SelStart = LEN(thisform.edit1.VALUE)+1

**Cursor in New line,
thisform.edit1.SelStart = LEN(thisform.edit1.VALUE)+1
KEYBOARD '{ENTER}'

If setting focus from another control:
add the following to the above
thisform.edit1.SETFOCUS()

 

[MarciaAkins]

I post progress messages to the editbox and as the message grows, I want go to the bottom of the message.

KEYBOARD "{Ctrl+end}"

In the edit box's GotFocus() should do it for you.

However, an alternative approach might be to use a listbox instead. Code like this to display progress:

WITH Thisform.lstProgress
  .AddItem( 'This is a progress message...' )
  .ListIndex = .NewIndex
ENDWITH

Marcia G. Akins

http://www.TightlineComputers.com

 

[Goofus828]

Thanks to all who offered suggestions.