[RESUELTO] Ocultar 4 Subformularios a traves de botones

[ayto]

Buenas. Soy nuevo por aquí y quería preguntar si me podríais echar un mano con unos formularios que tengo.
El caso es que tengo un formulario principal con 4 subformularios. Lo que estoy intentando hacer es que esos 4 subformularios (que son tablas grid )
aparezca y desaparezcan pulsando los botones, de manera que si yo hago click en el primer botón desaparezcan los otros 3, si pulso el segundo botón, que aparezca el segundo subformulario y desaparezca el primero, el tercero y el cuarto y así sucesivamente con los demás. He descargado algunos ejemplos que hay colgados en el foro pero no consigo hacerlo funcionar.

Un saludo y gracias

[RMG]

Hola,

Si adjuntas un pequeño ejemplo, evitas que quien te pueda ayudar tenga que empezar de cero a crearlo todo.

Saludos

[ayto]

Ya esta resuelto. Dejo por aquí el código por si puede ser de ayuda.

Código: Seleccionar todo

Sub abrirform1
	Dim root_doc As Object
	Dim form_container, form_ctrlr As Object
	Dim main_frm As Object
	Dim sub_frm, sub_frm1, sub_frm2 As Object
	Dim sub_frm_grd, sub_frm_grd1, sub_frm_grd2 As Object
	root_doc = ThisComponent
	form_container = root_doc.Drawpage.Forms
	form_ctrlr = root_doc.getCurrentController()
	main_frm = form_container.getByName("MainForm")
	
	sub_frm1 = main_frm.getByName("SubForm1")
	sub_frm2 = main_frm.getByName("SubForm2")
	sub_frm3 = main_frm.getByName("SubForm3")
	sub_frm4 = main_frm.getByName("SubForm4")
	
	
	sub_frm_grd1 = sub_frm1.getByName("SubForm_Grid1")
	sub_frm_grd2 = sub_frm2.getByName("SubForm_Grid2")
	sub_frm_grd3 = sub_frm3.getByName("SubForm_Grid3")
	sub_frm_grd4 = sub_frm4.getByName("SubForm_Grid4")
	
	'set focus to grid control
	form_ctrlr.getControl(sub_frm_grd1).setVisible(True)
	form_ctrlr.getControl(sub_frm_grd2).setVisible(False)
	form_ctrlr.getControl(sub_frm_grd3).setVisible(False)
	form_ctrlr.getControl(sub_frm_grd4).setVisible(False)

End Sub