Mostrar un cuadro de texto con un botón

Discute sobre la aplicación de hojas de cálculo
Responder
Meta
Mensajes: 2
Registrado: Dom Nov 08, 2009 5:49 pm

Mostrar un cuadro de texto con un botón

Mensaje por Meta »

Hola:

Usando openOffice el Calc. Se introducir un botón. En ese botón quiero que haga una acción que es mostrar un mensaje de texto. En ese texto quiero mostrar un mensaje de texto como si fuera un "Acerca de ..." de cualquier programa.

El mensaje se puede mostrar en el centro de la pantalla con un cuadro o simplemente en cualquier celda del Calc que elija, me da igual. Si es lo primero mejor, más bonito, ejjeej.

Saludo.
OpenOffice 3.1 en Windows XP
elenitaex5
Mensajes: 56
Registrado: Sab Nov 28, 2009 2:49 pm
Ubicación: Madrid, España

Re: Mostrar un cuadro de texto con un botón

Mensaje por elenitaex5 »

primero tienes que definir una macro: Herramientas -> Macros -> Organizar macros -> OpenOffice.org Basic
ahí tienes que dar a la carpeta de Standar y cuando te aparezca "Main" le das a Editar. borras todo lo que haya y pegas la Macro:

sub Boton()
dim hoja as object

hoja = thisComponent.getCurrentController.getActiveSheet() 'define la hoja en la que te encuentras para que se vea el mensaje
msgbox "Acerca de ..."

end sub


cuando creas el botón y pinchas con el botón derecho tienes que dar a "Campo de Control", en la pestaña de "Acontecimientos" elegir "Tecla Pulsada" y luego asignarle la Macro donde la hayas guardado.
Openoffice 3.3.0
Sistema operativo Windows
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Mostrar un cuadro de texto con un botón

Mensaje por mauricio »

Hola...

El uso de MsgBox es muy sencillo, como ya te indico el compañero, solo que tiene una línea de más, no es necesario hacer referencia a la hoja

Código: Seleccionar todo

sub Boton()
msgbox "Acerca de ..."
end sub
También puedes usar un cuadro de diálogo personalizado que te da mucha mayor libertad en cuanto a formato. Te anexo un ejemplo con estas dos opciones.

Por favor, si esto resuelve tu pregunta, edita el titulo de tu primer mensaje para marcarlo como [RESUELTO], esto nos permite tener foros más ordenados.

Saludos
Adjuntos
Mostrar mensaje.ods
Mostrar un mensaje con MsgBox o con un cuadro de diálogo
(12.4 KiB) Descargado 418 veces
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Responder