חיפוש ב-Listbox

[כפיר גיא]

חיפוש ב-Listbox



מישהו יכול לשלוח לי קוד לאימייל שעוסק בחיפוש מחרוזת בתוך פקד Listbox??? תודה מראש...וחג שמח!!!

 

[Shadow15]

חיפוש ב listbox



קטע הקוד הבא מבצע חיפוש בפקד listbox לפי מחרוזת מתיבת הטקסט txtSearch: Private Sub txtSearch_Change() Dim Temp As String Dim Handle As Long Dim Position As Long Temp = txtSearch.Text Handle = lstContacts.hwnd If Len(Temp) = 0 Then lstContacts.ListIndex = 0 Else Position = SendMessage(Handle, LB_FINDSTRING, -1, Temp) If Position = -1 Then lstContacts.ListIndex = 0 Else lstContacts.ListIndex = Position End If End If End Sub בהצלחה אייל

 

[Shadow15]

תוספת קטנה



שכחתי, צריך להגדיר את פונקציית ה- API וקבוע אחד: Declare Function SendMessage Lib ``user32`` Alias ``SendMessageA`` _ (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Any) As Long Public Const LB_FINDSTRING = &H18F בהצלחה אייל