|
Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long Private Sub txtStateSel_Change() Dim lngResult As Long If Len(txtStateSel.Text) = 0 Then Exit Sub 'Chiamata alla funzione di ricerca delle listbox lngResult = SendMessage(lstStateSel.hwnd, _ LB_SELECTSTRING, ByVal -1, ByVal txtStateSel.Text) End Sub frmGassRptMain.strSearchState = _ lstStateSel.List(lstStateSel.ListIndex) Public Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long Private Sub txtStateSel_Change() Dim lngResult As Long If Len(txtStateSel.Text) = 0 Then Exit Sub 'Chiamata alla funzione di ricerca delle listbox lngResult = SendMessage(lstStateSel.hwnd, _ LB_SELECTSTRING, ByVal -1, ByVal txtStateSel.Text) End Sub frmGassRptMain.strSearchState = _ lstStateSel.List(lstStateSel.ListIndex) |