silverman
Nombre de messages : 970 Age : 52 Localisation : Picardie Date d'inscription : 18/03/2015
| Sujet: ON_MOUSE_MOVE pb avec PRINT et pb de clic Ven 8 Mai 2020 - 16:32 | |
| Bonjour Encore 2 bugs détectés avec cette commande: bug(ou pas) 1: Sans bouger dans un des 2 form, faire un clic gauche --> le clic déclenche l'évènement ON_MOUSE_MOVE, est ce une caractéristique caché? bug 2: Cliquer gauche dans le petit form et laisser le bouton de la souris enfoncé. Glisser dans le grand form et dans le mouvement(sur le grand form) relacher le bouton de la souris -->l'un des deux form ne détecte définitivement plus le mouvement de la souris.(lié à la commande PRINT) - Code:
-
' panoramic_editor_interprété v0929i8 label test_omm,traite
dim omm,clic
left 0,400
form 100:left 100,1000
on_mouse_move 0,test_omm on_mouse_move 100,test_omm
end test_omm: omm=number_mouse_move off_mouse_move omm gosub traite on_mouse_move omm,test_omm return ' bug 1 ' sans bouger dans un des 2 form, faire un clic gauche ' --> le clic déclenche l'évènement ON_MOUSE_MOVE
' bug 2 ' cliquer gauche dans le petit form et laisser le bouton de la souris enfoncé ' glisser dans le grand form et dans le mouvement(sur le grand form) relacher le ' bouton de la souris ' -->l'un des deux form ne détecte plus le mouvement de la souris
traite: ' bug 1 if mouse_left_up(0)=1 then clic=clic+1 :' incrémente un compteur pour :' montrer que l'évènement :' ON_MOUSE_MOVE est déclenché :' par un clic if mouse_left_up(100)=1 then clic=clic+1 :' incrémente un compteur pour :' montrer que l'évènement :' ON_MOUSE_MOVE est déclenché :' par un clic ' bug 2 print :' mettre cette ligne en REM fait dispaitre le bug. seul commande :' à créer ce bug ? ' caption 0,"on_mouse_move = "+str$(omm)+" / clic = "+str$(clic) return
| |
|