Dubbele items in ListBox

Status
Niet open voor verdere reacties.
L

LVTools

Gebruiker
Lid geworden
11 aug 2006
Berichten
42
Als beginnend programmeur ben ik een beetje aan het "spelen" met het automatisch (iedere 5 minuten) laten vullen van een listbox. Het komt nu voor dat 1 item een x aantal keren voorkomt. Ik zou graag willen dat ieder item maar 1x voorkomt zodat er geen dubbele informatie in de listbox staat.

Heb al van alles geprobeerd, maar het lukt me gewoon niet .... ik hoop daarom dat jullie kunnen helpen.

Alvast bedankt.
 
Hoi LVTools,

Probeer het eens op de volgende manier.

Code: 
Dim L As Integer
Dim BooGevonden As Boolean

For L = 0 To List1.ListCount - 1
    If List1.List(L) = item_dat_je_wilt_toevoegen Then
        BooGevonden = True
        Exit For
    Else
        BooGevonden = False
    End If
Next L

If BooGevonden = False Then
    List1.AddItem item_dat_je_wilt_toevoegen
End If

suc6
 
Listbox

Wat je misschien ook kunt doen is het volgende:
Iedere 5 minuten de gehele listbox eerst leegmaken en dan alle items opnieuw inlezen.


Gr.,
RB
 
Oke ik zal het poberen uit te leggen.
Pobeer ook een keer google te gebruiken zodat je in iedergeval al weet wat case is.
Oke hier een code.

IN EEN TIMER :

dim tekst1 as string
dim text2 as string
dim text3 as string
'enz enz enz

select case listbox1.list

case ""
listbox1.list = text1

case text1
listbox1.list = text2

case text2
listbox1.list = text3

case text3
listbox1.list = text1

Zet de timmer op 5000 en dan meot die het doen.
 
@ Clove,

Heb je onderstaande code helemaal zelf bedacht.
Heb je onderstaande code ook uitgeprobeert.

Waarschijnlijk antwoord 1 = Ja en antwoord 2 = Nee, die heb ik zo uit mijn duim gezogen.

Code: 
select case listbox1.list
Werkt niet omdat .List een integer nodig heeft dus .List(integer) + je mist de end Select.


Code: 
List1.List = text1
Werkt ook niet. List1.List(Integer) zou nog wel kunnen werken maar voegt niets toe aan dit probleem.

Met andere woorden je code is klink klare onzin.

Voordat je tegen iemand zegt dat hij maar eens moet gaan google, eerst ff nadenken A.u.b. Ik heb namelijk nergens gezegt dat ik niet weet wat case is, ik vraag je alleen hoe je dit toe zou passen. Zoals gezegt je antwoord is waardeloos (in mijn ogen).
 
Post gewoon jouw code hier zodat wij hem kunnen aanpassen. Dat zal veeeel makkelijker gaan
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan