multi-select textbox vraag

[OctaFish]

De listbox selecteert nu alle waarden die voldoen aan de zoekvoorwaarde, maar kan niet scrollen naar de eerste waarde van die lijst. Wat wel kan, is de zoekfunctie naar die van een keuzelijst met combobox brengen, waarbij je de eerste waarde die voldoet aan de zoekstring te zien krijgt. Dat kan met deze aanpassing:

Private Sub TxtSearch_Change()
Dim i As Integer, numRows As Integer, iSelected As Integer, iTel As Integer
Dim ctl As Control

    Set ctl = Me.lstText
    For i = 0 To ctl.ListCount - 1
        If Left(ctl.ItemData(i), Len(Me.TxtSearch.Text)) = Nz(Me.TxtSearch.Text, "") Then
            ctl.Selected(i) = True
            iTel = iTel + 1
            If iTel = 1 Then iSelected = i
        Else
            ctl.Selected(i) = False
        End If
    Next i
    Me.lstText.SetFocus
    Me.lstText.ListIndex = iSelected
    Me.TxtSearch.SetFocus
    Me.TxtSearch.SelStart = Me.TxtSearch.SelLength

End Sub

 

[jorrit126]

1 woord TOP! Ik ben urenlang bezig geweest om die textbox te kunnen laten zoeken in de listbox, blijkt dat het op deze manier ook precies doet wat ik wil
Nou mij zal je hier een tijdje niet meer zien! (tenzij ik andere mensen kan helpen)
bedankt Michel:thumb: