¿cómo Puedo Mostrar Todos Los Formularios De Una Aplicación?


Ir a la página 1, 2  Siguiente

Objetivo: ¿cómo Puedo Mostrar Todos Los Formularios De Una Aplicación?
¿cómo podría hacer para que en un ListBox aparecieran todos los formularios de una aplicación?.

Perfil MP  
Objetivo: Re: ¿cómo Puedo Mostrar Todos Los Formularios De Una Aplicación?
Prueba con esto:

DIM hWindow AS Window

FOR EACH hWindow IN Windows
listbox1.Add(hWindow.Name)
NEXT


Pero creo que sólo sirve si usas MDI o ventanas embebidas, de otro modo sólo "ve" la propia ventana principal o "TopLevel Window".

Y por curiosidad, ¿para qué lo necesitas?

Perfil MP  
Objetivo: Re: ¿cómo Puedo Mostrar Todos Los Formularios De Una Aplicación?
estoy haciendo una aplicación en la que necesito controlar el acceso de los distintos usuarios a los distintos formularios y quiero hacer un formulario para asignar los permisos, por ello, necesito una rutina que me permita seleccionar todos los formularios de la aplicación.

Perfil MP  
Objetivo: Re: ¿cómo Puedo Mostrar Todos Los Formularios De Una Aplicación?
Hola.

¿algo así?

PUBLIC SUB Form_Open()

DIM sNombreFormulario AS String

sNombreFormulario = FMain.Name

ListBox1.Add(sNombreFormulario)
END

Perfil MP  
Objetivo: Re: ¿cómo Puedo Mostrar Todos Los Formularios De Una Aplicación?
jguardon escribió: [Ver mensaje]
Prueba con esto:

DIM hWindow AS Window

FOR EACH hWindow IN Windows
listbox1.Add(hWindow.Name)
NEXT


Pero creo que sólo sirve si usas MDI o ventanas embebidas, de otro modo sólo "ve" la propia ventana principal o "TopLevel Window".

Y por curiosidad, ¿para qué lo necesitas?


Lo he probado y efectivamente, únicamente me muestra las ventana que tengo abiertas.

necesitaría todos los formularios.

¿alguien sabe como hacerlo?

Perfil MP  
Objetivo: Re: ¿cómo Puedo Mostrar Todos Los Formularios De Una Aplicación?
¿Los formularios los creas en tiempo de ejecución?, o ¿en tiempo de diseño.?

Perfil MP  
Objetivo: Re: ¿cómo Puedo Mostrar Todos Los Formularios De Una Aplicación?
Dentro de tu proyecto hay una carpeta oculta .gambas que contiene unas referencias a todas las clases, módulos y formularios del proyecto. El inconveniente es que están todos en mayúsculas, que están mezclados entre tipos (clases, formularios y módulos) y que aunque consigas llenar el listview mediante alguna rutina que liste el directorio, supongo que no será posible hacerlo nunca más en tiempo de ejecución.

Así que me temo que tendrás que hacerlo a mano, 'hardcoded' como se suele decir...
Un String[] o una colección irían bien o directamente la lista interna del listview.

Siento no poder aportar nada más,

saludos.

Perfil MP  
Objetivo: Re: ¿cómo Puedo Mostrar Todos Los Formularios De Una Aplicación?
abarzuaf escribió: [Ver mensaje]
¿Los formularios los creas en tiempo de ejecución?, o ¿en tiempo de diseño.?


todos los formularios están diseñados previamente y existen cuando se ejecuta la aplicación.

De momento no creo ningún formulario en tiempo de ejecución.

Perfil MP  
Objetivo: Re: ¿cómo Puedo Mostrar Todos Los Formularios De Una Aplicación?
abarzuaf escribió: [Ver mensaje]
Hola.

¿algo así?

PUBLIC SUB Form_Open()

DIM sNombreFormulario AS String

sNombreFormulario = FMain.Name

ListBox1.Add(sNombreFormulario)
END


con esta rutina, Únicamente listo un formulario ¿no?

Perfil MP  
Objetivo: Re: ¿cómo Puedo Mostrar Todos Los Formularios De Una Aplicación?
Entonces deberias hacerlo como dice jGuardon, directamente cargando los nombre al listbox, o en una matriz
¿No te sirve así?

última edición por abarzuaf el Martes, 08 Diciembre 2009, 02:10; editado 1 vez
Perfil MP  
Ir a la página 1, 2  Siguiente

Página 1 de 2


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.0819s (PHP: 44% SQL: 56%)
Consultas SQL: 20 - Debug off - GZIP Activado