+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : بحث عن كلمه في منتصف الصفحة مع تظليلها (/showthread.php?tid=13951)
الصفحات:
1
2
بحث عن كلمه في منتصف الصفحة مع تظليلها - عبده نصار - 27-11-15
بسم الله الرحمن الرحيم
أنا إنسان بسيط جداً أقوم بكتابة خطب وبرامج على برنامج أكسيس ثم أربطها بال data أو adodc طبعاً بالفيجوال بيسك 6
ممكن كود يقوم بالبحث عن كلمة أو جملة في الصفحة ( سواء منتصف الصفحة أو في أي مكان) مع تظليل جملة البحث
وشاكر لكل من يساهم في الحل
RE: بحث عن كلمه في منتصف الصفحة مع تظليلها - عبده نصار - 27-11-15
لماذا لا أجد رد
RE: بحث عن كلمه في منتصف الصفحة مع تظليلها - الاصيله - 28-11-15
السلام عليكم
اجعل محتويات القاعده تظهر في الليست بوكس ثم اعمل حلقة تكراريه للبحث عن الكلمه المدخله في صندوق النص
واذا لم تستطع عمل ذلك ارفع البرنامج وساقوم بكتابة الكود الخاص به
RE: بحث عن كلمه في منتصف الصفحة مع تظليلها - عبده نصار - 28-11-15
هذا هو المثل أشكر لكم جهدكم
RE: بحث عن كلمه في منتصف الصفحة مع تظليلها - الاصيله - 28-11-15
السلام عليكم
ارجوا ان يكون ماطلبت في المرفقات
RE: بحث عن كلمه في منتصف الصفحة مع تظليلها - Ahmed_Mansoor - 29-11-15
أهلا أخي الكريم , قم بإدراج زر جديد للبحث ثم إنسخ هذا الكود وألصقة بداخل حدث الـ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 IfRE: بحث عن كلمه في منتصف الصفحة مع تظليلها - عبده نصار - 30-11-15
أختى الفاضله أصيله
أشكر لكي تعبك ولكن للأسف لم أجد في المرفقات أي فارق بين برنامجي وتعديك
وأشكركي كثيراً
أخي الحبيب Ahmed_Mansoor أستفدت كثيراً كثيراً من ردك
ولكن هذا لو كان البحث في التكست فقط ... ولكن أريد البحث في جميع القاعده وقد تحتوى على 3000 صفحة وأكثر ....
أخي الحبيب أتمنى لو تمدني بتعديل لهذا الكود يعدل جميع الكلمات المشابهه لكلمة البحث
ومتشكر ليك كثيراً أخي الحبيب
RE: بحث عن كلمه في منتصف الصفحة مع تظليلها - الاصيله - 30-11-15
(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
RE: بحث عن كلمه في منتصف الصفحة مع تظليلها - عبده نصار - 30-11-15
أختى الفاضله
أعتذر إن كنت لا أجيد الكلام .... ولكن عموماً أشكرك
وأرجو التوضيح أين أضع هذا الكود
هل في زر أمر
أختى الفاضلة الأصيله
حملت المرفقات مرات عديده
وجلا من لا يسهو
تقريباً حضرتك بعد ما عدلتي على برنامجي رفعتي نسختي قبل التعديل
وربما أنني أجهل شئ ... لأن علمى معدوم في مجال البرمجيات
RE: بحث عن كلمه في منتصف الصفحة مع تظليلها - الاصيله - 30-11-15
السلام عليكم سوف ارفع البرنامج مرة اخرى
كل ماعليك هو ربط الليست بالقاعده