Página 1 de 1
[RESUELTO] Cursor Mano sobre Boton
Publicado: Dom Feb 27, 2011 12:24 am
por 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
Re: Cursor Mano sobre Boton
Publicado: Dom Feb 27, 2011 1:05 am
por 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
Re: Cursor Mano sobre Boton
Publicado: Lun Feb 28, 2011 12:54 am
por 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
Re: Cursor Mano sobre Boton
Publicado: Lun Feb 28, 2011 3:14 am
por mauricio
Hola...
Estos son todos los valores que puede tomar:
http://api.openoffice.org/docs/common/r ... inter.html
Saludos
Re: Cursor Mano sobre Boton
Publicado: Lun Feb 28, 2011 10:52 pm
por estudioiar
Una maravilla. Muchisimas gracias.