Search a List Box for an Item With One Line of Code

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Beginning

Author:

Anonymous

Version Compatibility:

More information:

This searches a list box for a item using a string. It returns the closest match.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' put in a module Private Declare Function SendMessageA Lib _ "User32" (ByVal hWnd As Long, ByVal wMsg As Integer, ByVal _ wParam As Integer, lParam As Any) As Long Private Const LB_FINDSTRING = &H18F

Code: