bug ON_MOUSE_UP : erreur 68

(on obtiens également l'erreur 68 avec 'ON_MOUSE_DOWN' avec d'autres tests)
Dans une procédure, suivant son temps de traitement (court ou long), on obtiens soit le déclenchement d'un évènement non sollicité, soit l'erreur 68 (label is defined twice, line 1).
Dans l'open dialog, ouvrir un fichier en DOUBLE-CLIQUANT dessus:

Code:: label charge,test
   full_space 0

   dim a$,i,m
   open_dialog 100
   m=10 : button 5 : caption 5,"ouvrir fichier" : on_click 5,charge

END
test:
   message "Il y a eu doubleclick dans l'open_dialog, mais"+chr$(13)+chr$(10)+"AUCUN click dans ce memo!"
return

charge:
   a$="" : a$=file_name$(100) : caption 0,a$ :' le doubleclick ne concerne que l'open_dialog puisque c'est à l'intérieur de celui ci que l'on doubleclick.
   make_memo()
   ' simulation d'un : code long à traiter = plantage (error 68) / code court à traiter = EVENT non sollicité
   for i=1 to 50 : caption 0,str$(i) : pause 10 : next i : hide m :' ligne à mettre en REM pour voir l'EVENT non sollicité se déclencher
   caption 0,"fini"+str$(m)
return

sub make_memo()
   m=m+1 : memo m : full_space m
   on_mouse_up m,test
end_sub

tel que, on obtiens l'erreur 68, sinon mettre la ligne 17 en REM pour voir l'event non sollicité.

Bonjour Silverman,

Ce qui est d'autant plus surprenant c'est que le retrait de la ligne 2 : full_space 0, fait qu'il n'y a plus de bug !
Bizarre... Suspect

En effet, un clic est détecté sur le memo alors que l'on a (double)clické dans un open_dialog. Mad

» ou est l'erreur?
» Début d'un jeu de labyrinthe
» Erreur
» Erreur 93
» Erreur