| KUVAUS |
| Piirtää listan. Voit myös päättää, onko listassa vieristyspalkkia (jos valintoja enemmän kuin näytettäväksi mahtuu) sekä onko listaa mahdollista ohjata myös nuolinäppäimillä ja hiiren rullalla. |
| KÄYTTÖ |
| List(id, x,y, leveys,korkeus, [vierityspalkki], [näppäinkontrollit]) |
| id = Listan yksilöllinen numero väliltä 1 - 100. x,y = Listan koordinaatit näytöllä. leveys,korkeus = Listan leveys ja korkeus pikseleinä. [vierityspalkki] = Käytetäänkö listassa vierityspalkkia, jos valintoja on enemmän kuin mitä mahtuu näyttämään. Oletuksena ON. [näppäinkontrollit] = Sallitaanko listan lukevan ylös- ja alasnuolinäppäimiä sekä hiiren rullaa listan käsittelyyn. Oletuksena ON. |
Katso myös: AddListItem, GetListSelection
| ESIMERKKI |
Include "SDK\include\cbFormElements.cb"
SCREEN 800,600
ClsColor 212,208,200
Const Lista1=1
Const Lista2=2
'Luodaan 1. lista
AddListItem(Lista1,"Pekka")
AddListItem(Lista1,"Väinö")
AddListItem(Lista1,"Esko")
AddListItem(Lista1,"Aatami")
AddListItem(Lista1,"Otto")
'Luodaan 2. lista
AddListItem(Lista2,"Maija")
AddListItem(Lista2,"Heidi")
AddListItem(Lista2,"Anna")
AddListItem(Lista2,"Minna")
AddListItem(Lista2,"Heli")
Repeat
järjNous1 = CmdButton("Järjestä nousevasti",50,95,200,20)
järjNous2 = CmdButton("Järjestä nousevasti",300,95,200,20)
järjLask1 = CmdButton("Järjestä laskevasti",50,117,200,20)
järjLask2 = CmdButton("Järjestä laskevasti",300,117,200,20)
poista1 = CmdButton("Poista valittu",50,139,200,20)
poista2 = CmdButton("Poista valittu",300,139,200,20)
lisää1 = CmdButton("Lisää luku",50,161,200,20)
lisää2 = CmdButton("Lisää luku",300,161,200,20)
If järjNous1 Then SortList(Lista1,0) 'Nolla järjestää listan nousevasti
If järjNous2 Then SortList(Lista2,0)
If järjLask1 Then SortList(Lista1,1) 'Ykkönen järjestää listan laskevasti
If järjLask2 Then SortList(Lista2,1)
If poista1 Then DeleteListItem(Lista1,ListSelection(Lista1)) 'ListSelection(id) palauttaa listassa valittuna olevan valinnan numeron
If poista2 Then DeleteListItem(Lista2,ListSelection(Lista2))
If lisää1 Then AddListItem(Lista1,Rand(1,1000000),ON) 'ON tekee lisättävästä valinnasta automaattisesti valitun
If lisää2 Then AddListItem(Lista2,Rand(1,1000000),ON)
List(Lista1,50,50,200,40)
List(Lista2,300,50,200,40)
DrawScreen
Forever
|