|
List # 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 |