المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : البحث التلقائي ف الليست بووكس VB.Net


حسين الغافري
27 - 09 - 2010, 13:51
بسم الله الرحمن الرحيم

شرح بسيط لكيفية عمل بحث تلقائي ف الليست بووكس Listbox

أولا نقوم بتشغيل برنامج فيسوال بسيك 2008 او أي نسخة ونختار
Windows Forms Application

http://vipxvip.org/up/upfiles/m2r79901.png (http://vipxvip.org/up/)


ثم نقوم بإضافة
Label
TextBox
ListBox

ضع الأدوات على الفووورم كما بالصورة

http://vipxvip.org/up/upfiles/h8r80153.png (http://vipxvip.org/up/)


سنقوم باضافة بعض الكلمات او الاسماء للبحث عنها لاحقا عند تشغيل البرنامج
طريقة الاضافة اما بالضغط باليمين على الليست بوكس ونختار edit items ونضيف
او نضيف باستخدام الكوود في الفورم
الطريقة الاولي سهلة وبخليكم تسووها وحدكم

الطريقة الثانية :

نضغط دوبل كليك على الفورم عشان نضيف الكود في اللوود Form load
ونكتب




ListBox1.Items.Add("oman")
ListBox1.Items.Add("UAE")
ListBox1.Items.Add("Qatar")
ListBox1.Items.Add("USA")




الحين نجي عند الحركة المهمة ف الموضوع
نضغط دوبل كليك على التسكت بوووكس ونكتب الكود التالي

Dim i As Integer = ListBox1.FindString(TextBox1.Text)
ListBox1.SelectedIndex = i

نشغل البرنامج ونكتب احد الاسماء الي ضفناها قبل ف التكست بووووكس وعلى طول بيتحدد من الليست

ننتظر تجريبكم :cupidarrow:

الي يريد اضافات ف الشرح يخبرني


:bs:

حلآ مدريد
28 - 09 - 2010, 15:06
يسلموو عالطريقـٍه والطرح..~
:li:
ودي

حلآ مدريد

الحسني
28 - 09 - 2010, 21:18
مشكور عنييدو ..
بأنتظار المزيد ..يستفيدوا منك اللي ماخذين مع الهادي

Hesham
29 - 06 - 2011, 22:04
مشكور

أريد أضافة أيمكنك تعليمي كيف يتم كيف يمكن أضافة النتائج إلي لست بوكس أخري
يعني أكتب Q وأدوس Search فكل الأسماء التي تبدأ ب Q تضاف للست بوكس أخري