Editar Módulo Desde Programa(solucionado)


Objetivo: Editar Módulo Desde Programa(solucionado)
Trateré de ser claro. Estoy creando un programa y quiero poder editar el código de un módulo que me carga 17 textbox diferentes, con datos que pertenecen a mi paìs.
Ejemplifico:
Public Sub cargar(lista1 As Listbox)
lista1.Add("Elige equipo")
lista1.Add("Bella Vista")
lista1.Add("C.A. Cerro")
lista1.Add("C.A.Fenix")
lista1.Add("Cerrito")
lista1.Add("Cerro Largo")
lista1.Add("Danubio")
lista1.Add("Defensor Sporting")
lista1.Add("El Tanque Sisley")


End


Mi idea es que el usuario pueda editar este código desde el programa sin necesidad de abrir el ide de gambas o buscarlo para abrirlo con un editor de texto.Y conseguir esto.
Public Sub cargar(lista1 As Listbox)
lista1.Add("Elige equipo")
lista1.Add("Barcelona")
lista1.Add("Real Madrid")

End

¿Es posible?
Gracias.

última edición por Dani26 el Martes, 04 Octobre 2011, 01:05; editado 1 vez
Objetivo: Re: Editar Módulo Desde Programa
Citar:
Mi idea es que el usuario pueda editar este código desde el programa sin necesidad de abrir el ide de gambas o buscarlo para abrirlo con un editor de texto.Y conseguir esto.


No se puede editar código desde el propio programa ni desde fuera de él. gambas necesita código compilado y no puede ejecutar código fuente. Lo que puedes hacer es que el usuario tenga acceso a los datos que luego saldrán en los textBox.
Crea un fichero de texto que se llame "carpeta personal/.miprograma/equipos.txt" (por ejemplo) y teclea en él los equipos, uno en cada línea. Luego carga ese fichero en una variable de texto, conviértelo en un Array y añade cada elemento a la lista del textBox.
Algo así:


dim aEquipos as string[]
dim mifichero, equipo as string

mifichero=file.load(User.Home &/ ".miprograma/equipos.txt") 'el path no tiene por qué ser este, claro.

aEquipos=split(mifichero,"\n")
for each equipo in aEquipos
txtBoxEquipos.add(equipo)
next



Más o menos. No le he probado, que lo he escrito aquí al vuelo, pero creo que la idea se comprende.
Pero una cosa te digo: cuando una aplicación empieza a necesitar interactuar con el usuario, que éste pueda configurar, cambiar datos, etc. etc., está pidiendo a gritos una base de datos. Plantéatelo.

Suerte

última edición por shordi el Lunes, 03 Octobre 2011, 09:25; editado 2 veces
Perfil MP  
Objetivo: Re: Editar Módulo Desde Programa
Gracias, buen dato. El programa ya tiene una base de datos, veré como tomar los nombres desde allí, aunque creo que ya sé como hacerlo.
Saludos.Luego de probarlo les cuento.

Objetivo: Re: Editar Módulo Desde Programa(solucionado)
Aquí la solución,aprovechando la base de datos como sugiriò Shordi.
Public Sub listado(lista As Listbox)
Dim Clave As String
If ConectarBase() Then Return
hresul = hconn.Exec("Select * from equipos order by Equipo ASC") 'consulta sql ordenada alfabeticamante

Do While hresul.Available
Clave = hresul["Equipo"]
lista.Add(Clave)
hresul.MoveNext()
Loop
End

Public Sub listar()


listado(lb1)
listado(lb2)
listado(lb3)
listado(lb4)
listado(lb5)
listado(lb6)
listado(lb7)
listado(lb8)
listado(lb9)
listado(lb10)
listado(lb11)
listado(lb12)
listado(lb13)
listado(lb14)
listado(lb15)
listado(lb16)

End

Donde lb1 a lb16 son unos listbox que se deben cargar con la misma lista.
Saludos


Página 1 de 1


  
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
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.4562s (PHP: -82% SQL: 182%)
Consultas SQL: 47 - Debug off - GZIP Activado