on_key_down (résolu)

Bonjour tout le monde.

J'utilise "ON_KEY_DOWN (30 et 31),AppTouche" pour connaître la touche enfoncée. Y a t'il un moyen de savoir dans le sous programme "AppTouche" quel EDIT 30 ou 31 a fait la demande ? Pour résoudre mon problème, j'ai fait deux sous programmes pratiquement identiques,le 30 donne le SET_FOCUS 31, tandis que le 31 donne le SET_focus 22 (un bouton). J'ai beau regarder dans aide, je ne trouve pas

AppTouche:
  IF KEY_DOWN_CODE > 95 AND KEY_DOWN_CODE < 106
     RETURN
  ELSE
     IF KEY_DOWN_CODE = 8 OR KEY_DOWN_CODE = 37 OR KEY_DOWN_CODE = 39 OR KEY_DOWN_CODE = 110 THEN RETURN
' ##############################      
     IF KEY_DOWN_CODE = 13
     set_focus 31
     return
     end_if
' ##############################
     IF MESSAGE_ERROR_OK("La donnée doit être numérique !")=1
        TEXT 30,""
        TEXT 31,""
        SET_FOCUS 30
     END_IF
  END_IF  
RETURN

je voudrais si c'est possible que je puisse ajouter

IF KEY_DOWN_CODE = 13 and ......    (l'edit 30)
     set_focus 31
     return
else
if key_down_code= 13 and ......    (l'edit 31)
     set_focus 22
     return
end_if

D'avance un grand merci pour votre aide

La variable système NUMBER_KEY_DOWN retourne le numéro du dernier objet sur lequel une touche du clavier a été enfoncée et -1 si aucune touche a été enfoncée sur un objet (initialisation). Cette variable a un contenu valide seulement si la commande ON_KEY_DOWN a été exécutée pour l'objet considéré.

Exécutez d'abord ON_KEY_DOWN N,Label avant d'utiliser NUMBER_KEY_DOWN(N).

Execute ce code puis appuie sur une touche quelconque.

Code:

dim i
label choix

edit 10 : top 10,20 : left 10,20 : width 10,200 : height 10,100 : text 10,"EDIT 10"
memo 20 : top 20,150 : left 20,20 : width 20,200 : height 20,100 : item_add 20,"MEMO 20"

for i = 10 to 20 step 10 : on_key_down i,choix : next i
set_focus 10
end
rem ============================================================================
choix:
    message "Le N° du dernier objet sur lequel une touche du clavier a été enfoncée est :" + str$(number_key_down)
return
rem ============================================================================  

Un grand merci pour ton aide papydall. ça fonctionne. En fait quand j'ai regardé dans l'aide, je charge toujours l'exemple et comme il n'y a qu'une ligne " print number_key_down" j'avais bien essayé mais sans résultat. J'étais passé à autre chose sans trouver. Je passe plus de temps a chercher qu'a programmer