Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Editar Módulo Desde Programa(solucionado)
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje 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.
 




===================
Migrando desde visual basic, el Gambas de Ms
Mi blog gambero
 
última edición por Dani26 el Martes, 04 Octobre 2011, 01:05; editado 1 vez 
Dani26 - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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.
 




===================
Migrando desde visual basic, el Gambas de Ms
Mi blog gambero
 
Dani26 - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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
 




===================
Migrando desde visual basic, el Gambas de Ms
Mi blog gambero
 
Dani26 - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
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



  

 

cron