https://foro.gambas-es.org/viewtopic.php?f=10&t=4227&p=48765#p48765
-----------------------------------
Shell
Lunes, 08 Junio 2020, 23:19

Re: Ejemplo De Uso De Eventos Y Propieades Del Raton
-----------------------------------
Hola!.

Repasando los eventos del ratón ya que los estoy aplicando a un ejemplo.  :roll: 

Mouse.Button es obsoleto ?

Me pareció extraño que Julio no llegará a usar un Select Case para Mouse.Button y usase directamente Mouse.Left, Mouse.Right.
Lo cierto es que Mouse.Button es Integer y las constantes son Booleans.Parece que en la ayuda de Gambas recomienda usar
las constantes booleanas.

Algo que si se puede modificar es esto del ejemplo:

[code linenumbers=false syntax=gambas]
Public Sub PictureBox1_MouseDown()
  
  LabelRatonInfo.text = "Boton apretado"
  
  If Mouse.Middle Then
    LabelRatonInfo.text = "Boton apretado, central"
  Endif
  If Mouse.Right Then
    LabelRatonInfo.text = "Boton apretado, derecho"
  Endif
  
  If Mouse.Left Then
    LabelRatonInfo.text = "Boton apretado, izquierdo"
  Endif  
End
[/code]

Por

[code linenumbers=false syntax=gambas]
Public Sub PictureBox1_MouseDown()

  Dim queboton As String
  
  If Mouse.Middle Then
    queboton = "central" 
    Print "central pulsado"
  Endif
  If Mouse.Right Then
    queboton = "derecho"    
  Endif
  
  If Mouse.Left Then
    queboton = "izquierdo"     
  Endif
  
  LabelRatonInfo.Text = "Botón apretado, " & queboton
  
End
[/code]

Algo más.

Parece que el código original no tenía activa la propiedad tracking a True del PictureBox. 

Y algo que me gustaría comentar que no me di cuenta hasta ahora. Que no me funciona el botón del centro como lo hace el izquierdo y el derecho, 
como rueda si, pero como interruptor no. Uso Linux Mint. Nunca me fije en esto. ¿ Es cosa de Mate ?.

Ah, use Print en el centro para depurar el funcionamiento por la consola...ninguna respuesta.

Saludos


