كيفية معرفة المفتاح بعد الضغط عليه

[حكمت العراقي]

السلام عليكم

ارجو من الاساتذة مساعدتي في معرفة كود كيفية معرفة المفتاح بعد الضغط عليهز

مثلا عند النقر على الحرف ح تظهر رسالة مكتوب فيها "الحرف الذي ضغطت عليه هو ح"

[ابوخليل]

عليكم السلام

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

لذا يلزم ان نترجم الرقم الى حرف ، من خلال جدول 

في المثال وضعت لك في الجدول حروف الازرار انجليزية كما هي عندي ، ويمكنك استبدالها بأي لغة تريد

لاحظ : عندما تخرج الرسالة خالية هذا يعني ان الزر لم يدرج رقمه وحرفه ضمن الجدول

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i As String
i = Nz(DLookup("nmKey", "tblNumberKey", "idNmKey =" & KeyCode))
MsgBox i
End Sub

 

test.mdb

[حكمت العراقي]

شكرا جزيلا

وفقك الله واحسن اليك

[jjafferr]

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

 

ومن وحي جواب اخوي ابوخليل ، وبدون جدول

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    msgbox Chr(KeyCode)

End Sub

 

 

جعفر

[ابوخليل]

شكرا اخوي جعفر على المداخلة الجميلة

تظهر الحروف الانجليزية

هل يمكن اظهار حروف اللغة البديلة

لأني اقلب لوحة المفاتيح الى العربية ولا يتم التقاط الحروف

[jjafferr]

16 دقائق مضت, ابوخليل said:

هل يمكن اظهار حروف اللغة البديلة

لأني اقلب لوحة المفاتيح الى العربية ولا يتم التقاط الحروف

أي أي أي , مسكتني من يدي اللي توجعني 🙂

نعم ممكن نعرف اي لغة هي لوحة المفاتيح ، والى هنا وتوقفت ، قبل ان اعمل مشاركتي السابقة 🙂

 

واللي يجي على بالي ، اننا ممكن نستفيد من جدولك لتحويل الحروف الى اللغة الاخرى (العربية مثلا) ، ولكني اعتقد بأنه لابد من وجود مخرج برمجي بدون الجدول ،

واهم من النقطة السابقة هي ليس معرفة لغة الوندوز (اللي نشوفها ايقونتها عند الساعة) ، وانما المشكلة في نوع لوحة المفاتيح ، فهناك عدة لوحات مفاتيح للغة الواحدة ، والحرف ذ (مثلا) قد يكون في مكان مختلف 😁

 

جعفر

[jjafferr]

1 ساعه مضت, jjafferr said:

واهم من النقطة السابقة هي ليس معرفة لغة الوندوز (اللي نشوفها ايقونتها عند الساعة) ، وانما المشكلة في نوع لوحة المفاتيح ، فهناك عدة لوحات مفاتيح للغة الواحدة ، والحرف ذ (مثلا) قد يكون في مكان مختلف

اعتقد بأن الوندوز يتحمل مسؤولية هذه الفقرة ، ويعطينا الصافي 🙂

[jjafferr]

في النموذج ، اعمل حقل بإسم str_Key ، وضع فيه هذا الكود

Private Sub str_Key_KeyPress(KeyAscii As Integer)

    Debug.Print ChrW(KeyAscii)
    Me.str_Key = Empty
End Sub

.

او على مستوى النموذج:

Private Sub Form_KeyPress(KeyAscii As Integer)

    Debug.Print ChrW(KeyAscii)
End Sub

 

الفرق ان هذا الكود يستعمل KeyAscii ، اي ارقام الحروف ،

بينما الكود في المشاركات السابقة يستعمل KeyCode ، اي ارقام ازرار الكيبورد !!

 

جعفر

[ابوخليل]

سلمت اناملك ابوعبدالله

MsgBox ChrW(KeyAscii)