السلام عليكــم ورحمـة الله وبركاتــه
اريد ان اعرف كيف يمكن البحث فى اداه الانترنت براوزر عن فوولدر واظهار النتائج فى نفس المكان
WebBrowser1.navigate "c:\ss"
هذا الكود يقوم بإستعراض محتويات الفولدر الموجود على السي والمسمي ss
ما اريده ان ابحث فى هذا الفولدر عن مجلد باسم معين واظهر النتائج فى هذا الفولدر
جزاكم الله خيرا
ياشبا ب وينكم الموضوع جد مهم
البحث عن فولدر او البحث عن ملفات واظهار النتائج فى اداة الويب براوزر webbrowser
جزاكم الله خيرا
ياجماعه الخير انتم فين ؟ هو الموضوع صعب للدرجادي ؟ الرجاء النظر الى الموضوع بعين الاعتبار ....شكرا
تم تعديل هذه المشاركة بواسطة SaadAbuRezk في 15 فبراير 2009 في 10:53
الفكرة مستحيل تنفيذها بهذا الشكل .. ولتتأكد بنفسك إتبع الآتي
إفتح مشروع جديد وضع به الـ WebBrowser1 ثم اكتب الكود أدنها للـ Form_Load
Private Sub Form_Load()
ثم ضع الكود أدناه للـ Form_Resize
Private Sub Form_Resize()
ولظهور العنوان في الـ Title Bar ضع الكود ادناه للـ WebBrowser1_NavigateComplete2
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
الآن قم بتشغيل المشروع ثم كبره .. أي إجعله في وضع الـ Maximize
حاول أن تتصفح مجلداتك الآن وراقب الـ Title Bar
الآن حاول ان تضغط على Search for files or folders .. وراقب ماذا سيحدث
إذا الفكرة جائزة او ممكنة سيظهر العنوان الذي تبحث عنه في الـ Title Bar
ولكن ما يحدث هو ان الـ Search لم ولن يفتح بهذا الشكل من الأصل ..
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
اخي الكريم mrx_ta7ady
تحياتي لك واشكرك على مرورك الكريم .لكن من اليوم فصاعد الرجاء ان تعدني بأن تلغي كلمة مستحيل من كلامك خصوصا فى العلم لان ما اعرفه تماما انه لا مستحيل فى العلم ...لكن المستحيل ان تحاول وصف الله بصفات غير لائقه لجلاله وعظمته مثلا او تصفه بالعدم فهذا ا مخالف لصفاته تعالى ويستحيل عليه تعالى الفناء والعدم ..هذا هو المستحيل الحقيقي .. أما العلم فلا مستحيل فيه
.اسف للإطاله
اليك مثال يقوم بعمليه البحث ولكن فى نافذه منفصله الرجاء تطوير المثال لكي يظهر البحث ونتائجه فى نفس النافذه التي تعرض الملفات
هذا المثال للأمانه منقول من هذا المنتدي الكريم لاحد الاخوة الافاضل ولكن لا اعرف اسمه .
لكم تحياتي
المثال
ضع هذا الكود فقط فى اى زر امر
on error resume next
WebBrowser.ExecWB OLECMDID_FIND, OLECMDEXECOPT_DODEFAULT, vbNullString, vbNullString
تم تعديل هذه المشاركة بواسطة SaadAbuRezk في 18 فبراير 2009 في 11:26
ايها الاخوة الكرام
اري ان موضوعي توقف عند هذا الحد هل هو صعب لهذه الدرجة
ارجو من الاخوة المشرفين النظر لهذا الموضوع لانه من الاهمية بمكان
ارجو تطوير هذا المثال وهو للاخ اسامة ....لجعل المثال يبحث فى نفس فولدر العرض وليس اظهار البحث منفصل
شكرا
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…