كود البحث في اداة listbox

كود للبحث في أداة ListBox


كود:

---

' Declarations
'
Public Const LB_FINDSTRING = &H18F
' Used to search a List box
Public Declare Function SendMessageAny Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Public Function ListBoxIndex(ByVal lHwnd As Long, ByVal sSearch,,,, As _
String) As Long
ListBoxIndex = SendMessageAny(lHwnd, LB_FINDSTRING, -1, ByVal _
sSearch,,,,)
End Function


يتم الاستخدام عن طريق الكود التالي


كود:

---

Dim lFoundAt As Long
lFoundAt = ListBoxIndex(List1.hwnd, "chris")
If lFoundAt = -1 Then
MsgBox "Not Found"
Else
MsgBox "Found at position " & lFoundAt
End If