الدرس الثامن من دورة احتراف الفجوال بيسك 6 (شرح كيفية التعامل مع الListو أشباهها)

السلام عليكم ورحمة الله نكمل دروسنا بدرس يسلط الضوء على أداة هامة في بعض البرامج وهي أداة الList..

في البداية يجب وضع الlist على المشروع 
اذهب إلى صندوق الأدوات (tool box) و اختر منها list box
بعد و ضعها على الفروم وعند تشغيل البرنامج ستجد بأنها فارغة ةذلك بالحالة العادية .
الآن يجب و ضع مفاتيح لها أو خيارات و يتم ذلك بالفورم نفسها و ليس 
بالList.
اذهب إلى الفورم load و ضع الكود التالي:

كود:

List1.AddItem "تجريب"

وهذا الكود حتى الآن يضيف للlist مفتاح واحد وسنكرر هذا العملية في كل مفتاح تريده..
(ملاحظة: من المفضل وضع المفاتيح بالترتيب الأبجدي و ذلك حتى لا تسبب ضياع بالبحث.)
شغل الفورم الآن و ستجد بأن الlistقد أضيف لها المفتاح(تجريب)
و هكذا كلما أضفت الكود السابق أضيف مفتاح كما أن المفاتيح سيكون ترتيبها كترتيب كوداتاها
"إذا وضعت الكودين التالين

كود:

List1.AddItem "eias1"
List1.AddItem "eias2"

فإن eias1 ستظهر قبل eias2 في الlist" 
كما أن حجم الlist طولي يتمدد تلقائيا بعدد المغاتيح التي تضعها أي لا تخشى الإكثار من المفاتيح فإنه سوف يظهر شريط تمرير جانبي عندما 
يكون عدد المفاتيح أكبرمن حجم اList. ومن محاسن هذا الشريط بأنه يتأثر بالthems الخاص للنظام.
ويمكن التنقل بين المفاتيح بالأسهم ( أعلى -أسفل) كما أنه إذا ضغطت من لوحة المفاتيح على أول حرف من المفتاح سينتقل تلقائيا للمفتاح.
ولاآن كيف نضع لهذا المفاتيح أولمر عند الضغط عليها.
اضغط على list ضغتتين لتظهر لك صفحة الكود click
ضع هذا السطر في البداية:

كود:

Select Case List1.Text

وبه نبدأ الكود الخاص بالList دائــما
ثم بعداها نبدأ بإعطاء الأوامر للمفاتيح وهنا سيكون الأمر أنه بالضغط على المفتاح الذي يرمزله ب (CASE)
سوف يتم الحدث (مثلا وضع نص في TEXT)..

كود:

Case "eias" 
Text1.Text = "عضو يريد الإفادة"
Case "MHDH"
Text1.Text = "صديق كريم"
Case "eias" 'في هذا السطر حددنا أي مفتاح من المفاتيح
Text1.Text = "عضو يريد إفادة الآخرين" 'وهنا كتبنا الحدث الذي سيقع

و الآن بنفس الطريقة أعطي حدث للمفتاح (MHDH) "الذي يرمز لأحد أصدقائي المبرمجين"
والآن القسم الأخيرمن الكود هو الـتأكيد على الإنتهاء من عملية اختيار المفاتيح و هو بسيط جدا اكتب في نهاية الكود

كود:

End Select

فيصبح الكــود كــاملاً
في الفورم LOAD:

كود:

Select Case List1.Text
Case "eias" 
Text1.Text = "عضو يريد الإفادة"
Case "MHDH"
Text1.Text = "صديق كريم"
End Select

شغل البرنامج وجربها و ذلك بعد أن تكون قد وضعت الTEXT1على الفورم أولا.
ويمكن التحكم بحجم الخط و شكله كأي عنصر آخر عن طريق الخاصية FONT
----------------------------------
أما بالنسبة اعنصر الكومبو(combo) أو القائمةذات السهم التي يتم إنزالها اذهب إلى قائمة الأدوات واختر منها 
combobox ونضيف إليها مفاتيح عن طريق الكود التلي في الفورمload

كود:

Combo1.AddItem "http://www.vb4arab.com/"
Combo1.AddItem "http://www.mexat.com/"

-------------------------------------

أما بالنسبة للبحث عن عنصر من عناصر الLiST فيتم بالكود التالي :

كود:

Dim name As String
Dim i As Integer
name = InputBox("PLease enter term you want to search for")

For i = 0 To (List1.ListCount - 1)
    If List1.List(i) = name Then
        List1.Selected(i) = True
        Exit For
    End If
Next i

ولكن و للأسف إذا لم تكن الكلمتان متطابقتان لا يجده أبدا.
أردو أن أكون قد وفقت في هذا الدرس و أن تبدو رأيكم الذي يهمني ويدفعني لكتابةالمزيد.موعدنا بدرس قادم