SearchList

'Dichiarazioni

Public Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" _
ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As String) _
As Long
Public Const LB_FINDSTRING &H18F
'Per ricercare una stringa all'interno della ListBox,

'basta a questo punto richiamare la funzione

'SendMessage passandogli come parametro l'handle

'della ListBox e la stringa da ricercare:

List1.Listindex = SendMessageStr _
(List1.hWnd, LB_FINDSTRING, 0&, StringaDaRicercare$)
'la funzione restituira', se ha trovato la corrispondenza

'all'interno della ListBox, il numero di index della

'stringa ricercata; altrimenti restituira il valore -1

Una ricerca veloce all'interno di una ListBox ??