PC Toledo

Enviado: **22 Nov 2017 20:14**

Pessoal,

Tem como fazer multi seleção com o componente listbox ?

Enviado: **22 Nov 2017 22:32**

Alexandre, incluir no listbox:

STYLE LBS_MULTIPLESEL

Abraços

Enviado: **23 Nov 2017 00:06**

Toledo,

Funcionou!!!

Agora pra pegar os selecionados sabes como ?

Enviado: **23 Nov 2017 08:33**

Alexandre, fiz um teste aqui, mas não descobri como pegar os itens selecionados. Pensei que Value, neste caso, seria uma array com os itens que foram selecionados, mas não é, value retorna apenas o último item selecionado.

Abraços

Enviado: **23 Nov 2017 08:57**

Toledo,

Obrigado.

Fiquei testando isso ontem e tive a ideia de guardar o value em um array, conforme selecione no listbox, ai já dá pra saber

Tipo:

Código: Selecionar todos

THREAD STATIC aLista := {}

nPos := ThisformOpsProc:oListOps:Value
nPosLista := aScan( aLista, {|AVAL|AVAL[1] == nPos } )
IF nPosLista = 0 
   aAdd( aListaX, { nPos } )
ELSE
   hb_ADel( aListaX, nPosLista, .T. )
ENDIF

Enviado: **23 Nov 2017 10:58**

Fiz um teste aqui, mas usando o ON CHANGE do ListBox.

Código: Selecionar todos

   @ 10,40 LISTBOX oList ITEMS oItems ;
             OF oModDlg                  ;
             INIT 1 ;
             SIZE 210, 220            ;
             ON CHANGE {|| ListSel(lastkey(),oList:Value) } ;
             STYLE LBS_MULTIPLESEL ;
             TOOLTIP "Teste ListBox"

Código: Selecionar todos

Function ListSel(nkey_,nItem_)
If nKey_==0 .or. nKey_==32
   nEle_:=ASCAN(aListaX,{|e| e=nItem_})
   If nEle_>0
      hb_ADel(aListaX,nEle_,.T.)
   else
      aAdd(aListaX, nItem_)
   endif
endif
Return Nil

A aListaX declarei como Private (aListaX:={}) e adicionei seu conteúdo como uma array simples, não multi-dimensional, então para pegar os itens selecionados use:

Código: Selecionar todos

For i=1 to Len(aListaX)
   ? aListaX[i]
Next

Abraços,

Enviado: **23 Nov 2017 12:36**

Toledo,

Você sabe como remover uma seleção ( o destaque da linha ? )
Sem ser pelo click do mouse

Enviado: **23 Nov 2017 17:30**

Vixi, não sei não!

Abraços

PC Toledo

Multi select Listbox

Multi select Listbox

Multi select Listbox

Multi select Listbox

Multi select Listbox

Multi select Listbox

Multi select Listbox

Multi select Listbox

Multi select Listbox