Esconder y Mostrar el mouse
Visual Basic
Publicado el 6 de Febrero del 2002 por Administrador (718 códigos)
15.465 visualizaciones desde el 6 de Febrero del 2002
Esconder y mostrar el mouse con las Api's
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta(1)'www.lawebdelprogramador.com
'Código para el modulo de la aplicación
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
'**************************************************
'* CursorAparecerDesaparecer 13/07/99 *
'* Hace Desaparecer el Cursor *
'* http://www.lawebdelprogramador.com *
'**************************************************
Function CursorAparecerDesaparecer(TrueFalse As Boolean)
Dim Resultado As Long
If TrueFalse = True Or TrueFalse = False Then Resultado = ShowCursor(TrueFalse)
End Function
Cuando quieras esconder el mouse: call CursorAparecerDesaparecer(false)
Cuando quieras mostrarlo: call CursorAparecerDesaparecer(True)