Visual Basic - Como oculto el puntero?

Life is soft - evento anual de software empresarial
 
Vista:

Como oculto el puntero?

Publicado por Principiante novato (1 intervención) el 27/10/2002 00:19:32
Puede alguien ayudarme?
Necesito ocultar el puntero del mouse. ¿Como le hago para ocultarlo y despues volverlo a mostrar?

Ah, y aprobechando: ¿Como establezco las cordenadas al puntero mediante codigo?, es decir: quiero mover el puntero mediante codigo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como oculto el puntero?

Publicado por Rodolfo del Peru (454 intervenciones) el 28/10/2002 02:23:37
Para ocultar el puntero codifica asi:
Screen.MousePointer = vbHide

Para volverlo a poner haces asI:
Screen.MousePointer = vbDefault

Para pasarlo a reloj asi:
Screen.MousePointer = vbHourglass

Para la segunda pregunta, no te puedo ayudar, pero tratare de averiguarlo.

Saludos desde Lima
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como oculto el puntero? - Nov. 2002

Publicado por Erick Lorini - Guatemala (12 intervenciones) el 13/11/2002 19:35:54


Esconder y mostrar el mouse con las Api's

Coloca el código en un modulo...
Cuando quieras esconder el mouse: call CursorAparecerDesaparecer(false)
Cuando quieras mostrarlo: call CursorAparecerDesaparecer(True)

'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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar