Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

MouseDown, MouseUp. Parar Evento

MouseDown, MouseUp. Parar Evento
Artículo
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



 
última edición por Shell el Viernes, 16 Diciembre 2016, 13:12; editado 1 vez 
Shell - Ver perfil del usuario Enviar mensaje privado  
Shell [ Viernes, 16 Diciembre 2016, 13:10 ]
 


MouseDown, MouseUp. Parar Evento
Comentarios
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
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