FoxPro/Visual FoxPro - Recorrer Listbox

 
Vista:

Recorrer Listbox

Publicado por SoyWilly (264 intervenciones) el 25/04/2020 00:04:34
Hola a todos.

Programo en VFox 9

Tengo un List de una sola columna, q se llena desde programacion (codigo en boton2) con los nombres de los archivos de una carpeta, hasta ahi todo bien, en el list pueden verse los archivos,

Total es una variable donde se guarda la cantidad de item q tiene List1, Ej. 5 (tambien en boton2)

Ahora debo recorrer cada item, para ello escribi en un boton3:
1
2
3
4
DO WHILE nCnt <= Total
   MESSAGEBOX("Ver contenido "+THISFORM.list1.List1.ListItem(nCnt))
   nCnt=nCnt+1
ENDDO

Pero el codigo anterior solo muestra la ventana de mensajes con: "Ver contenido ", 5 veces sin ningun otro valor
Que hice mal???

Y el mismo codigo si funciona en el boton2, donde se llena el List1, osea me muestra "Ver contenido TextoPrimero.txt", asi los demas archivos. Estoy trabajando en un solo formulario

Como hago para ubicar el valor de cada item???

Gracias por la ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Leonardo Daniel A.
Val: 1.115
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Recorrer Listbox

Publicado por Leonardo Daniel A. (497 intervenciones) el 26/04/2020 20:35:36
estas repitiendo list1 y no es ListItem si no List y no uses while, usa FOR

1
2
3
FOR nCnt = 1 to Total
     MESSAGEBOX("Ver contenido "+THISFORM.List1.List(nCnt))
NEXT
[
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar