عمل زر ابحث داخل دليل هاتف

أى انواع قواعد البيانات استخدمتها فى برنامجك ؟

يمكنك إستخدام هذه الطريقه أخى فى البحث داخل textbox بعد تحميل الأرقام بع بالطبع و البحث بأول حرف .

'This project needs a ListBox, named List1 and a TextBox, named Text1
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_FINDSTRING = &H18F
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Add some items to the listbox
    With List1
        .AddItem "Computer"
        .AddItem "Screen"
        .AddItem "Modem"
        .AddItem "Printer"
        .AddItem "Scanner"
        .AddItem "Sound Blaster"
        .AddItem "Keyboard"
        .AddItem "CD-Rom"
        .AddItem "Mouse"
    End With
End Sub
Private Sub Text1_Change()
    'Retrieve the item's listindex
    List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub

حاولت الرجوع للدروس التي ذكرت ولكني لم استطع تكملتها بسبب انقطاع الاتصال المتكرر ولكني استطيع القول :- هذا برنامج له علاقة بعملي من ناحيه سرعة الوصول للالشخاص او رقم التلفون حيث انني اعمل بقسم اتصالات . الناحيه العمليه من المشروع 1_ زيادة العلم وتبطيق افكار وبرامج جديده علي 2_ التوفير ( الوقت و الجهد ) على الزملاء وعلى المشتركين 3_ مواكبة التطور حيث اصبح جهاز الكمبيوتر في كل مكان ولا بد من وجود دليل هاتف ( الكتروني ) بدلاً من الدليل الورقي .

ودمتم