Cómo hacer desaparecer el cursor del ratón (visual basic)

Tema en 'Foro Libre' iniciado por SoulOfHell, 17 Nov 2008.

  1. Sou

    SoulOfHell
    Expand Collapse
    Sargento

    Mensajes:
    303
    Me Gusta recibidos:
    0
    Para hacer desaparecer y aparecer el cursor del ratón pega el siguiente código en el módulo:

    Declare Function ShowCursor Lib "user32" (ByVal bShow_ As Long) As Long

    Debes crear dos botones con:

    Private Sub Command1_Click()
    result = ShowCursor(False)
    End Sub

    y

    Private Sub Command2_Click()
    result = ShowCursor(True)
    End Sub

    Es muy importante que en el caso del botón 2 que hace reaparecer el cursor, permitas seleccionarlo desde el teclado poniendo su propiedad Caption&Mostrar.

    [​IMG]
     

Compartir esta página