Timothy,
I would try like this: Go to the 'key' event of the tab control or
your u_tab-descendant, and code:
Event u_tab::key(keycode key, long keyflags)
//===================================
Integer li_numpages, li_selected
if ( keyflags = 2 and (key = KeyPageUp! or key = KeyPageUp!) ) then
li_numpages = Upperbound(This.Control[])
li_selected = This.SelectedTab
choose case key
case KeyPageUp!
// one page ahead ('wrap' to 1 when at end)
li_selected ++
if ( li_selected > li_numpages ) then
li_selected = 1
end if
case KeyPageDown!
// one page back ('wrap' to end if at
start)
li_selected --
if ( li_selected = 0 ) then
li_selected = li_numpages
end if
end choose
if ( li_selected <> This.SelectedTab ) then
This.SelectedTab = li_selected
end if
end if
return
//===================================
I tried the code with a little PFC app, and it seemed to work OK.
Btw, I assume you know that you can use Control+(Shift+)+Tab zu go to the
next/previous tabpage without any modifications, for that's the default
behaviour...
HTH, Werner
> -----Urspr�ngliche Nachricht-----
> Von: Theisen, Timothy J. [SMTP:[EMAIL PROTECTED]]
> Gesendet am: Dienstag, 23. Mai 2000 20:44
> An: 'PFCSig'
> Betreff: PFCSIG PB 6.5/7 PFC - How do you tab using Ctl-PageUp &
> Ctl-PageDown?
>
> I have a PFC window with a pfc tab with multiple pfc tab pages(u_tabpg).
> The user
> wants to use the Ctl+PageUp and Ctl+PageDown to go back and forth from
> tab
> page
> to tab page. Can anyone let me know how to accomplish this using PB
> and/or
> PFC?
> Thanks.
>
> > [EMAIL PROTECTED] HOSTED BY IIGG, INC. FOR HELP WITH LIST SERVE COMMANDS,
> ADDRESS
> > A MESSAGE TO [EMAIL PROTECTED] WITH THE FOLLOWING MESSAGE: help
> pfcsig
> > SEND ALL OTHER INQUIRES TO [EMAIL PROTECTED]
> [EMAIL PROTECTED] HOSTED BY IIGG, INC. FOR HELP WITH LIST SERVE COMMANDS, ADDRESS
> A MESSAGE TO [EMAIL PROTECTED] WITH THE FOLLOWING MESSAGE: help pfcsig
> SEND ALL OTHER INQUIRES TO [EMAIL PROTECTED]
