🚀 go-pugleaf

Ciao, Rita!
hai scritto xxpud.278656$b5.13567999@news3.tin.it
Fri, 10 Dec 2004 22:36:13 GMT:

 >� una settimana che sto conoscendo VB.
 >Chi mi pu� aiutare a risolvere questo programmino?

 >xxx  Grazie xxx

 >allora
 >Scrivere un programma in cui ci sono due liste e tramite 4 command si deve -con il 1�, trasportare un elemento alla volta della
 >prima lista nella seconda (e quindi cancellarlo dalla prima)
 >-con il 2�, trasportare tutti gli elementi della lista 1 nella 2(e poi cancellarli)
 >-con il 3� e il quarto si deve fare il procedimento inverso(dalla 2� alla prima)
 >Naturalmente gli elementi nelle liste sono caricati gi�.

 >Ringrazio infinitamente chi possa aiutarmi

prego, se ci riesco!

 >xxx Rita xxx


usi le listbox! vero?
c'e' la possibilita' di selezioni multiple! vero?

click command1

if lst1.listindex<>-1 then
    for x= lst1.listcount-1 to 0 step -1
        if lst1.selected(x) then
            lst2.additem lst1.list(x)
            lst1.removeitem x
        end if
    next x
end if

non c'e' la poss di sel multiple!

if lst1.listindex<>-1 then
    lst2.additem lst1.list(lst1.listindex)
    lst1.removeitem lst1.listindex
end if


click command2

if lst1.listcount>0 then
    for x= lst1.listcount-1 to 0 step -1
        lst2.additem lst1.list(x)
        lst1.removeitem x 'oppure dopo il ciclo for x ...
    next x
    lst1.clear 'pulisci la listbox meglio
  'se pulisci dopo, il ciclo va bene anche da 0 a listcount-1 step 1
end if

e il contrario con gli altri 2 command!

Cordialita', ~Incoming.