اداة تكست بوكس ذكية

الا توجد مساعده ارجو الرد بسرعة لانى احتاج هذه الاده او برمجتها بسرعة

قمت بعمل برنامج فيه صفة مماثلة لما تقصده، لكن الأسماء مخزنة في قاعدة بيانات Access ، هل يناسبك ذلك ؟

هو المطلوب يا استاذ sp

ياريت تبعتلى المشروع وجزاك الله خيرا

شوف الكود دة ممكن ينفع

dim combonum as integer

dim bool1 as boolean

'assign the number of names in the combo in combonum

combonum =5

for i = 0 to combonum

bool1 = instr(combo1.text,txt1.text,1)

if bool1 = true then txt1.text = combo1.text

next i

ممكن شرح الكود وفى اى حدث يوضع

وجزاك الله خيرا لاهتمامك

تكون مثل ما فى الصورة

هذه التى فى الصورة كومبو بوكس وفى بيئة الدوت نت ولكنى اريد ان برمجتها فى الفيجوال بيزك 6

وارجو الرد

http://img34.imageshack.us/img34/659/21819573.png

مرحباً أخي

كنت قد وضعت موضوع مشابهة لطلبك .. ووجدت الحل من الإخوة الكرام جزاهم الله خير الجزاء

شوف هالموضوع ربما قد يفيدك

كيف أجعل التكست يكمل النص بدل ما أكتبه بالكامل

تحياتي لك

أخي الكريم

لماذا لم تلجأ إلى خاصية الترتيب Sorted في أداة Combobox ليتحقق لك ما تريد؟