Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
MouseDown, MouseUp. Parar Evento
Autor Mensaje
Responder citando   Descargar mensaje 
Mensaje MouseDown, MouseUp. Parar Evento 
 
Buenas!.

En el ejemplo en el que muevo un cuadrado por la ventana, se producen tres eventos:

- MouseDown
- MouseMove
- MouseUp

Es necesario para el ejemplo en un momento que se debe mantener el MouseDown para luego continuar con MouseMove.
Como es normal, no puedo parar MouseDown ya que entonces no se produce MouseMove.

En cambio MouseUp solo se produce una vez que es cuando suelto el botón izquierdo.
Si no lo paro manualmente, tampoco es algo infinito, no lo aprecio en el mensaje de consola:

Citar:

Hiciste clic sobre 2 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados
Hiciste clic sobre 0 cuadrados


Llega un momento en que para. El contador de cuadrados es una variable estática que actualizo en el mismo MouseUp.
Creía que MouseUp solo se produce una sola vez.  ¿ Todo ese tiempo necesita ?. ¿ Qué le influye ?.

Al final lo he dejado así:

Public Sub Lienzo_MouseUp()
  
  haceclic = False
  destacar = False  
  Print "Hiciste clic sobre " & cuenta & " cuadrados"
  cuenta = 0
  Stop Event  
  
End
 

Ya que no merece la pena que repita el evento tantas veces.

Esto es lo que tengo en MouseMove(), depende de MouseDown.
Public Sub Lienzo_MouseMove()
  
  If haceclic Then
    Me.x = Mouse.X - TAMA / 2
    Me.y = Mouse.Y - tama / 2
  Endif  
  
End
 


Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
última edición por Shell el Viernes, 16 Diciembre 2016, 13:12; editado 1 vez 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Parar Codigo Hasta Que Se Cargue Formulario Cubel General 8 Jueves, 25 Marzo 2010, 22:01 Ver último mensaje
Cubel
No hay nuevos mensajes Como Parar Un Programa Gambas Que Entra En... Shell General 2 Viernes, 13 Abril 2012, 08:05 Ver último mensaje
Shell
No hay nuevos mensajes Evento Select,Evento Activate, Evento Mous... Shell General 1 Domingo, 18 May 2014, 09:34 Ver último mensaje
Shell
No hay nuevos mensajes Evento MouseMove O Evento MouseDownMove? v3ctor General 13 Martes, 09 Junio 2020, 22:16 Ver último mensaje
vuott
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron