ازرار الكيبورد

[m.r]

السلام عليكم 

تحية طيبة الى جميع اعضاء المنتدى الكرام. 

اخواني سؤال بسيط. 

كيف يتم عمل كود ليقوم بوقف زر (كنترول + F) من خلال الضغط عليهما من الكيبورد اثناء تشغيل النموذج. 

تحياتي

[أبوبسمله]

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

قم بانشاء ماكرو وقم بتسميته AutoKeys كما بالصوره

ثم قم بانشاء ماكرو فرعى بداخله كما بالصوره واكتب به F^

جرب ووافنا بالنتيجه

بالتوفيق اخى

[m.r]

اخوية الفلاحجي:  جيد عاشت ايدك

اكو فد طريقة يتم ايقاف جميع اوامر الكيبورد مثل ( كنترول +F+  F11+  F4) وهكذا للاخير. 

تحياتي

 

[ابو جودي]

 

 

[أبوبسمله]

منور @ابا جودى وحمدالله على السلامه وجزاك الله خيرا على هذا الرابط

بالتوفيق اخوانى

[m.r]

شكرا جدا ابا جودي موفق🌹 

تحياتي

[عبد الله قدور]

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

بالنسبة لي استخدم الكود التالي :

Select Case KeyCode

Case 70 And Shift = 2 '========ÇáÛÇÁ ÇÎÊÕÇÑ ctrl+f===========

    KeyCode = 0
 
   
Case 72 And Shift = 2 '========ÇáÛÇÁ ÇÎÊÕÇÑ ctrl+h==========

    KeyCode = 0


End Select

 

[m.r]

جيد عاشت ايدك عبد الله قدور 

[m.r]

خوية عبد الله قدور هذا الكود يكون في وحدة نمطية لو كيف

[m.r]

سلام عليكم

اخي عبد الله قدور كيف يخلى الكود في وحدة نمطية خارجية حتى يطبق على القاعدة بأكملها (هل يمكن ؟) .

[ابو جودي]

منذ ساعه, m.r said:

سلام عليكم

اخي عبد الله قدور كيف يخلى الكود في وحدة نمطية خارجية حتى يطبق على القاعدة بأكملها (هل يمكن ؟) .

 

هذا الروتين يكتب داخل الموديول 

Public Function AllowKeyCode(KeyCode As Integer, Shift As Integer) As Integer
    Select Case KeyCode
        Case 70 And Shift = 2
            AllowKeyCode = KeyCode
             MsgBox ("turning off ctrl+f")
        Case 72 And Shift = 2
            AllowKeyCode = KeyCode
            MsgBox ("turning off ctrl+h")
        Case Else
            AllowKeyCode = 0
    End Select
End Function

ويتم استدعاء الامر فى زوايا التطبيق من خلال الكود الاتى 

KeyCode = AllowKeyCode(KeyCode, Shift)

فى حدث KeyDown          اما  لاحد العناصر على النموذج   او  KeyDown  للنموذج نفسه

 

اعتذر تم الرد بتسرع دون الوقوف على الية عند تنفيذ الروتين الخاص بالكود  ... وتم حل المشكلة

تم تعديل ديسمبر 1, 2020 بواسطه ابا جودى
تعديل الكود

[m.r]

شكرا ابا جودي موفق🌹 

تحياتي

تم تعديل ديسمبر 1, 2020 بواسطه m.r

[ابو جودي]

في ٢١‏/١١‏/٢٠٢٠ at 17:01, m.r said:

هذا الكود يكون في وحدة نمطية لو كيف

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

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

لا اهلم ان كان هناك عند اساتذتنا الافاضل حل لتلك المشكلة 

راى استخدام الكود مباشرة افضل

[m.r]

عاشت ايدك ابا جودي تأكيد جدا مهم .

تحياتي