Avatar billede japlex Nybegynder
17. august 2001 - 10:55 Der er 3 kommentarer og
1 løsning

HASTER MEGET: Optælling af elementer i en Listview Control

Hvordan kan man tælle antallet af elementer i en Listview Control, når det ikke er alle elementerne der skal tælles, men kun dem der opfylder et bestemt kriterie

Nedenstående kode er hvad jeg har bakset med. Men den finder vel kun frem til det første element der opfylder kriteret \"Grøn\",lvwTag

******************************************************
Dim Element As ListItem
Set Element = ListView1(ListviewNr).FindItem(\"Grøn\", lvwTag)

******************************************************

Håber på hurtig hjælp !!!
Avatar billede proaccess Nybegynder
17. august 2001 - 11:00 #1
Du skal gennemløbe elementerne og checkke hver enkelt...

Noget i retning af:

Dim Element As ListItem, Ant As Long
For Each Element in ListView1.ListItems
  If Element=\"Grøn\" Then
    Ant=Ant+1
  EndIf
Next
MsgBox \"Der er \" & Ant & \" grønne...\"
Avatar billede jennemaan Nybegynder
17. august 2001 - 11:02 #2
Dim iGreenItems As Integer
Dim objItem As ListItem

For Each objItem In ListView1.ListItems

    If objItem.Text = \"Grøn\" Then iGreenItems = iGreenItems + 1

Next objItem



msgbox iGreenItems


/Jennemaan
Avatar billede japlex Nybegynder
17. august 2001 - 11:25 #3
Tak for svarende !!

Begge ledte mig på sporene, MEN først til mølle ;-)
Avatar billede japlex Nybegynder
17. august 2001 - 11:25 #4
svarende = svarene ;-((
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester