تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
بحث عن كلمه في منتصف الصفحة مع تظليلها
#1
بسم الله الرحمن الرحيم

أنا إنسان بسيط جداً أقوم بكتابة خطب وبرامج على برنامج أكسيس ثم أربطها بال data أو adodc طبعاً بالفيجوال بيسك 6
ممكن كود يقوم بالبحث عن كلمة أو جملة في الصفحة ( سواء منتصف الصفحة أو في أي مكان) مع تظليل جملة البحث
وشاكر لكل من يساهم في الحل
الرد }}}}
تم الشكر بواسطة:
#2
لماذا لا أجد رد
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم
اجعل محتويات القاعده تظهر في الليست بوكس ثم اعمل حلقة تكراريه للبحث عن الكلمه المدخله في صندوق النص
واذا لم تستطع عمل ذلك ارفع البرنامج وساقوم بكتابة الكود الخاص به
اختكم الاصيله
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor
#4
هذا هو المثل أشكر لكم جهدكم


الملفات المرفقة
.rar   الصبر على طلب العلم.rar (الحجم : 38.89 ك ب / التحميلات : 14)
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم
ارجوا ان يكون ماطلبت في المرفقات


الملفات المرفقة
.zip   الصبر على طلب العلم.zip (الحجم : 48.78 ك ب / التحميلات : 28)
اختكم الاصيله
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor
#6
أهلا أخي الكريم , قم بإدراج زر جديد للبحث ثم إنسخ هذا الكود وألصقة بداخل حدث الـClick للزر :

كود :
Dim zSearch As String
Dim I As Long

zSearch = InputBox("أكتب نص البحث", "البحث")

If Trim$(zSearch) = "" Then Exit Sub

I = InStr(1, Text1.Text, Trim$(zSearch))

If I > 0 Then
  
   Text1.SelStart = I - 1
   Text1.SelLength = Len(Trim$(zSearch))
   Text1.SetFocus

End If
الرد }}}}
تم الشكر بواسطة: Microformt , Microformt
#7
أختى الفاضله أصيله
أشكر لكي تعبك ولكن للأسف لم أجد في المرفقات أي فارق بين برنامجي وتعديك
وأشكركي كثيراً

أخي الحبيب Ahmed_Mansoor أستفدت كثيراً كثيراً من ردك
ولكن هذا لو كان البحث في التكست فقط ... ولكن أريد البحث في جميع القاعده وقد تحتوى على 3000 صفحة وأكثر ....
أخي الحبيب أتمنى لو تمدني بتعديل لهذا الكود يعدل جميع الكلمات المشابهه لكلمة البحث
ومتشكر ليك كثيراً أخي الحبيب
الرد }}}}
تم الشكر بواسطة:
#8
(30-11-15, 09:03 PM)عبده نصار كتب : أختى الفاضله أصيله
أشكر لكي تعبك ولكن للأسف لم أجد في المرفقات أي فارق بين برنامجي وتعديك
وأشكركي كثيراً

أخي الحبيب Ahmed_Mansoor أستفدت كثيراً كثيراً من ردك
ولكن هذا لو كان البحث في التكست فقط ... ولكن أريد البحث في جميع القاعده وقد تحتوى على 3000 صفحة وأكثر ....
أخي الحبيب أتمنى لو تمدني بتعديل لهذا الكود يعدل جميع الكلمات المشابهه لكلمة البحث
ومتشكر ليك كثيراً أخي الحبيب
اخي العزيز انا اعتذر منك ولكن انت بانه لايوجد بين برنامجك والملف الذي رفعته اليك اي فرق
اخي العزيز برنامجك لم يكن به اي بحث وهذا الكود الذي ضفته لبرنامجك تقبل مروري واعتذاري
List2.List(0) = Text1
Dim a
List1.Clear
For x = 0 To List2.ListCount - 1
List2.Selected(x) = True

If UCase(List2.Text) = UCase(Text1.Text) Then
 MsgBox " ok "
List1.AddItem List2.Text

End If
Next x

Text3 = List1.ListCount
اختكم الاصيله
الرد }}}}
تم الشكر بواسطة:
#9
أختى الفاضله
أعتذر إن كنت لا أجيد الكلام .... ولكن عموماً أشكرك
وأرجو التوضيح أين أضع هذا الكود
هل في زر أمر

أختى الفاضلة الأصيله
حملت المرفقات مرات عديده
وجلا من لا يسهو
تقريباً حضرتك بعد ما عدلتي على برنامجي رفعتي نسختي قبل التعديل
وربما أنني أجهل شئ ... لأن علمى معدوم في مجال البرمجيات
الرد }}}}
تم الشكر بواسطة:
#10
السلام عليكم سوف ارفع البرنامج مرة اخرى
كل ماعليك هو ربط الليست بالقاعده


الملفات المرفقة
.zip   الصبر على طلب العلم.zip (الحجم : 28.77 ك ب / التحميلات : 10)
اختكم الاصيله
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تعديل هذا الكود للبحث لاى كلمه فى النص رجل الكهرباء 2 116 03-10-16, 02:19 AM
آخر رد: رجل الكهرباء

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم