بسم الله الرحمن الرحيم
أنا إنسان بسيط جداً أقوم بكتابة خطب وبرامج على برنامج أكسيس ثم أربطها بال data أو adodc طبعاً بالفيجوال بيسك 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
أختى الفاضله أصيله
أشكر لكي تعبك ولكن للأسف لم أجد في المرفقات أي فارق بين برنامجي وتعديك
وأشكركي كثيراً
أخي الحبيب 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
أختى الفاضله
أعتذر إن كنت لا أجيد الكلام .... ولكن عموماً أشكرك
وأرجو التوضيح أين أضع هذا الكود
هل في زر أمر
أختى الفاضلة الأصيله
حملت المرفقات مرات عديده
وجلا من لا يسهو
تقريباً حضرتك بعد ما عدلتي على برنامجي رفعتي نسختي قبل التعديل
وربما أنني أجهل شئ ... لأن علمى معدوم في مجال البرمجيات
السلام عليكم سوف ارفع البرنامج مرة اخرى
كل ماعليك هو ربط الليست بالقاعده