Can you search a listbox by a textbox value when the multiselect property isn't none?

[xraive]

Currently I am able to use a texbox to search through the listbox only when the multiselect property is set to none. But when I change the property to simple or extended my function doesn't work. Please see below
Function

Public Function CheckListbox(strPass As String, lstPersons As ListBox)
 
Dim intCurrIndex As Integer
 
Dim intStringLen As Integer
 
 
 
intStringLen = Len(strPass)
 
 
 
For intCurrIndex = 0 To lstPersons.ListCount - 1
 
         If Left$(lstPersons.ItemData(intCurrIndex), intStringLen) = strPass Then
 
    Exit For
 
  End If
 
Next intCurrIndex
 
 
 
lstPersons = lstPersons.ItemData(intCurrIndex)
 
 End Function

Calling the function

Private Sub abSearchtbox_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
 
    Case Asc(" ") To Asc("z")
 
      strStringTyped = Me.abSearchtbox.Text & Chr(KeyAscii)
 
     Case 8
         If strStringTyped > "" Then
            strStringTyped = Left$(strStringTyped, Len(strStringTyped) - 1)
        End If
End Select
 
 
CheckListbox strStringTyped, Me.allAddressBooklbox
 
End Sub
 

I also tried another method but neither work when the multi select property is not none. I can't search at all.


Any Ideas??

[ADezii]

Hello xraive, I'm a little confused at to what you are trying to accomplish here. Please explain in detail, providing all relevant information.

[xraive]

Sorry Adezii,

I currently have a listbox and would like to be able to search the records. I have a textbox setup so that when the user enters a key an item matching it in the listbox would be selected. This would be similar to the autoexpand feature on the combo box. I would like to be able to have a user type in a string and the first Item matching that string be selected from the listbox. I hope I made myself a little clear. I can attach a sample db of what I am doing if you like.


Thanks for your time ADezii

[ADezii]

This should point you in the right direction:

Private Sub abSearchTBox_KeyPress(KeyAscii As Integer)
Dim strStringTyped As String
Dim intCurrIndex As Integer
Dim intStringLen As Integer
 
'Clear ALL Selections with each Keystroke
For intCurrIndex = 0 To allAddressBooklbox.ListCount - 1
  allAddressBooklbox.Selected(intCurrIndex) = False
Next
 
strStringTyped = Me.abSearchTBox.Text
 
Select Case KeyAscii
  Case Asc(" ") To Asc("z")
    strStringTyped = strStringTyped & Chr(KeyAscii)
  Case 8
    If strStringTyped <> "" Then
      strStringTyped = Left$(strStringTyped, Len(strStringTyped) - 1)
    End If
  Case Else
    KeyAscii = 0        'CANCEL the Keystroke?
End Select
 
intStringLen = Len(strStringTyped)
 
For intCurrIndex = 0 To allAddressBooklbox.ListCount - 1
  If Left$(allAddressBooklbox.ItemData(intCurrIndex), intStringLen) = strStringTyped Then
    allAddressBooklbox.Selected(intCurrIndex) = True
      Exit For
  End If
Next intCurrIndex
End Sub