|
'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 |