Programación General > Visual Basic 6.0 e inferiores

 Re: moverse con las flechas

<< < (2/2)

javierbalk:
Hola Jorge:

Acá va el código:

Private Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)

Private Sub MostrarMouse(nValor As Boolean)
    Dim Aux As Long
   
    If nValor Then
        Aux = ShowCursor(True)
        Do Until Aux >= 0
            Aux = ShowCursor(True)
        Loop
    Else
        Aux = ShowCursor(False)
        Do Until Aux < -5
            Aux = ShowCursor(False)
        Loop
    End If
End Sub

Saludos,
Javier

Navegación

[0] Índice de Mensajes

[*] Página Anterior