Salva en 23:18 25 ago 2015

2015-08-25T23:18:47Z

Página nueva

{{Menu|cat=Basic|subcat=|Titulo=Cuadro de diálogo (formulario) para OpenOffice Calc|vers=4.0.x}}
<seo title="Cuadro de diálogo (formulario) para OpenOffice Calc - Apache OpenOffice Basic"
metakeywords="macro,basic,starbasic,manual,curso,tutorial,open,office,openoffice,apache openoffice,libreoffice"
metadescription="OpenOffice.org Basic, también conocido como OOo Basic o StarBasic, es el nombre de uno de los cuatro lenguajes de macros incluidos en la suites Apache OpenOffice y LibreOffice"/>

En este '''Cómo se hace''' vamos a mostrar paso a paso como se puede crear un cuadro de diálogo mediante el editor Basic de OpenOffice para introducir datos en una hoja de Calc.

Para poder llevar a buen puerto este tutorial, empezaremos por crear un nuevo documento de Calc, que guardaremos con el nombre '''''Cuadro de diálogo Calc'''''.

En la primera de sus hojas insertaremos un botón que nos permitirá abrir el cuadro de diálogo. Los datos que introduciremos en él quedarán almacenados en la '''Hoja2''' del documento.

No se va a crear una aplicación completa. El objetivo de este tutorial es introducir al usuario en la creación y uso de los cuadros de diálogo en Calc, lo que le permitirá construir fácilmente sencillas aplicaciones para gestionar pequeñas o grandes cantidades de datos, ampliando según lo aquí aprendido su documento de Calc con más diálogos, en función de sus necesidades.

<div class="menu-articulo">
*[[#Insertar un botón en la hoja|Insertar un botón en la hoja]]
*[[#Crear el cuadro de diálogo|Crear el cuadro de diálogo]]
*[[#Insertar los controles en el diálogo|Insertar los controles en el diálogo]]
*[[#El código Basic necesario|El código Basic necesario]]
*[[#Enlazar los controles al código|Enlazar los controles al código]]
*[[#Enlazar el botón de la hoja al diálogo|Enlazar el botón de la hoja al diálogo]]
</div>

== Insertar un botón en la hoja ==
Empezaremos insertando un botón en la '''Hoja1''' del documento que permitirá abrir el cuadro de diálogo que, a modo de formulario flotante, diseñaremos a continuación.

Para ello, si no está visible, mostraremos la barra de herramientas '''''Campos de control de formulario''''' desde el menú '''''Ver > Barras de herramientas'''''.
[[Image:Cuadro.Dialogo.Formulario.OpenOffice.Calc.000.png|center|link=|class=sombra-p]]
Haremos un clic en esta barra de herramientas sobre el botón [[Image:macro-insertar-boton-openoffice.png|link=|class=sombra-p|Herramienta Botón]]. El cursor del ratón se mostrará como una pequeña cruz negra con un pequeño rectángulo en su extremo inferior derecho.

Sobre el lugar deseado de la hoja de cálculo, haremos un clic y arrastrar, definiendo de esta forma las dimensiones del botón.
[[Image:Cuadro.Dialogo.Formulario.OpenOffice.Calc.001.png|center|link=|class=sombra-p]]
Las dimensiones del botón podrán modificarse utilizando sus manejadores de color verde.
[[Image:Cuadro.Dialogo.Formulario.OpenOffice.Calc.002.png|center|link=|class=sombra-p]]
Con el botón seleccionado haremos clic sobre el botón [[Image:macro-boton-control-openoffice.png|class=sombra-p|link=|Herramienta Control]] de la barra de herramientas '''''Campos de control de formulario''''', o bien, haremos un clic con el botón secundario del ratón sobre el botón, y desde el menú contextual seleccionamos la opción '''''Campo de control...'''''. Se mostrará el cuadro de diálogo '''''Propiedades: Botón'''''.

En éste, modificaremos el '''''Título''''' escribiendo '''Abrir el diálogo''' desde su pestaña '''''General'''''. De esta forma modificamos el texto que muestra el botón recién insertado. Si lo deseas, puedes modificar otras propiedades del botón, como por ejemplo, la '''''Fuente''''' utilizada para el texto mostrado, sus dimensiones mediante las propiedades '''''Ancho''''' y '''''Altura''''', la '''''Alineación''''' horizontal y la '''''Alineación vertical''''' del texto mostrado, el '''''Color de fondo''''' del botón, incluso insertar una pequeña imagen (en formato bmp, jpg, png, etc) a modo de icono en el mismo mediante la propiedad '''''Imagen'''''.
[[Image:Cuadro.Dialogo.Formulario.OpenOffice.Calc.003.png|center|link=|class=sombra-p]]
Si quieres conocer más acerca de otras de las propiedades que puedes definir para el botón, pulsa la tecla F1 mientras esté activado el diálogo.

Por el momento, podemos cerrar este diálogo, al que volveremos más tarde.

== Crear el cuadro de diálogo ==
Accedemos al editor de macros IDE Basic desde el menú '''''Herramientas > Macros > Organizar macros... > OpenOffice.org Basic'''''.

Localizamos el contenedor de macros de nuestro documento. Haciendo clic en el '''+''' que antecede a su nombre, se mostrará la librería '''''Standard''''', que por el momento está vacía, y que seleccionamos con un clic sobre su nombre.
[[Image:Cuadro.Dialogo.Formulario.OpenOffice.Calc.004.png|center|link=|class=sombra-p]]
Haciendo un clic sobre {{Boton|Nuevo}} creamos un nuevo módulo Basic; se presentará un diálogo sugiriendo el nombre del nuevo módulo como '''''Module1'''', nombre que aceptamos porque nos es indiferente.
[[Image:Cuadro.Dialogo.Formulario.OpenOffice.Calc.005.png|center|link=|class=sombra-p]]
Se mostrará el editor IDE Basic. Justo en la parte inferior del mismo, se muestra una pestaña con el nombre '''''Module1'''''. Haremos clic con el botón secundario del ratón sobre la pestaña, y del menú contextual seleccionamos la opción '''''Insertar > Diálogo BASIC'''''.

El editor IDE Basic presentará una nueva pestaña, de nombre '''''Dialog1''''', con un pequeño diálogo dibujado en el centro de la misma, y se mostrará también la barra de herramientas flotante '''''Cuadro de herramientas'''''. Si no se muestra, puedes utilizar la opción que encontrarás en el menú '''''Ver > Barras de herramientas'''''
[[Image:Cuadro.Dialogo.Formulario.OpenOffice.Calc.006.png|center|link=|class=sombra-p]]
Haremos un clic con el botón secundario sobre la pestaña del diálogo, y seleccionamos '''''Renombrar''''' para cambiar su nombre a '''''Dialogo'''''.

== Insertar los controles en el diálogo ==
Utilizando los botones disponibles en la barra de herramientas '''''Cuadro de herramientas''''' y siguiendo el mismo método que hemos utilizado para insertar el botón en la hoja de Calc (clic y arrastrar) insertaremos:
:* Tres etiquetas utilizando el botón [[Image:macro-insertar-etiqueta-openoffice.png|class=sombra-p|link=|Herramienta Etiqueta]]
:* Tres campos de texto utilizando el botón [[Image:macro-insertar-campo-de-texto-openoffice.png|class=sombra-p|link=|Herramienta Campo de texto]]
:* Dos botones utilizando el botón [[Image:macro-insertar-boton-openoffice.png|class=sombra-p|link=|Herramienta Botón]]

Cambiaremos los textos de las etiquetas y de los botones siguiendo el mismo método que con el botón insertado en la hoja de Calc (si bien, para acceder al diálogo de propiedades, el botón ahora se llama '''''Propiedades''''', al igual que la opción del menú contextual del control).

Haciendo un clic justo sobre el borde del diálogo podemos editar sus propiedades; así, asignaremos como '''''Título''''' de nuestro cuadro de diálogo '''''Agregar contactos'''''; una vez hechos todos estos cambios, deberemos obtener un resultado similar al mostrado en la siguiente imagen:
[[Image:Cuadro.Dialogo.Formulario.OpenOffice.Calc.007.png|center|link=|class=sombra-p]]
Guarda tu trabajo haciendo clic sobre {{Boton|Guardar}}.

== El código Basic necesario ==
Haz clic sobre la etiqueta del módulo '''''Module1'''''. Teclea o mejor, copia y pega, el siguiente código sustituyendo el código existente en el módulo:

<syntaxhighlight lang="oobas">
' ***** BASIC *****
Option Explicit
Dim oDialogo As Object

' Abre el diálogo de nombre Dialogo
Sub Mostrar_Dialogo()
'-------------------------------------------------------------------
DialogLibraries.LoadLibrary("Standard")
oDialogo=CreateUNODialog(DialogLibraries.Standard.Dialogo)
oDialogo.Execute()
End Sub

' Cierra el diálogo
Sub Cerrar_Dialogo()
'-------------------------------------------------------------------
oDialogo.EndExecute()
MsgBox "Gracias por la visita. Vuelve pronto !!!", 64, "Diálogo en Calc"
End Sub

' Almacena los datos en la siguiente línea disponible de la Hoja2, y vacía los datos del formulario
Sub Guardar_Datos()
'-------------------------------------------------------------------
Dim xDato As Variant, nRow As Long

If MsgBox( "¿Deseas guardar los cambios realizados?", 33, "Diálogo en Calc" ) = 1 Then
nRow = UltimaFila( 1 )
With oDialogo.Model
xDato = .TextField1.Text
ThisComponent.Sheets(1).GetCellByPosition(0,nRow).SetFormula( xDato )

xDato = .TextField2.Text
ThisComponent.Sheets(1).GetCellByPosition(1,nRow).SetFormula( xDato )

xDato = .TextField3.Text
ThisComponent.Sheets(1).GetCellByPosition(2,nRow).SetFormula( xDato )

.TextField1.Text = ""
.TextField2.Text = ""
.TextField3.Text = ""
End With
End If
End Sub

' Calcula cual es la primera línea disponible en la hoja
Function UltimaFila( nHoja As Integer ) As Long
'-------------------------------------------------------------------
Dim oHoja As Object, n As Long
oHoja = ThisComponent.Sheets(nHoja)
n = 0
Do While True
If oHoja.GetCellByPosition(0,n).GetFormula = "" Then
Exit Do
End If
n=n+1
Loop
UltimaFila = n
End Function
</syntaxhighlight>

Guarda tu trabajo.

No vamos a explicar que hace cada subrutina; sus nombres son suficientemente explicativos. Cómo lo hacen, tampoco lo explicamos. No es el objetivo de este tutorial. Como cualquier código, es susceptible de ser mejorado. Esperamos tus aportaciones :).

== Enlazar los controles al código ==
Nos queda muy poco trabajo por hacer. Vamos a enlazar los controles del diálogo al código. Haz clic sobre la pestaña del diálogo '''''Dialogo'''''.

Selecciona el primer botón, y muestra la ventana '''''Propiedades'''''. En la pestaña '''''Acontecimientos''''' haz clic sobre el botón con tres puntos mostrado al final de la línea correspondiente al evento '''''Botón del ratón pulsado'''''.

Se mostrará el diálogo '''''Acción asignada'''''. Haz clic ahora sobre {{Boton|Macro}}

Se mostrará el diálogo '''''Selector de macro'''''. Selecciona el módulo '''''Cuadro de diálogo Calc.ods > Standard > Module1''''' en la lista '''''Biblioteca'''''. En la lista '''''Nombre de macro''''' selecciona la macro '''''Guardar_Datos'''''. Haz clic sobre {{Boton|Aceptar}}.
[[Image:Cuadro.Dialogo.Formulario.OpenOffice.Calc.008.png|center|link=|class=sombra-p]]
El diálogo '''''Acción asignada''''' se muestra ahora así. Haz clic sobre {{Boton|Aceptar}}
[[Image:Cuadro.Dialogo.Formulario.OpenOffice.Calc.009.png|center|link=|class=sombra-p]]
El diálogo '''''Propiedades:CommandButton''''' se muestra como ves en la imagen.
[[Image:Cuadro.Dialogo.Formulario.OpenOffice.Calc.010.png|center|link=|class=sombra-p]]
Selecciona el segundo botón, y realiza los mismos pasos para asignar la macro '''''Cerrar_Dialogo'''''. Cierra la ventana '''''Propiedades''''' y guarda tu trabajo.

Cierra el editor IDE Basic. Ya hemos terminado con la parte dura. Nos queda un último detalle.

== Enlazar el botón de la hoja al diálogo ==
Ahora enlazaremos el botón que situamos en la hoja de cálculo a la macro que abre el diálogo. Desde la barra de herramientas '''''Campos de control de formulario''''' activa el '''''Modo diseño''''' si no está activado, y selecciona con un clic el botón.

Abre el diálogo '''''Propiedades:Botón''''' desde el botón [[Image:macro-boton-control-openoffice.png|link=|class=sombra-p|Herramienta Control]] de la misma barra de herramientas. Activa la pestaña '''''Acontecimientos'''''.

Asignaremos por el mismo procedimiento que vimos antes la macro '''''Mostrar_Dialogo''''' al evento '''''Botón del ratón pulsado'''''.

Guarda tu trabajo.

Desde la barra de herramientas '''''Campos de control de formulario''''' desactiva el '''''Modo diseño'''''.

Haz un clic sobre el botón. Si has seguido fielmente los pasos, y nosotros lo hemos explicado correctamente, deberás ver el cuadro de diálogo sobre la hoja de cálculo.
[[Image:Cuadro.Dialogo.Formulario.OpenOffice.Calc.011.png|center|link=|class=sombra-p]]
Prueba a completar los datos y pulsar sobre los botones para comprobar que funciona. Recuerda que los datos se almacenan en la '''''Hoja2'''''.

Por si hemos cometido algún error (nosotros o tú, quien sabe ;) ) aquí tienes un enlace para {{enlace|http://blog.open-office.es/media/blogs/basic/Macros/Cuadro_Dialogo_Calc/Cuadro_de_dialogo_Calc.ods|descargar el documento que hemos creado para este tutorial}}.

'''Si te ha gustado, puedes firmar en nuestro ''Libro de Visitas'', o recomendarnos en ''Facebook'', ''Twitter'', ''Google+'' o en tu red social favorita.'''
{{Pie|Recursos_Basic|+ Recursos para OOo Basic|cat=Basic|subcat=}}
[[Category:Ver.3.4.x]][[Category:Ver.3.3.x]][[Category:Ver.3.2.x]][[Category:Ver.3.1.x]]

Cuadro de dialogo para OpenOffice Calc - Historial de revisiones

Salva en 23:18 25 ago 2015