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


Goto page Previous  1, 2

Subject: Re: ¿cómo Puedo Mostrar Todos Los Formularios De Una Aplicación?
abarzuaf escribió: [Ver mensaje]
Entonces deberias hacerlo como dice jGuardon, directamente cargando los nombre al listbox, o en una matriz
¿No te sirve así?


el problema es que eso me obliga a no despistarme de ir añadiendo formularios en el listbox según va creciendo la aplicación, que es lo que realmente quería evitar.

Profile PM  
Subject: Re: ¿cómo Puedo Mostrar Todos Los Formularios De Una Aplicación?
PRIVATE SUB CargarFormularios(lvForms AS ListView)
DIM arrsFormularios AS NEW String[]
DIM sFormularios AS String
DIM i AS Integer

SHELL "ls " & Application.Path &/ "*.form" TO sFormularios

arrsFormularios = Split(sFormularios, gb.NewLine)

FOR i = 0 TO arrsFormularios.Count - 1
IF Exist(arrsFormularios[i]) THEN
lvForms.Add(arrsFormularios[i], File.BaseName(arrsFormularios[i]))
ENDIF
NEXT

END


El código anterior muestra como cargar en una lista los nombres de los formularios de una aplicación, pero para que funcione en la pc del usuario deberías guardar a un fichero el resultado del comando "ls *.form" e incluirlo como parte de tu aplicación. La rutina que carga los nombres de los formularios debería hacerlo desde ese archivo (ya que en el path de tu aplicación no estarán los archivos fuentes de cada formulario).

Last edited by fabianfv on Tuesday, 08 December 2009, 04:07; edited 2 times in total
Subject: Re: ¿cómo Puedo Mostrar Todos Los Formularios De Una Aplicación?
fabianfv escribió: [Ver mensaje]
PRIVATE SUB CargarFormularios(lvForms AS ListView)
DIM arrsFormularios AS NEW String[]
DIM sFormularios AS String
DIM i AS Integer

SHELL "ls " & Application.Path &/ "*.form" TO sFormularios

arrsFormularios = Split(sFormularios, gb.NewLine)

FOR i = 0 TO arrsFormularios.Count - 1
IF Exist(arrsFormularios[i]) THEN
lvForms.Add(arrsFormularios[i], File.BaseName(arrsFormularios[i]))
ENDIF
NEXT

END


El código anterior muestra como cargar en una lista los nombres de los formularios de una aplicación, pero para que funcione en la pc del usuario deberías guardar a un fichero el resultado del comando "ls *.form" e incluirlo como parte de tu aplicación. La rutina que carga los nombres de los formularios debería hacerlo desde ese archivo (ya que en el path de tu aplicación no estarán los archivos fuentes de cada formulario).


Esto se parece mucho más a lo que necesito.

Gracias amigo fabianfv

Profile PM  
Goto page Previous  1, 2

Page 2 of 2


  
You cannot post new topics
You cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events

   

This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Generation Time: 0.0958s (PHP: -36% SQL: 136%)
SQL queries: 24 - Debug Off - GZIP Enabled