Xailer & OZ Software

Pablo... En el Onchange del ListBox coloca esto....
Local nPos
Static aSelect := {}
nPos := AScan( aSelect, nIndex )
If nPos > 0
ADel( aSelect, nPos, .T. )
nIndex := 0
Else
AAdd( aSelect, nIndex )
EndIf
ASort( aSelect )
::oListbox1:SetSelItems( aSelect )
Adjunto de igual manera...
A mi me funciona espero que sea esto....
Att. Diego Ferreira
Caracas - Venezuela.


Attached files LisboxMultiSelecConClick.rar (2.7 KB)Â

Diego Ferreira escribió:
> Pablo... En el Onchange del ListBox coloca esto....
>
> Local nPos
> Static aSelect := {}
> nPos := AScan( aSelect, nIndex )
> If nPos > 0
> ADel( aSelect, nPos, .T. )
> nIndex := 0
> Else
> AAdd( aSelect, nIndex )
> EndIf
> ASort( aSelect )
> ::oListbox1:SetSelItems( aSelect )
>
> Adjunto de igual manera...
> A mi me funciona espero que sea esto....
>
> Att. Diego Ferreira
> Caracas - Venezuela.
>
>
Asi me vale, muchas Gracias
Saludos