>>>LPARAMETERS nKeyCode, nShiftAltCtrl >>> >>>DO CASE >>> CASE nKeyCode = 18 .AND. nShiftAltCtrl = 0 && Page Up >>> 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 && Page Down >>>*--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 >>>>>>
>>>PRIVATE mkey >>>mkey=LASTKEY() >>>CLEAR TYPEAHEAD >>>IF INLIST(mkey,5,15) && Up Arrow, Shift-Tab >>> DODEFAULT() >>>ELSE >>> IF THISFORM.PageFrame.activePage=THISFORM.PageFrame.PageCount && on last page, move to 1st page >>> THISFORM.PageFrame.activePage = 1 >>> THISFORM.PageFrame.Page1.controltop.setfocus() >>> ELSE && move to next page >>> THISFORM.PageFrame.activePage=thisform.PageFrame.activepage + 1 >>> PRIVATE lccommand >>> lccommand = "THISFORM.PageFrame.Page"+ALLTRIM(STR(THISFORM.PageFrame.ActivePage))+".controltop.setfocus()" >>> &lccommand >>> ENDIF >>>ENDIF >>>>>>