Controle voor alle items in listbox

[JoZ1]

Waarom heb je dit:

[CPP]Dim ItemLijst As New List(Of ListViewItem)[/CPP]

Als je met een ListBox werkt?

Dat moet zijn:

[CPP]Dim ItemLijst As New List(Of String)[/CPP]


En natuurlijk ook gewoon:

For Each Item As String i.p.v. ListViewItem.

 

[Luuknl]

Nog werkt deze code niet:

Public Class Form1

    Dim ItemLijst As New List(Of ListBox)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each item As ListBox In ListBox1.Items
            ItemLijst.Add(item)
        Next
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        ListBox1.Items.Clear()
        For Each item As ListBox In ItemLijst
            If item.Text.Contains(TextBox1.Text) Then
                ListBox1.Items.Add(item)
            End If
        Next
    End Sub
End Class

 

[CaptainBri]

Even wat aanpassingen, probeer deze eens (buiten IDE geschreven btw)

Public Class Form1

    Dim ItemLijst As New List(Of String)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each item As String In ListBox1.Items
            ItemLijst.Add(item)
        Next
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        ListBox1.Items.Clear()
        For Each item As String In ItemLijst
            If item.Contains(TextBox1.Text) Then
                ListBox1.Items.Add(item)
            End If
        Next
    End Sub
End Class

 

[JoZ1]

Inderdaad CaptainBri!

@Luuknl: Ik snap jouw logica niet helemaal:

Dim ItemLijst As New List(Of ListBox)
For Each item As ListBox In ItemLijst
For Each item As ListBox In ListBox1.Items

 

[The Mighty Atom]

Ik kan me anders heel goed voorstellen dat dat verwarrend is als je niet snapt wat het verschil is tussen een object, een datatype en een control.

Maar inderdaad, dat zal nooit werken.

 

[Luuknl]

Prima. Die van captainbri werkt zoals het moet
Bedankt. Alleen nog een vraagje waarvan ik zelf misschien het antwoord al weet. Het gaat over deze regel: Dim ItemLijst As New List
Waarom staat daar nog eens (of listbox) achter? Is dat zodat de lijst dan voor elk item in de listbox een apart item in de lijst aanmaakt?

 

[JoZ1]

Daar staat (Of String) achter .

Daar worden alle items in opgeslagen, zodat ze teruggehaald kunnen worden.

Dat 'Of String' is gewoon het datatype van wat er in de lijst wordt opgeslagen, String dus.

[edit]Vraag opgelost trouwens?[/edit]

 

[Luuknl]

Ja opgelost. En status nu ook opgelost