02-08-24, 11:20 PM
سجل في بداية الكود (حدث التكست بوكس الذي تبحث بواسطته) الكود التالي:
بهذا اذا انتهيت من الكتابة وبمجرد الضغط على زر المسافة (يعني بعد الانتهاء من كتابة الاسم الأول)
من أجل البدء الاسم التالي سيقوم ببدء البحث
وإذا لم تضغط على المسافة فلن يبدأ بالبحث ..
واذا بدأت بكتابة الاسم الثاني سيتوقف البحث ولن يغير شيء حتى تنتهي من الاسم الثاني وتضغط على زر المسافة
وحينها سيبدأ من جديد بالبحث عن الاسم المكتوب( كل اسم يبدأ بـ (الأول مع الثاني)) و هكذا ..
كود :
If Len(sname.Text) <= 1 Then Exit Sub
If Strings.Right(sname.Text, 1) <> " " Then Exit Subبهذا اذا انتهيت من الكتابة وبمجرد الضغط على زر المسافة (يعني بعد الانتهاء من كتابة الاسم الأول)
من أجل البدء الاسم التالي سيقوم ببدء البحث
وإذا لم تضغط على المسافة فلن يبدأ بالبحث ..
واذا بدأت بكتابة الاسم الثاني سيتوقف البحث ولن يغير شيء حتى تنتهي من الاسم الثاني وتضغط على زر المسافة
وحينها سيبدأ من جديد بالبحث عن الاسم المكتوب( كل اسم يبدأ بـ (الأول مع الثاني)) و هكذا ..
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
