KUVAUS |
Tällä funktiolla lisäät listaasi uuden valinnan. Valintoja voi lisätä vaikka itse listaa ei olisi vielä kertaakaan piirretty List()-funktiolla. Funktio palauttaa luodun valinnan järjestysnumeron (väliltä 1 - 1000). Sitä ei ole pakko ottaa talteen, mutta se on hyödyllinen SelectListItem()-, DeleteListItem()- ja ChangeListItem()-funktioita käytettäessä. Huomaathan, että talteen otettu järjestysnumero on luotettava vain, jos listasta ei poisteta mitään valintoja, eikä sille suoriteta järjestämistä aakkosjärjestykseen. Nämä toiminnothan saattavat muuttaa valinnan sijaintia listassa! Valintoja voi olla korkeintaan 1000! Jos valintoja on jo tuhat ja yrität luoda uutta, funktio palauttaa False. Voit myös käskeä funktiota valitsemaan tämän uuden valinnan automaattisesti. |
KÄYTTÖ |
AddListItem(id, valinta$, [automaattinenvalinta]) |
id = Listan id, jota komento koskee. valinta = Uusi valinta tekstinä. automaattinenvalinta = Asetetaanko uusi valinta automaattisesti valituksi. Oletuksena OFF. |
Katso myös: List
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 |