Estoy haciendo un programa en el que el comportamiento del evento click en un TableView depende de cual botón fue presionado.
Para ello, no hay misterio, use la función "Mouse.Button" que devuelve un entero (1 = Left, 2=Right) y ya esta solucionado.
Pero ya que no encontré una función que me diga en lenguaje natural cual fue apretado acá dejo la que hice.
Nota: En mi "mouse" hay dos botones mas en un lateral que al presionarlos dan los valores 8,16 y que yo llame Function-1 y Function-2 respectivamente, pues no se si los botones extras del ratón tienen una regla de nombres.
Espero que sea de utilidad
Public Function MouseButton(intKey As Integer) As String '' Funcion que retorna el nombre en ingés del boton del ratón que se ha presionado.
Dim strMouseButton As String
Select intKey
Case 1
strMouseButton = "Left"
Case 2
strMouseButton = "Right"
Case 4
strMouseButton = "Center"
Case 16
strMouseButton = "Function-1"
Case 8
strMouseButton = "Function-2"
End Select
Return strMouseButton
End
Dim strMouseButton As String
Select intKey
Case 1
strMouseButton = "Left"
Case 2
strMouseButton = "Right"
Case 4
strMouseButton = "Center"
Case 16
strMouseButton = "Function-1"
Case 8
strMouseButton = "Function-2"
End Select
Return strMouseButton
End
Saludos.
