[RESUELTO] Cursor Mano sobre Boton

[estudioiar]

Buenos dias: Es posible mediante codigo hacer que al pasar sobre un boton del formulario cambie el cursor del mouse de la flecha a la mano?

Muchas gracias

[mauricio]

Hola...

Asigna la siguiente macro al evento Ratón dentro, en mis pruebas no tuve que programar el cambio en el evento de salida del ratón, verificalo...

Código: Seleccionar todo

Option Explicit

Sub RatonDentro( Evento )
Dim oPuntero As Object

	oPuntero = CreateUnoService("com.sun.star.awt.Pointer")
	oPuntero.Type = com.sun.star.awt.SystemPointer.HAND
	Evento.Source.Peer.setPointer( oPuntero )

End Sub

Por favor, si esto responde tu pregunta, edita el primer mensaje de este hilo y agrega al principio del título la etiqueta [RESUELTO], adicionalmente puedes marcar el icono de la tilde verde, de esta forma conseguiremos un foro más ordenado.

Saludos

[estudioiar]

Muchismias gracias Mauricio por tu respuesta tan rapida. Me sirvio de mucho. Ahora. Es posible que en vez de aparecer la mano de arrastrar aparezca la mano de seleccionar?

Muchas gracias

[mauricio]

Hola...

Estos son todos los valores que puede tomar: http://api.openoffice.org/docs/common/r ... inter.html

Saludos

[estudioiar]

Una maravilla. Muchisimas gracias.