Cuadro de Dialogo como cerrarlo

[dacruzcal]

Hola:

Soy nuevo en OOo, vengo de Access, y este es mi primer tema públicado.

Desde Calc pulso un boton que me abre un cuadro de dialogo, este cuadro es como un submenu con varios botones que al pulsarlo me dirige a otro formulario u otro cuadro de dialogo para introducir datos.

Al pulsar el boton seleccionado debe cerrar el cuadro de dialogo y dirigirme a otro cuadro de dialogo o Formulario, el problema es que no se cierra el cuadro de dialogo.

Lo he intentado según he visto por el foro con EndExecute(), pero no consigo que se cierre.

Gracias anticipadas por la ayuda que me podais prestar.

[SLV-es]

[modo broma on]
Ufff, vaya, se me acabó la batería de la bola bolita mágica
[modo broma off]

Hola

Lo has intentado, pero la descripción del problema no es suficiente.
No entiendo si estás programando una macro, o has instalado una extensión y al pulsar el botón sucede lo que describes, o qué ocurre realmente.

¿Qué nombre tiene el botón? ¿Es de Calc, de una extensión, o de una macro que programas? ¿Dispones de alguna imagen o documento que nos ayude?

¿Puedes intentar explicarlo de nuevo, con más detalles?

Saludos

[dacruzcal]

Disculpa la poca información.

En el Menú Principal (Hoja de Calculo) pulso el boton UTILIDADES y ejecuta una macro para abrir el "SubMenú (Utilidades)",
que es un marco de dialogo.

Pulso el boton del SubMenú "Añadir ejercicio nuevo" y se ejecuta la macro para cargar un formulario ó cuadro de dialogo (pendiente de implementar) para añadir el año, pero para ello necesito que el "SubMenú" se cierre y no lo consigo.

SubMenúc.gif (37.41 KiB) Visto 3571 veces

Se ejecuta el siguiente macro

Código: Seleccionar todo

'	Añadir Años de los ejercicios
' -------------------------------------
Sub Ejercicio()
	Dim oDialogo As Object
	DialogLibraries.LoadLibrary("INICIO")

	oDialogo = Createunodialog(DialogLibraries.INICIO.Dialogo9)

'       Cierro el Dialogo
	oDialogo.endExecute()

'        Seguimos ejecutando la Macro	
	Msgbox "Siguiente paso"
End Sub

Espero que con esta información sea suficiente.

Gracias

[SLV-es]

[quote="dacruzcal"]
Es posible que al abrir algo desde el diálogo no deje que lo cierres hasta que ese algo se cierre.
Tendría que disponer de toda la macro (y de tiempo ) para comprobarlo.

Yo prefiero utilizar dispose() para cerrar diálogos que puedo reutilizar:

Código: Seleccionar todo

Sub Ejercicio()
	Dim oDialogo As Object
	DialogLibraries.LoadLibrary("INICIO")

	oDialogo = Createunodialog(DialogLibraries.INICIO.Dialogo9)

'       Cierro el Dialogo
	oDialogo.setVisible( False ) ' oculta el diálogo
        oDialogo.dispose()

'        Seguimos ejecutando la Macro	
	Msgbox "Siguiente paso"
End Sub

Nota: Quizás te guste mi extensión BasicIDETools, en donde además de encontrar utilidades interesantes para programar, podrás ver su código

[dacruzcal]

Gracias por la aportación.

En vista de que no le veo la solución al problema, lo que hare será cambiar la forma de usar los SubMenú, es que yo queria hacerlo como lo tengo en Access, pero seguro que le encuentro la solución cambiando los cuadros de dialogo a opciones en la misma hoja de calculo.

Gracias por todo
Damián CC