ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: PageFrame > CTRL+TAB versus CTRL+PgUp (ou PgDn)   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

sam. 05 mars 2016, 20h51

Francis Faure
France France

atoutfox.public.association

Re: PageFrame > CTRL+TAB versus CTRL+PgUp (ou PgDn)

Bonjour ABx

En supposant que ton PageFrame soit directement dans un "Form"

alors dans le form.KEYPRESS surcharger avec :
(fixer le #define sur le bon nom ou remplacer tous les C_PAGEFRAME avec le nom du pageframe...)

lparameters nKeyCode, nShiftAltCtrl

#define C_PAGEFRAME thisform.Pageframe1 && nom de l'Objet PageFrame à gérer

if vartype(C_PAGEFRAME) = "O" and ;
    upper(C_PAGEFRAME.baseclass)="PAGEFRAME"
  do case
    case m.nShiftAltCtrl = 2 and m.nKeyCode = 31 && Ctrl-PageUp
      keyboard "{CTRL+SHIFT+TAB}"

    case m.nShiftAltCtrl = 2 and m.nKeyCode = 30 && Ctrl-PgDown
      keyboard "{CTRL+TAB}"

    otherwise
      dodefault( nKeyCode, nShiftAltCtrl)
  endcase
else
  dodefault( nKeyCode, nShiftAltCtrl)
endif


il y a surement mieux, mais en réponse rapide qui marche...

Cordialement
Francis


Le ven. 04 mars 2016, 14h51 ABx a écrit :
> Bonjour à tous
>
> nativement VFP9 permet le passage d'une page à l'autre par CTRL+TAB
> je souhaite rejoindre le classique CTRL+PgUp pour la page précédente et CTRL+PgDn pour la page suivante
> j'ai testé avec un "global" ON KEY LABEL CTRL+PGUP (DN) mais cela ce complique si le formulaire actif n'a pas de PageFrame...
>
> Si quelqu'un a déjà géré cela : Quelle piste ?
>
> Cordialement
> ABx de Guyane
>
>
> .
>


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017424
20 088 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3