[RESUELTO] Cursor Mano sobre Boton

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

[RESUELTO] Cursor Mano sobre Boton

Notapor estudioiar » Dom Feb 27, 2011 12:24 am

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
Última edición por estudioiar el Lun Feb 28, 2011 10:53 pm, editado 2 veces en total
Open Office 3.2 - Windows 7
estudioiar
 
Mensajes: 47
Registrado: Sab Feb 12, 2011 2:17 pm

Re: Cursor Mano sobre Boton

Notapor mauricio » Dom Feb 27, 2011 1:05 am

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   Expandir vistaContraer vista
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
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
AOO 4.1 | LibO 6.1.5 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5807
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

Re: Cursor Mano sobre Boton

Notapor estudioiar » Lun Feb 28, 2011 12:54 am

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
Open Office 3.2 - Windows 7
estudioiar
 
Mensajes: 47
Registrado: Sab Feb 12, 2011 2:17 pm

Re: Cursor Mano sobre Boton

Notapor mauricio » Lun Feb 28, 2011 3:14 am

Hola...

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

Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
AOO 4.1 | LibO 6.1.5 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5807
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

Re: Cursor Mano sobre Boton

Notapor estudioiar » Lun Feb 28, 2011 10:52 pm

Una maravilla. Muchisimas gracias.
Open Office 3.2 - Windows 7
estudioiar
 
Mensajes: 47
Registrado: Sab Feb 12, 2011 2:17 pm


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: Exabot [Bot] y 1 invitado