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

Moderador: Moderadores
STYLE LBS_MULTIPLESEL
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
@ 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"
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
For i=1 to Len(aListaX)
? aListaX[i]
Next
Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes