Multiple selección de un arreglo con ListBox o Browse

[jgayoso]

Señores necesito saber como hacer un multiple selector, el ListBox me funciona, pero solo puedo seleccionar un solo elemento de una matriz.

Desde ya se agradece vuestra ayuda.

[FiveWiDi]

Señores necesito saber como hacer un multiple selector, el ListBox me funciona, pero solo puedo seleccionar un solo elemento de una matriz.

Desde ya se agradece vuestra ayuda.

Code: Select all  Expand view  RUN

@ 269,14 LISTBOX oLbasocDomi VAR uLbasocDomi ITEMS aDomi SIZE 376,154 OF ;
    oAdReCo01 COLORS nmicolortexto,nmicolorfondo PIXEL FONT omifont MULTIPLE

Aunque yo investigaría como hacerlo con XBrowse, es lo que tengo pendiente de hacer.

[jgayoso]

Carlos, estoy trabajando con FiveLinux y MULTIPLE me da error.

Con FiveWin no tengo problemas, el problema es con FiveLinux.

Quedo a la espera de cualquier ayuda.

Señores necesito saber como hacer un multiple selector, el ListBox me funciona, pero solo puedo seleccionar un solo elemento de una matriz.

Desde ya se agradece vuestra ayuda.

Code: Select all  Expand view  RUN

@ 269,14 LISTBOX oLbasocDomi VAR uLbasocDomi ITEMS aDomi SIZE 376,154 OF ;
    oAdReCo01 COLORS nmicolortexto,nmicolorfondo PIXEL FONT omifont MULTIPLE

Aunque yo investigaría como hacerlo con XBrowse, es lo que tengo pendiente de hacer.

[Antonio Linares]

Jorge,

Aqui tienes un ejemplo:

Code: Select all  Expand view  RUN

// Using a browse to display a multidimensional array

#include "FiveLinux.ch"

function Main()

   local oWnd, oBrw, aTest := { { .F., "one", "two" }, { .F., "three", "four" }, { .F., "five", "six" } }

   DEFINE WINDOW oWnd TITLE "Testing Browses" SIZE 522, 317

   @ 2, 2 BROWSE oBrw OF oWnd ;
      HEADERS "Selected", "First", "Second" ;
      FIELDS  If( aTest[ oBrw:nAt ][ 1 ], "X", " " ), aTest[ oBrw:nAt ][ 2 ], aTest[ oBrw:nAt ][ 3 ]

   oBrw:SetArray( aTest )
   oBrw:nRowPos = 2
   oBrw:nAt = 2

   @ 28, 2 BUTTON "_Ok" OF oWnd ACTION oWnd:End()
   
   @ 28, 30 BUTTON "Add" OF oWnd ACTION ( AAdd( aTest, { .F., "five", "six" } ), oBrw:SetArray( aTest ), oBrw:GoTop(), oBrw:Refresh() )

   @ 28, 40 BUTTON "Select" OF oWnd ACTION ( aTest[ oBrw:nRowPos ][ 1 ] := ! aTest[ oBrw:nRowPos ][ 1 ], oBrw:Refresh() )

   ACTIVATE WINDOW oWnd

return nil
 

[FiveWiDi]

Opps!

Perdona, no me di cuenta de en que foro estaba constestando.

Carlos, estoy trabajando con FiveLinux y MULTIPLE me da error.

Con FiveWin no tengo problemas, el problema es con FiveLinux.

Quedo a la espera de cualquier ayuda.

Señores necesito saber como hacer un multiple selector, el ListBox me funciona, pero solo puedo seleccionar un solo elemento de una matriz.

Desde ya se agradece vuestra ayuda.

Code: Select all  Expand view  RUN

@ 269,14 LISTBOX oLbasocDomi VAR uLbasocDomi ITEMS aDomi SIZE 376,154 OF ;
    oAdReCo01 COLORS nmicolortexto,nmicolorfondo PIXEL FONT omifont MULTIPLE

Aunque yo investigaría como hacerlo con XBrowse, es lo que tengo pendiente de hacer.