كيفية البحث في لست بوكس سوال مهم

أخي العزيز :

إذا كنت لا تريد العوده الى قاعدة البيانات فإليك هذا الكود البسيط الذي يدور على كل item داخل ال Listbox وعليك تطويره كي يناسب برنامجك

dim i as integer
For i = 0 To List1.ListCount - 1
MsgBox List1.List(i)
Next

ورد علي اذا لم تستطع تنفيذه مع ايضاح أكثر

وشكرا

Declare Function SendMessage Lib "user32" Alias _

    "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _

    ByVal wParam As Long, lParam As Any) As Long

Const LB_FINDSTRINGEXACT = &H1A2

Const CB_FINDSTRINGEXACT = &H158

dim l





      l = SendMessage(list1.hWnd, LB_FINDSTRINGEXACT, -1,"hamohd70")

سيخزن رقم الاسم في اللائحة في المتغير l

عندما تكون النتيجة -1 سيعني ذلك ان الاسم لو يتم العثور عليه

شكرا اخزاني على المساعدة و اشكر الاخ hamohd على الكود الرائع و لقد استخدمتة و تنفذ شكرا على تعاونكم

جزاكما الله خيرا وأكثر من أمثالكم