إلغاء الزر الأيمن في المتصفح داخل النموذج

[shod90]

السلام عليكم و رحمة الله و بركاتة 

كنت من فترة طرحت موضوع عن كيفية إظهار ملفات الهاردديسك داخل النموذج

الحمد لله إستطعت أن أفعل هذا عن طريق إدراج متصفح ويب داخل النموذج

ولكن المشكلة التي قابلتني هي كيفية تعطيل الزر الأيمن بحيث لا يمكن للمستخدم النقر علي المدجلد / الملف و معرفة الخصائص كما هو موضح في الصورة أدناة

أيضا أريد معرفة كيفية تشغيل الأسهم بحيث إذا دخلت علي subfolder بإمكاني الرجوع الي الفولدر الرئيسي

[Shivan Rekany]

اليك هدول الكودين

Private Sub Form_KeyPress(KeyAscii As Integer)
If Button = vbKeyRButton Then
  DoCmd.CancelEvent
End If
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbKeyRButton Then
 DoCmd.CancelEvent
End If
End Sub

مبينة في اي وضع تستخدمه
 

[shod90]

أخي الكريم .. ادرجت هذا الكود ولكن لم يحصل اي شئ كأن الكود لم يكتب من الأساس .. ما الحل ؟ 

[Shivan Rekany]

 

أخي الكريم .. ادرجت هذا الكود ولكن لم يحصل اي شئ كأن الكود لم يكتب من الأساس .. ما الحل ؟ 

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

[shod90]

أخي الكريم .. تفضل الملف كما طلبت  

Database1.rar

[shod90]

هل من مساعد ؟ 

[أمير2008]

بالنسبة لجزئية الرجوع للمجلد الرئيسي :

يجب عليك تخزين المسارات (حالي وسابق)  إما في متغيرات أو في جدول أو في ملف خارجي :

طريقة المتغيرات :

ليكن مثلا عشرة متغيرات نصية

فاذا كنت في المجلد الرئيسي فيتم تخزين المسار في متغير مسار 1

فإذا أصبحت في مجلد فرعي 1 يتم تخزين قيمة مسار المجلد الفرعي 1 في المتغير مسار 2

وإذا أصبحت في مجلد فرعي 2 يتم تخزين قيمة مسار المجلد الفرعي  2 في المتغير مسار 3

وهكذا

طريقة الجدول :

هي عمل جدول تخزن فيه المسارات الأخيرة التي زرتها بديلاًَ عن المتغيرات

 

ومثلا عند  تخزين المسار يكون الكود :

curr_folder = Me.oleWebrowser.LocationURL

وفي حالة الاستعادة يكون الكود :

Me.oleWebrowser.Object.Navigate curr_folder

 

[jjafferr]

السلام عليكم

 

لم استطع تعطيل النقر على الفأرة اليمنى

 

تم استبدال ActiveX  الى:

.

وهذا الكود بالكامل ، مع استعمال الاسهم للذهاب الى الصفحة السابقة ، او الرجوع للصفحة التي كنت عليها

Option Compare Database

Public web As Object

Private Sub cmd_Back_Click()

    web.GoBack 'Go Back one Page
End Sub

Private Sub cmd_Forward_Click()

    web.GoForward 'Go Forward one Page
End Sub

Private Sub Form_Load()


    'specify that the browser is an object in the Form
    Set web = Me.objIE.Object
    
    'give the initial web page name
    web.Navigate "E:\"
    
End Sub

 

جعفر

569.Database1.accdb.zip

[محمد سلامة]

 

السلام عليكم

 

لم استطع تعطيل النقر على الفأرة اليمنى

 

تم استبدال ActiveX  الى:

.

وهذا الكود بالكامل ، مع استعمال الاسهم للذهاب الى الصفحة السابقة ، او الرجوع للصفحة التي كنت عليها

Option Compare Database

Public web As Object

Private Sub cmd_Back_Click()

    web.GoBack 'Go Back one Page
End Sub

Private Sub cmd_Forward_Click()

    web.GoForward 'Go Forward one Page
End Sub

Private Sub Form_Load()


    'specify that the browser is an object in the Form
    Set web = Me.objIE.Object
    
    'give the initial web page name
    web.Navigate "E:\"
    
End Sub

 

جعفر

569.Database1.accdb.zip

وعليكم السلام

لاسف عند الضغط على كليك يمين فى الموس تظهر القائمة .. ويمكنك حذف اى شئ يظهر من الذى يظهر فى المستعرض

[jjafferr]

 

 

لم استطع تعطيل النقر على الفأرة اليمنى

نعم انا قلت هذا 

 

في طريقة ، ولكن بتغيير الـ Registry ،

http://www.thewindowsclub.com/enable-disable-right-click-context-menus-windows-explorer

http://www.liutilities.com/products/registrybooster/tweaklibrary/tweaks/10160/

 

ونستطيع عن طريق البرنامج التحكم فيه ، بحيث نمنع النقرة بيمين الفأرة عند دخولنا في البرنامج ، ثم نسمح لها عند خروجنا من البرنامج ، ولكن عند تشغيل البرنامج ، لن تعمل نقرة الفأرة اليمين في برنامج تفحص الملفات في الوندوز File Explorer ايضا !!

ولكني ضد تغيير اعدادات كlبيوتر المستخدم ، لهذا السبب لم اعرض الفكرة

 

جعفر

[محمد سلامة]

2 ساعات مضت, jjafferr said:

نعم انا قلت هذا 

 

في طريقة ، ولكن بتغيير الـ Registry ،

http://www.thewindowsclub.com/enable-disable-right-click-context-menus-windows-explorer

http://www.liutilities.com/products/registrybooster/tweaklibrary/tweaks/10160/

 

ونستطيع عن طريق البرنامج التحكم فيه ، بحيث نمنع النقرة بيمين الفأرة عند دخولنا في البرنامج ، ثم نسمح لها عند خروجنا من البرنامج ، ولكن عند تشغيل البرنامج ، لن تعمل نقرة الفأرة اليمين في برنامج تفحص الملفات في الوندوز File Explorer ايضا !!

ولكني ضد تغيير اعدادات كlبيوتر المستخدم ، لهذا السبب لم اعرض الفكرة

 

جعفر

طيب هل نقدر نعمل تامين لعنصر كائن مستعرض ويب.. لانني بصراحة جربت بالكود ولم افلح 

وجربت ايضا عمل خاصية تمكين الي لا ولكن بعد تفعيلها لا يظهر اي شئ داخل المستعرض

تم تعديل فبراير 10, 2017 بواسطه محمد سلامة

[jjafferr]

10 دقائق مضت, محمد سلامة said:

طيب هل نقدر نعمل تامين لعنصر كائن مستعرض ويب.. لانني بصراحة جربت بالكود ولم افلح 

وجربت ايضا عمل خاصية تمكين الي لا ولكن بعد تفعيلها لا يظهر اي شئ داخل المستعرض

آسف ما فهمت قصدك

 

جعفر

[محمد سلامة]

7 دقائق مضت, jjafferr said:

آسف ما فهمت قصدك

 

جعفر

احنا كل كلمنا في الموضوع اننا نلغي القائمة التي تظهر عند الضغط علي كليك يمين في الماوس وذلك داخل مستعرض الويب داخل النموذ... حلو كده

انا بقه اللي اقصده في تعليقي السابق اني لو قدرنا نعمل تامين للكائن الموجود بالنموذج.  ( المستعرض) بكده مش هنخف من القائمة المذكورة

[jjafferr]

3 دقائق مضت, محمد سلامة said:

احنا كل كلمنا في الموضوع اننا نلغي القائمة التي تظهر عند الضغط علي كليك يمين في الماوس وذلك داخل مستعرض الويب داخل النموذ... حلو كده

انا بقه اللي اقصده في تعليقي السابق اني لو قدرنا نعمل تامين للكائن الموجود بالنموذج.  ( المستعرض) بكده مش هنخف من القائمة المذكورة

عفوا ما كنت فاهم هذه النقطة

[أمير2008]

من وجهة نظري طريقة الريجستري للأستاذ جعفر تؤدي الغرض.

وموضوع تعطيل الكليك يمين للماوس بمستكشف ويندوز يمكن التغلب عليه من خلال اغلاق المستكشف وإعادة فتحه دون عمل ريستارت للنظام.

 

Database 560.rar

[jjafferr]

السلام عليكم أخي أمير

 

مثل ما قلت سابقا ، انا لا احبذ تغيير اعدادات كمبيوتر المستخدمين

 

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

 

جعفر

[أمير2008]

اقتباس

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

صحيح أستاذنا جعفر ، وأكيد الخطأ لعدم وجود القيمة NoViewContextMenu

لذلك أضفت كود إنشائها في حالة عدم وجودها

 

Database 561.rar

تم تعديل فبراير 11, 2017 بواسطه أمير2008

[رمهان]

انا ساشارك بفكرة

نضع حدث عند العنصر المستعرض وعند الحدث عند الماوس لاعلى MouseUp 

نضع الكود التالي

if button=2 then sendkeys "{esc}"

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

الفكرة الثانية

بما ان المستعرض يقبل اوامر الجاقا سكريبت او الفي بي اسكريبت فيمكن استخدام امر اخفاء القائمة المختصره حسب اللغة والله اعلم

 

تحياتي

[shod90]

25 minutes ago, أمير2008 said:

صحيح أستاذنا جعفر ، وأكيد الخطأ لعدم وجود القيمة NoViewContextMenu

لذلك أضفت كود إنشائها في حالة عدم وجودها

 

Database 561.rar

أخي الكريم التجربة نجحت ولكن هناك شئ بسيط لابد من الأخذ في الإعتبار الا و هو إن إذا كام المستخدم ليس administrator فهذة التجربة لن تنجح لأنة أعطاني runtime error permission denied عند إنشاء قيمة NoViewContextMenu

 

5 minutes ago, رمهان said:

انا ساشارك بفكرة

نضع حدث عند العنصر المستعرض وعند الحدث عند الماوس لاعلى MouseUp 

نضع الكود التالي

if button=2 then sendkeys "{esc}"

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

الفكرة الثانية

بما ان المستعرض يقبل اوامر الجاقا سكريبت او الفي بي اسكريبت فيمكن استخدام امر اخفاء القائمة المختصره حسب اللغة والله اعلم

 

تحياتي

أخي الكريم أحييك علي المشاركة الطيبة ولكن لا يوجد حدث يسمي MouseUp في عنصر المستعرض ... 

هل جربت هذه الفكرة علي هذا المثال ؟

[أبو إبراهيم الغامدي]

السلام عليكم جميعا..

إليكم طريقة إلغاء الزر الأيمن لكائن المستعرض بأبسط طريقة من داخل أكسس!

1- الخطوة الأولي اضف المكتبة الخاصة بمستندات HTML من مكتة المراجع ( Microsoft Html Object Library )

2- افتح محرر الشفرة للنوذج وأضف الإعلان التالي في رأس المحرر.. (WithEvents)  تنشئ أحداثا خاصة للغرض المعلن عنه!

Public WithEvents HTML As HTMLDocument

3- من القائمة المنسدلة  اليسرى في أعلى المحرر: اختر الغرض (HTML) الذي سبق الإعلان عنه

4- من القائمة المنسدلة اليمنى: اختر الحدث (oncontextmenu) هذا الحدث يعيد قيمة منطقية (TRUE, FALSE).. اسند القيمة (FALSE)  لهذا الحدث كالتالي

Private Function HTML_oncontextmenu() As Boolean
    HTML_oncontextmenu = False
End Function

5- في حدث (onload) للنموذج: أضف السطرين التاليين.. [قم بتبديل ما يلزم]

Private Sub Form_Load()
    Me.WebBrowser0.Navigate "ABOUT:BLANK"
    Set HTML = Me.WebBrowser0.Document
End Sub

 

هذا كل شي.. إليكم المثال

web_browser.zip

[jjafferr]

15 دقائق مضت, أبو إبراهيم الغامدي said:

السلام عليكم جميعا..

إليكم طريقة إلغاء الزر الأيمن لكائن المستعرض بأبسط طريقة من داخل أكسس!

1- الخطوة الأولي اضف المكتبة الخاصة بمستندات HTML من مكتة المراجع ( Microsoft Html Object Library )

2- افتح محرر الشفرة للنوذج وأضف الإعلان التالي في رأس المحرر.. (WithEvents)  تنشئ أحداثا خاصة للغرض المعلن عنه!

Public WithEvents HTML As HTMLDocument

3- من القائمة المنسدلة  اليسرى في أعلى المحرر: اختر الغرض (HTML) الذي سبق الإعلان عنه

4- من القائمة المنسدلة اليمنى: اختر الحدث (oncontextmenu) هذا الحدث يعيد قيمة منطقية (TRUE, FALSE).. اسند القيمة (FALSE)  لهذا الحدث كالتالي

Private Function HTML_oncontextmenu() As Boolean
    HTML_oncontextmenu = False
End Function

5- في حدث (onload) للنموذج: أضف السطرين التاليين.. [قم بتبديل ما يلزم]

Private Sub Form_Load()
    Me.WebBrowser0.Navigate "ABOUT:BLANK"
    Set HTML = Me.WebBrowser0.Document
End Sub

 

هذا كل شي.. إليكم المثال

web_browser.zip

وعليكم السلام أخوي أبوابراهيم

 

والله رأيت هذا الكود بعد بحث طويل في الانترنت ، ووضعته في البرنامج الموجود في المشاركة اعلاه

 

ولكني كنت احصل على خطأ (Type mismatch) على هذا السطر: Set HTML = Me.objIE.Document

ولم استطع التغلب على الخطأ ، فلم ارفقه في مشاركاتي

 

ياريت تعدل على البرنامج المرفق في الرابط اعلاه ، علشان اقدر اعرف وين المشكلة.

 

شكرا

جعفر

[رمهان]

الاخ ابو ابراهيم

احسنت وبارك الله فيك

اقول تمام عليك وبدون تحميل المرفق او الجربة

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

تحياتي

[أبو إبراهيم الغامدي]

7 دقائق مضت, jjafferr said:

ياريت تعدل على البرنامج المرفق في الرابط اعلاه ، علشان اقدر اعرف وين المشكلة.

 

كنت اتمنى أن أطلع على مشاركاتكم ولكن استطع استعراضها بالإصدار 2007 للاسف..

أرجو التكرم بإعادة رفعها بما يتوافق مع 2007

[jjafferr]

المرفق في الرابط اعلاه بصيغة accdb والمتوافق مع اكسس 2007 ،

وارفق لك نسخة اخرى بصيغة mdb

 

جعفر

569.Database1.mdb.zip

15 دقائق مضت, رمهان said:

الاخ ابو ابراهيم

احسنت وبارك الله فيك

اقول تمام عليك وبدون تحميل المرفق او الجربة

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

تحياتي

هذا صحيح اخوي رمهان ،

ولكن كود التعطيل يكون جزء من كود الصفحة ،

بينما نحن نتعامل مع كود من خارج الصفحة للتحكم بالصفحة ،

وكما تعرف ، بأن المتصفح داخل الاكسس لا يملك جميع ميزات وعمل المتصفح الاصل IE ، فلربما تكون هذه الميزة محذوفه منه!!

 

جعفر

[أبو إبراهيم الغامدي]

24 دقائق مضت, رمهان said:

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

تحياتي

إن شاء الله أقوم بإعداد مثال يعطل الخاصية عن طريق إدراج (Javascript) في الصفحة

شكرا على مرورك أخوي رهمان