للبحث داخل نص

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default للبحث داخل نص

مُساهمة من طرف Admin في الخميس أكتوبر 19, 2006 11:46 pm

للبحث داخل نص استخدم امر
instr

الكود للبحث داخل مربع نص هو

Private Sub Command1_Click()
Dim fin As String
fin = "jad"
a = InStr(Text1.Text, fin)
Text1.SelStart = a - 1
Text1.SelLength = Len(fin)
Text1.SetFocus
End Sub
يقوم هذا الكود بالبحث عن الكلمة jad ثم يقوم بتحديدها


عدل سابقا من قبل في الخميس أغسطس 16, 2007 10:45 am عدل 1 مرات

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709
avatar
Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 35
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: للبحث داخل نص

مُساهمة من طرف المصممh في السبت أكتوبر 21, 2006 12:21 pm

أستاذي
في السطر الخامس أنت ذكرت 1 - a بس أبغا أعرف سبب وضع ناقص واحد ؟؟؟؟
وثاني سؤال
ما هو معنى selstart

المصممh
عضو
عضو

عدد الرسائل : 3
تاريخ التسجيل : 21/10/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: للبحث داخل نص

مُساهمة من طرف Admin في السبت أكتوبر 21, 2006 1:14 pm

في هذا الكود
InStr تقوم الدالة
بالبحث داخل
text1.Text
وتعيد هذه الدالة اما رقم صفر ويعني ذلك عدم وجود
النص الذي نبحث عنه
او
عند وجود النص تعيد مكان وجود اول حرف من النص

مثلا
aje لو اردنا البحث داخل هذا النص عن
jad majed quraan
لأعادة لنا الدالة رقم 5

لذلك قمنا بإنقاص رقم واحد من قميمة الدالة لكي
يبدأ التظليل للنص من اول حرف

اما بخصوص selstart فهي
لتحديد بداية النص
لذلك قصدنا بها هنا مكان بداية النص لتظليله

ارجوا ان يكون الشرح وافي

========
شعارنا لا تتردد بالسؤال

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709
avatar
Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 35
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default شكر

مُساهمة من طرف العـطوي في الثلاثاء نوفمبر 14, 2006 9:09 pm

شكرا لك يا جاد على الموضوع وعلى الشرح..................
وكمان أشكرك على شعارك الرهيب

العـطوي
عضو متميز
عضو متميز

عدد الرسائل : 43
تاريخ التسجيل : 06/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى