EasyStroke: Ejemplo de uso: Gestos hechos con el ratón para movernos por las pestañas de un navegador

EasyStroke: Ejemplo de uso: Gestos hechos con el ratón para movernos por las pestañas de un navegador

Un pequeño videotutorial para explicar como asignar gestos hechos con el ratón a una combinación de teclas para movernos por las pestañas de un navegador web (chromium), aunque tambien vale para chrome.

¿cómo instalar easystroke?

En Debian y derivadas (ubuntu, linux mint, etc):

sudo apt-get install easystroke

Nota: Mi configuracion
Comporta mi configuración para usarlo en chrome (moverme por los tab)
https://drive.google.com/drive/folders/1jdwLBUViZsvgBnPu2tfJ4w38fZQymRg9?usp=sharing

Para más información:
https://www.atareao.es/software/utilidades/easystroke-o-abrir-una-aplicacion-con-un-movimiento-del-raton/

Gestión de Eventos Del Ratón: pulsar botón (izquierdo, derecho central), rueda, coordenadas, cambio del icono del mouse

Gestión de Eventos Del Ratón: 

Pulsar botón (izquierdo, derecho central), 

Rueda, coordenadas y cambio del icono del mouse

Este es un pequeño ejemplo de como leer los distintos eventos del ratón, y mostrar información del ratón por pantalla. Incluso podemos cambiar el icono del mouse, por uno personalizado :)


Código del Ejemplo:

' gambas class file

Public Sub Form_Open()

Me.Center

End

Public Sub PictureBox1_MouseMove()

LabelCoord.text = "X: " & Str$(mouse.x) & " Y: " & Str$(Mouse.y)

End

Public Sub PictureBox1_MouseWheel()

If Mouse.Delta > 0 Then
LabelRueda.text = "Rueda del raton, moviendola, hacia adelante"
Else
LabelRueda.text = "Rueda del raton, moviendola, hacia atras"
Endif

End

Public Sub PictureBox1_Leave()

LabelCoord.text = "X: Y:"
LabelRueda.text = ""
LabelRatonInfo.text = ""
Me.mouse = Mouse.Default

End

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

Public Sub PictureBox1_MouseUp()

LabelRatonInfo.text = "Boton soltado"

End

Public Sub Button1_Click()

Me.Cursor = New Cursor(Picture.Load("1.png"))
Me.Mouse = Mouse.Custom

End

Public Sub Button2_Click()

Me.Cursor = New Cursor(Picture.Load("2.png"))
Me.Mouse = Mouse.Custom

End

Public Sub Button3_Click()

Me.Cursor = New Cursor(Picture.Load("3.png"))
Me.Mouse = Mouse.Custom

End

Public Sub Button4_Click()

Me.Cursor = New Cursor(Picture.Load("4.png"))
Me.Mouse = Mouse.Custom

End

Public Sub Button5_Click()

Me.Cursor = New Cursor(Picture.Load("5.png"))
Me.Mouse = Mouse.Custom

End

Código para descargar: enlace a drive google

Saludos