cambiar array de items e listbox

cambiar array de items e listbox

Postby wilsongamboa » Thu Mar 12, 2015 2:52 pm

Antonio buenos dias
tengo el siguiente codigo

Code: Select all  Expand view
   @ 15, 05 LISTBOX oSelf:oLbx1 VAR oSelf:cLbx1 OF oSelf:oDlg1 ;
             SIZE 750, 500;
             ITEMS oSelf:aItemsLbx
 


oSelf:aItemsLbx tiene ciertos valores
ahora quiero al ejecutar una acción cambiar el contenido del array y que se muestre el nuevo contenido
he revisado documentación de QT y no hallo como
saludos

Wilson
Wilson 'W' Gamboa A
Wilson.josenet@gmail.com
User avatar
wilsongamboa
 
Posts: 548
Joined: Wed Oct 19, 2005 6:41 pm
Location: Quito - Ecuador

Re: cambiar array de items e listbox

Postby cnavarro » Thu Mar 12, 2015 5:32 pm

La accion que quieres ejecutar esta relacionada con el propio Listbox (por ejemplo al hacer dobleclick sobre un item), o se produce desde otro control (por ejemplo al pulsar un boton )?
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: cambiar array de items e listbox

Postby wilsongamboa » Thu Mar 12, 2015 7:39 pm

Cristobal gracias por responder
Es un boton que quiero leer otros datos y cambie el array del listbox algo asi como
oLbx:setarray( aArray )
oLbx:refresh()
como te dije revise la documentación pero no lo hallo
saludos

Wilson
Wilson 'W' Gamboa A
Wilson.josenet@gmail.com
User avatar
wilsongamboa
 
Posts: 548
Joined: Wed Oct 19, 2005 6:41 pm
Location: Quito - Ecuador

Re: cambiar array de items e listbox

Postby cnavarro » Thu Mar 12, 2015 9:55 pm

Prueba esto

Grabalo como "List00.prg"

Code: Select all  Expand view

#include "FiveTouch.ch"
     
function Main()
     
     local oDlg
     local oBtnCancel, cLbxItem
     local oBtn1, oBtn2, oBtn3

   DEFINE DIALOG oDlg

   @ 10, 10 LISTBOX oLbx VAR cLbxItem OF oDlg ;
             SIZE 380, 200 ;
             Items { "ListBox" }

   @ 250, 10 BUTTON oBtn1 PROMPT "Carga 1" OF oDlg ;
      ACTION ( Lee( 0, oLbx ), Lee( 1, oLbx ) )

   @ 250, 100 BUTTON oBtn2 PROMPT "Carga 2" OF oDlg ;
      ACTION ( Lee( 0, oLbx ), Lee( 2, oLbx ) )

   @ 250, 190 BUTTON oBtn3 PROMPT "Limpia" OF oDlg ;
      ACTION Lee( 0, oLbx )

   @ 250, 280 BUTTON oBtnCancel PROMPT "Cancel" OF oDlg ;
      ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil             

Function Lee( n, oList )
Local x
Local cCad
Local nL
Do Case
   Case n = 0     // Solo Borrar Contenido

        For x = oList:Count() to 1 step -1
           oList:takeItem( x - 1 )
        Next x
       
   Case n = 1
      cCad := Memoread( "list00.prg" )
      nL   := MlCount( cCad )
      For x = 1 to nL
         oList:AddItem( Memoline( cCad, , x ) )
      Next x

   Case n = 2
      cCad := Memoread( "tutor01.prg" )
      nL   := MlCount( cCad )
      For x = 1 to nL
         oList:AddItem( Memoline( cCad, , x ) )
      Next x

EndCase
Return nil

 
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: cambiar array de items e listbox

Postby wilsongamboa » Thu Mar 12, 2015 10:31 pm

Gracias Cristobal pruebo y te aviso
saludos
Wilson
Wilson 'W' Gamboa A
Wilson.josenet@gmail.com
User avatar
wilsongamboa
 
Posts: 548
Joined: Wed Oct 19, 2005 6:41 pm
Location: Quito - Ecuador

Re: cambiar array de items e listbox

Postby cnavarro » Thu Mar 12, 2015 10:37 pm

Wilson, la function SetArray podria ser algo asi

Code: Select all  Expand view


Function QSetArray( aNew, oList )
Local x
Local nL := Len( aNew )

      For x = oList:Count() to 1 step -1
         oList:takeItem( x - 1 )
      Next x
      For x = 1 to nL
         oList:AddItem( aNew[ x ] )
      Next x

Return nil



 
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: cambiar array de items e listbox

Postby wilsongamboa » Thu Mar 12, 2015 11:34 pm

Funcionó perfecto
muchas gracias

Wilson
Wilson 'W' Gamboa A
Wilson.josenet@gmail.com
User avatar
wilsongamboa
 
Posts: 548
Joined: Wed Oct 19, 2005 6:41 pm
Location: Quito - Ecuador


Return to FiveTouch

Who is online

Users browsing this forum: No registered users and 4 guests