ZONSUI |
zonsuipermet de dérouter la suite de la saisie en donnant le nom du champ suivant.
Char [S]zonsui(255)
# Etiquette de contrôle sur un champ CHAMP
# En cas d'erreur, on veut revenir sur ce champ sans"bip"
CHAMP
Gosub CONTROLE
If CONTROLE = FAUX
zonsui = "CHAMP"
Endif
End
# Extrait d'un programme appelé par une étiquettede contrôle sur une
# variable dimensionnée. En cas d'erreur, on veutrevenir à la ligne
# précédente sur le même champ.
If ERREUR
zonsui = "CHAMP(" + num$(indice -1) + ")"
Endif
# Si Saisie dans un tableau déroulant : retour en1ère ligne toujours en mode saisie
# Si Saisie hors du tableau déroulant : position en1ère ligne en mode commande
zonsui
# Idem mais en se positionnant à la dernière lignedu tableau
# On remarquera que la variable de bas de tableau esttraitée comme
# une variable dimensionnée !
Subprog APRES
zonsui
zonsuiest une variable alphanumérique dans laquelle on précise le nom du champ dontla saisie doit suivre. Ceci permet dans un traitement sur champ par exemple dechanger le champ suivant à saisir.
La valeur par défaut de zonsui lorsqu'on arrive en étiquette de contrôle,d'initialisation ou d'aide, est toujours la chaîne vide "".
Dans le cas d'une modification de
Les déroutements par réaffectation de
Les déroutements par réaffectation de
Lorsque l'on désire au cours d'un contrôle de saisie empêcher la validationd'une zone sans envoyer un "bip" à l'écran, il suffit d'affecter à
zonsui =zoncou
Si la zone est dimensionnée, il faudra écrire :
zonsui =zoncou +"(" + num$(indice) + ")"
Positionner mkstat à 2 aurait le même effet.
L'option de saisie "H" permet également d'éviter le bip en casd'erreur, mais elle s'applique aussi si un caractère incorrect est tapé.
Pas d'erreur associée.
Adonix X3(r) L4G |