[عبده نصار]

بسم الله الرحمن الرحيم

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

[عبده نصار]

لماذا لا أجد رد

[الاصيله]

السلام عليكم
اجعل محتويات القاعده تظهر في الليست بوكس ثم اعمل حلقة تكراريه للبحث عن الكلمه المدخله في صندوق النص
واذا لم تستطع عمل ذلك ارفع البرنامج وساقوم بكتابة الكود الخاص به

[عبده نصار]

هذا هو المثل أشكر لكم جهدكم

[الاصيله]

السلام عليكم
ارجوا ان يكون ماطلبت في المرفقات

[Ahmed_Mansoor]

أهلا أخي الكريم , قم بإدراج زر جديد للبحث ثم إنسخ هذا الكود وألصقة بداخل حدث الـ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

[عبده نصار]

أختى الفاضله أصيله
أشكر لكي تعبك ولكن للأسف لم أجد في المرفقات أي فارق بين برنامجي وتعديك
وأشكركي كثيراً

---

أخي الحبيب Ahmed_Mansoor أستفدت كثيراً كثيراً من ردك
ولكن هذا لو كان البحث في التكست فقط ... ولكن أريد البحث في جميع القاعده وقد تحتوى على 3000 صفحة وأكثر ....
أخي الحبيب أتمنى لو تمدني بتعديل لهذا الكود يعدل جميع الكلمات المشابهه لكلمة البحث
ومتشكر ليك كثيراً أخي الحبيب

[الاصيله]

(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

[عبده نصار]

أختى الفاضله
أعتذر إن كنت لا أجيد الكلام .... ولكن عموماً أشكرك
وأرجو التوضيح أين أضع هذا الكود
هل في زر أمر

---

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

[الاصيله]

السلام عليكم سوف ارفع البرنامج مرة اخرى
كل ماعليك هو ربط الليست بالقاعده