Flyt fra Listbox1 til Listbox2
listbox2.AddItem listbox1.Text
listbox1.RemoveItem (listbox1.ListIndex)
Hvis du gerne vil kunne flytte flere værdier:
For taelle=0 to Listbox1.listcount-1
if listbox1.selected then listbox2.AddItem listbox1.list(taelle)
next taelle
For taelle=0 to Listbox1.listcount-1
if listbox1.selected then listbox1.Removeitem(taelle)
next taelle
Håber det kan bruges.
Mht sortering:
Når jeg har skulle lave nogle lidt mere avancerede sorteringer end listboxen
tilbyder, har jeg brugt et Flexgrid.
Jan
Dansk Miljø Data
Claus Holm <holm@computer.dk> skrev i en
nyhedsmeddelelse:3bf2494d$0$758$edfadb0f@dspool01.news.tele.dk...
> Hej alle,
>
> jeg er på jagt efter en ocx, hvor man har 2 listboxe og lidt tilføj/fjern
> knapper mellem dem. I den første listbox skal jeg have de mulige værdier,
> trykke tilføj, hvorefter de flyttes til den anden listbox. Findes en sådan
> ocx og i givet fald hvor?
>
> Alternativt søges lidt hjælp til kodningen af håndteringen af denne
flytten
> frem og tilbage mellem de 2 listboxe og til selve identificeringen af,
hvad
> der så er af værdier i listboxen med de valgte.
>
> Derudover har jeg også lidt problemer med sorteringen. Det er kun tal, som
> står i listboxene. Hvis jeg bruger .sorted, så bliver sorteringen jo
> alfabetisk; 1,11,12...2,21,22 etc... - Hvordan klares sortering af
> nummeriske værdier, så de står 1,2,3...?
>
> På forhånd tak for nyttige indspark på problemerne,
>
> Med venlig hilsen
> Claus Holm
> --
http://holmcomputer.adsl.dk
>
>