CoolBasic SDK

DeleteListItem

Include "cbFormElements.cb"

KUVAUS
Poistaa listasta valinnan sen järjestysnumeron perusteella. Jos haluat poistaa valinnan antamalla parametriksi itse valinnassa olevan tekstin, käytä DeleteListItemString()-funktiota.

Jos haluat poistaa listan kaikki valinnat, käytä mieluummin FormatList()-funktiota.

KÄYTTÖ
DeleteListItem(id, valinta)
id = Listan id, jota komento koskee.
valinta = Poistettavan valinnan järjestysnumero.

Katso myös: DeleteListItemStringFormatList

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