• Home
 · 
• Miscellaneous
 · 
• Search for a string in Listbox

Search for a string in Listbox

Search for string in listbox

Assumes
This project needs a ListBox, named List1 and a TextBox, named Text1

Returns
the Listindex of the string that is found.

API Declarations
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_FINDSTRING = &H18F


Rate Search for a string in Listbox

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Private Sub Form_Load()
  'KPD-Team 1998
  'URL: http://www.allapi.net/
  'E-Mail: [email protected]
  'Add some items to the listbox
  With List1
    .AddItem "Computer"
    .AddItem "Screen"
    .AddItem "Modem"
    .AddItem "Printer"
    .AddItem "Scanner"
    .AddItem "Sound Blaster"
    .AddItem "Keyboard"
    .AddItem "CD-Rom"
    .AddItem "Mouse"
  End With
End Sub
Private Sub Text1_Change()
  'Retrieve the item's listindex
  List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub