4D Doc Center : PV LIRE CELL ACTIVE PRECEDENT

4D View v14

PV LIRE CELL ACTIVE PRECEDENT


PV LIRE CELL ACTIVE PRECEDENT ( zone ; colonne ; ligne )

Paramètre	Type	Description
zone	Entier long	Zone 4D View
colonne	Entier long	Numéro de la colonne de la cellule
ligne	Entier long	Numéro de la ligne de la cellule

Description

La commande PV LIRE CELL ACTIVE PRECEDENT retourne dans les paramètres colonne et ligne les coordonnées de la cellule active précédente de la zone.

Note : Il n’y a pas de “pile” de cellules actives, seule la cellule active précédente peut être connue — et non celles qui étaient actives au préalable. Il vous appartient donc de gérer la mémorisation des cellules actives successives en cas de besoin, par exemple pour installer plusieurs niveaux d’annulation.

Exemple

Dans l’exemple ci-dessous, nous allons créer un effet de “rebond” sur une cellule donnée. Mettons en place une méthode de gestion des événements, qui sera appelée à chaque changement de cellule active :

PV APPELER SUR EVENEMENT(Zone;pv sur nouvelle cellule active;"MéthodeEvénement")

La méthode projet MéthodeEvénement fait “rebondir” l’utilisateur sur la cellule C5. Dès que cette dernière cellule est atteinte, c’est la cellule courante précédente qui redevient active, interdisant de ce fait la sélection de C5 par quelque moyen que ce soit : commande 4D View, touche clavier, souris, etc.

  `Méthode : MéthodeEvénement

  `Avec cette méthode, nous "rebondissons" sur la cellule C5

 

 C_ENTIER LONG($1) `Référence de la zone 4D View

 C_ENTIER LONG($2) `Événement

 C_ENTIER LONG($3) `Code de la touche de modification

 C_ENTIER LONG($4) `Numéro de la colonne

 C_ENTIER LONG($5) `Numéro de la ligne

 C_ENTIER LONG($6) `Code ASCII de la touche

 C_ENTIER LONG($Colonne;$Ligne) `Coordonnées de la cellule (courante puis précédente)

 C_BOOLEEN($0) `Retour de fonction

 

 $0:=Faux

 

 PV LIRE CELLULE COURANTE($1;$Colonne;$Ligne) `Récupération des coordonnées

 

 Si($Colonne=3) & ($Ligne=5) `La cellule C5 est courante

    PV LIRE CELL ACTIVE PRECEDENT($1;$Colonne;$Ligne)   `Cellule précédente

    PV ALLER A CELLULE($1;$Colonne;$Ligne)   `Redevient courante

 Fin de si