viernes, 22 de agosto de 2008

Eventos del mouse

Existen 3 tipos de eventos del mouse en Visual Basic

  1. MouseDown, ocurre cuando el usuario da clic a cualquier botón del mouse.
  2. MouseUp, ocurre cuando el usuario libera cualquier botón del mouse.
  3. MouseMove, ocurre cuando el usuario mueve el mouse.

Cada uno de los eventos anteriores reciben 4 parámetros:

  1. button, regresa un valor que permite identificar a que botón se le dio clic: vbLeftButton, vbRightButton, vbMiddleButton
  2. shift, regresa un valor que permite identificar que tecla o teclas se mantienen presionadas: vbShiftMask = SHIFT, vbCtrlMask = CTRL, vbAlttMask = ALT, posibles combinaciones CTRL + SHIFT = (2+1) = 3
  3. x, regresa la posición actual X, relativa a la esquina superior izquierda
  4. y, regresa la posición actual Y, relativa a la esquina superior izquierda
   Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
sbMouse.SimpleText = "Coordenadas del Mouse (" + CStr(X) + ", " + CStr(X) + ")"
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
DatosUsuario.PopupMenu mnuOtro
End If
Dim Msg
Select Case Button
Case vbRightButton
Msg = "Botón derecho liberado"
Case vbMiddleButton
Msg = "Botón medio liberado"
Case vbLeftButton
Msg = "Botón izquierdo liberado"
End Select
Select Case Shift
Case vbShiftMask
Msg = Msg & " + Shift"
Case vbCtrlMask
Msg = Msg & " + Ctrl"
Case vbAltMask
Msg = Msg & " + Alt"
Case vbShiftMask + vbAltMask
Msg = Msg & " + Shift + Alt"
End Select
sbMouse.SimpleText = Msg
End Sub

0 comentarios: