zoeken in listbox

[kayhup]

Ik heb een listbox met items, en een textvak en een button. Nu wil ik dat wat je intypt wordt gezocht op letters en woorde...

Als je dit niet begrijpt dan is er de simpele vorm:
"
Hoe kan je met een textbox en een button in een listbox zoeken...?
"


Alvast bedankt

Edit: vergeet ik toch zomaar 'alvast bedankt neer te zetten'

 

[That Guy]

6.0:
(uitgaande van list1, text1 en command1)

private sub Command1_click()
Dim i as integer
for i = 0 to list1.listcount-1
if left(list1.list(i), len(text1.text) = text1.text then
msgbox "Nummer " & i & " heeft de gezochte text!" & vbcrlf & "De text ervan is: " & list1.list(1)
next i
end sub

 

[kayhup]

6.0:
(uitgaande van list1, text1 en command1)

private sub Command1_click()
Dim i as integer
for i = 0 to list1.listcount-1
if left(list1.list(i), len(text1.text) = text1.text then
msgbox "Nummer " & i & " heeft de gezochte text!" & vbcrlf & "De text ervan is: " & list1.list(1)
next i
end sub

Werkt niet...

 

[That Guy]

kom op, met een [beetje] inspiratie:

Option Explicit
Private Sub Command1_click()
Dim i As Integer
    For i = 0 To List1.ListCount - 1
        If Left(List1.List(i), Len(Text1.Text)) = Text1.Text Then
            MsgBox "Nummer " & i & " heeft de gezochte text!" & vbCrLf & "De text ervan is: " & List1.List(i)
        End If
    Next i
End Sub

 

[kayhup]

kom op, met een [beetje] inspiratie:

Option Explicit
Private Sub Command1_click()
Dim i As Integer
    For i = 0 To List1.ListCount - 1
        If Left(List1.List(i), Len(Text1.Text)) = Text1.Text Then
            MsgBox "Nummer " & i & " heeft de gezochte text!" & vbCrLf & "De text ervan is: " & List1.List(i)
        End If
    Next i
End Sub

Maar ik heb Visual Basi c2008

 

[That Guy]

T_T
zeg dat dan de volgende keer in je 1e post

 

[kayhup]

T_T
zeg dat dan de volgende keer in je 1e post

Zal ik doen

 

[WILLIAMXXX]

6.0:
(uitgaande van list1, text1 en command1)

private sub Command1_click()
Dim i as integer
for i = 0 to list1.listcount-1
if left(list1.list(i), len(text1.text) = text1.text then
msgbox "Nummer " & i & " heeft de gezochte text!" & vbcrlf & "De text ervan is: " & list1.list(1)
next i
end sub

Maar ik heb Visual Basi c2008

Vegras misschien is het handig om eerst je code even te testen want in vb6 doet die 't ook niet. Wat je dus miste is End if

Wat her betreft in vb.net is het als volgd:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 0 To ListBox1.SelectedItem - 1
            If LSet(ListBox1.Items(i), Len(TextBox1.Text) = TextBox1.Text) Then
                MsgBox("Nummer " & i & " heeft de gezochte text!" & vbCrLf & "De text ervan is: " & ListBox1.Items(1))
            End If
        Next
    End Sub

Alleen kayyup snap ik niet hoe jij het bedoelt waar je in wilt zoeken... Dus waar die de resultaten vandaan moet halen...

 

[kayhup]

Vegras misschien is het handig om eerst je code even te testen want in vb6 doet die 't ook niet. Wat je dus miste is End if

Wat her betreft in vb.net is het als volgd:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 0 To ListBox1.SelectedItem - 1
            If LSet(ListBox1.Items(i), Len(TextBox1.Text) = TextBox1.Text) Then
                MsgBox("Nummer " & i & " heeft de gezochte text!" & vbCrLf & "De text ervan is: " & ListBox1.Items(1))
            End If
        Next
    End Sub

Alleen kayyup snap ik niet hoe jij het bedoelt waar je in wilt zoeken... Dus waar die de resultaten vandaan moet halen...

Hij moet zoeken in de listbox, dus uit de listbox...

 

[WILLIAMXXX]

Maar waar wil jij de resultaten hebben dan?

 

[kayhup]

Maar waar wil jij de resultaten hebben dan?

Gewoon in de listbox zelf...

 

[WILLIAMXXX]

Moeten de resultaten ook uit dezelfde worden gehaald of 'n ander

 

[That Guy]

[@ william] ik had mijn post ook getest, later, maar ik kon op een of andere manier niet mijn post editen (lang leve mijn crappie inet =/ )

Wat je (in 6) kan doen is list1.removeitem(i), dus je doet zoiets:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 0 To ListBox1.SelectedItem - 1
            If LSet(ListBox1.Items(i), Len(TextBox1.Text) <> TextBox1.Text) Then
                listbox1.removeitem(i) [COLOR="SeaGreen"]'iemand moet deze ff checken[/COLOR]
            End If
        Next
    End Sub