FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveTouch cambiar array de items e listbox
wilsongamboa
Posts: 670
Joined: Wed Oct 19, 2005 06:41 PM
cambiar array de items e listbox
Posted: Thu Mar 12, 2015 02:52 PM
Antonio buenos dias
tengo el siguiente codigo

Code (fw): Select all Collapse
    @ 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
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: cambiar array de items e listbox
Posted: Thu Mar 12, 2015 05: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
wilsongamboa
Posts: 670
Joined: Wed Oct 19, 2005 06:41 PM
Re: cambiar array de items e listbox
Posted: Thu Mar 12, 2015 07: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
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: cambiar array de items e listbox
Posted: Thu Mar 12, 2015 09:55 PM
Prueba esto

Grabalo como "List00.prg"

Code (fw): Select all Collapse
#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
wilsongamboa
Posts: 670
Joined: Wed Oct 19, 2005 06:41 PM
Re: cambiar array de items e listbox
Posted: Thu Mar 12, 2015 10:31 PM

Gracias Cristobal pruebo y te aviso
saludos
Wilson

Wilson 'W' Gamboa A
Wilson.josenet@gmail.com
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: cambiar array de items e listbox
Posted: Thu Mar 12, 2015 10:37 PM
Wilson, la function SetArray podria ser algo asi

Code (fw): Select all Collapse
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
wilsongamboa
Posts: 670
Joined: Wed Oct 19, 2005 06:41 PM
Re: cambiar array de items e listbox
Posted: Thu Mar 12, 2015 11:34 PM

Funcion贸 perfecto
muchas gracias

Wilson

Wilson 'W' Gamboa A
Wilson.josenet@gmail.com

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions