Diálogo (a)
Un Cuadro de diálogo (Diálogo en adelante) es un formulario emergente que, a diferencia del Formulario que vimos en las [entradas anteriores], no se construye sobre el documento sino desde el IDE, aunque también de forma manual. Un Diálogo es un contendor de controles, los mismos que podemos utilizar en el Formulario.
En esta entrada vamos a crear un Diálogo, a visualizarlo en pantalla y a aprender a acceder a él mediante código OOo Baisc.
- Acceso al cuadro de diálogo llamado Dialogo1 según Mauricio Baeza
Declaramos la variable oDialMau como pública (2) e iniciamos el script
Dim oDialMau As Object
Sub AccesoCuadroDialogo
Cargamos la librería Standard en memoria
DialogLibraries.LoadLibrary( "Standard" )
Cargamos el Diálogo en memoria utilizando la función CreateUNODialog() y llamando al atributo DialogLibraries que a su vez llama al objeto biblioteca Standard y al dialogo Dialogo1 por el método getByName()
oDialMau = CreateUnoDialog( DialogLibraries.Standard.getByName("Dialogo1") )
Mostramos el Diálogo
oDialMau.execute()
End sub
- El segundo método (3) es muy similar, aunque presenta alguna pequeña diferencia, como se puede ver:
Creamos la variable oDialMod como pública (2) e iniciamos el script
Dim oDialMod As Object
Sub Mostrar_Dialogo
Accedemos a la librería Standard, que es en la que se encuentra el objeto Cuadro de diálogo
DialogLibraries.LoadLibrary("Standard")
Cargamos en memoria (variable oDialMod) el objeto Dialogo1 mediante la función o procedimiento CreateUNODialog() y mediante DialogLibraries aplicada a la librería Standard, que es donde se ubica nuestro diálogo
oDialMod=CreateUNODialog(DialogLibraries.Standard.Dialogo1)
Ejecutamos (la visualización de) el diálogo
oDialMod.Execute()
End Sub
Aunque lo interesante de un cuadro de diálogo es utilizarlo como medio input, no es hasta que lo cerramos que podemos acceder a su contenido, así que, para finalizar esta entrada, conviene aprender a cerrarlo.
Sub Cerrar_DialMauoDialMau.EndExecute()MsgBox "Has cerrado el diálogo según Mau", 64, "Diálogo en Calc"End Sub
- Bien mediante el método getByName() con el que culmina la ejecución del método CreateUNODialog()
- Bien como parte del procedimiento CreateUNODialog(), que se concreta como DialogLibraries.Standard.Dialogo1
No hay comentarios:
Publicar un comentario
Comenta esta entrada