Tracy, I wonder if the page up/page down is being sent on to the listbox on the next page. Have you tried, after trapping the keypress, replacing nKeyCode with 0 before exiting the Keypress event?
In otherwords, DoDefault(0, 0).
Alan
>Hi Marcia,
>
>Yes, I do have code in the form's keypress. It sets the focus to the first control on every page when the user presses pageup or pagedown anywhere on the form. That works fine, except that when the user presses pagedwn if the first control on the next page is a listbox, the selected item in the listbox is the last record in the table or the last item in the listbox. That is all I need to change. I must've overlooked something?
>
>Since these pages are added and removed dynamically during runtime in the form's init based on page names that are listed in an array, I have named the first control on each page controltop and the last control on each page controlbottom so I can use generic code to know which control to set focus to when the user changes pages.
>
>What is strange is that when the user moves to the next page by exiting the last control on a page when the next page receives focus, the listbox is at the top of the list as it should be. I have posted the lostfocus code of the last control on a page below also. It is strange that it works in that case but not when using pagedown.
>
>I realize I could shorten the below code now that all the top controls share the same name, but I haven't done it yet.
>
>Form's keypress:
>
>
>LPARAMETERS nKeyCode, nShiftAltCtrl
>
>DO CASE
> CASE nKeyCode = 18 .AND. nShiftAltCtrl = 0
> IF THISFORM.PAGEFRAME.ACTIVEPAGE > 1
> THISFORM.PAGEFRAME.ACTIVEPAGE = THISFORM.PAGEFRAME.ACTIVEPAGE - 1
> ELSE
> THISFORM.PAGEFRAME.ACTIVEPAGE = THISFORM.PAGEFRAME.PAGECOUNT
> ENDIF
> DO CASE
>*--This works fine when moving through pages using pageup the listbox
>*--is at the top of the list everytime on everypage.
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 1
> THISFORM.PAGEFRAME.Page1.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 2
> THISFORM.PAGEFRAME.Page2.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 3
> THISFORM.PAGEFRAME.Page3.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 4
> THISFORM.PAGEFRAME.Page4.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 5
> THISFORM.PAGEFRAME.Page5.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 6
> THISFORM.PAGEFRAME.Page6.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 7
> THISFORM.PAGEFRAME.Page7.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 8
> THISFORM.PAGEFRAME.Page8.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 9
> THISFORM.PAGEFRAME.Page9.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 10
> THISFORM.PAGEFRAME.Page10.controltop.SETFOCUS()
> ENDCASE
> CASE nKeyCode = 3 .AND. nShiftAltCtrl = 0
>*--This is where if the top control on the next page is a listbox
>*--the listbox is at the end of the list when the control receives
>*--focus
> IF THISFORM.PAGEFRAME.ACTIVEPAGE < THISFORM.PAGEFRAME.PAGECOUNT
> THISFORM.PAGEFRAME.ACTIVEPAGE = THISFORM.PAGEFRAME.ACTIVEPAGE + 1
> ELSE
> THISFORM.PAGEFRAME.ACTIVEPAGE = 1
> ENDIF
> DO CASE
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 1
> THISFORM.PAGEFRAME.Page1.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 2
> THISFORM.PAGEFRAME.Page2.SETFOCUS()
> THISFORM.PAGEFRAME.Page2.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 3
> THISFORM.PAGEFRAME.Page3.SETFOCUS()
> THISFORM.PAGEFRAME.Page3.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 4
> THISFORM.PAGEFRAME.Page4.SETFOCUS()
> THISFORM.PAGEFRAME.Page4.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 5
> THISFORM.PAGEFRAME.Page5.SETFOCUS()
> THISFORM.PAGEFRAME.Page5.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 6
> THISFORM.PAGEFRAME.Page6.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 7
> THISFORM.PAGEFRAME.Page7.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 8
> THISFORM.PAGEFRAME.Page8.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 9
> THISFORM.PAGEFRAME.Page9.controltop.SETFOCUS()
> CASE THISFORM.PAGEFRAME.ACTIVEPAGE = 10
> THISFORM.PAGEFRAME.Page10.controltop.SETFOCUS()
> ENDCASE
> OTHERWISE
> DODEFAULT()
>ENDCASE
>
>
>The below works correctly. Example lostfocus of the last control on a page:
>
>
>PRIVATE mkey
>mkey=LASTKEY()
>CLEAR TYPEAHEAD
>IF INLIST(mkey,5,15)
> DODEFAULT()
>ELSE
> IF THISFORM.PageFrame.activePage=THISFORM.PageFrame.PageCount
> THISFORM.PageFrame.activePage = 1
> THISFORM.PageFrame.Page1.controltop.setfocus()
> ELSE
> THISFORM.PageFrame.activePage=thisform.PageFrame.activepage + 1
> PRIVATE lccommand
> lccommand = "THISFORM.PageFrame.Page"+ALLTRIM(STR(THISFORM.PageFrame.ActivePage))+".controltop.setfocus()"
> &lccommand
> ENDIF
>ENDIF
>
>
>>Hi Tracy.
>>
>>
When the user presses pageUp and goes to the next page the listbox is at the top of the list, but when the user presses PageDwn and goes to the next page the listbox is at the bottom of the page (end of file).>>
>>I take it, then, that you have some code that changes the ActivePage when the Page Down key is pressed. Sounds to me like you are missing a NODEFAULT somewhere.
>>
>>
Also, when the listbox does NOT have the focus I would like NONE of the rows to be highlited. Is there a way to turn that highlite off like there is in grids in VFP8?>>
>>Set the list box's ListIndex to 0. But this also changes the underlying data if it is a bound control.
