حكمت العراقي قام بنشر مايو 18 مشاركة قام بنشر مايو 18 السلام عليكم ارجو من الاساتذة مساعدتي في معرفة كود كيفية معرفة المفتاح بعد الضغط عليهز مثلا عند النقر على الحرف ح تظهر رسالة مكتوب فيها "الحرف الذي ضغطت عليه هو ح" رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 18 مشاركة قام بنشر مايو 18 عليكم السلام اكسس يتعرف على رقم الزر ولكن الحرف متروك للمستخدم لذا يلزم ان نترجم الرقم الى حرف ، من خلال جدول في المثال وضعت لك في الجدول حروف الازرار انجليزية كما هي عندي ، ويمكنك استبدالها بأي لغة تريد لاحظ : عندما تخرج الرسالة خالية هذا يعني ان الزر لم يدرج رقمه وحرفه ضمن الجدول 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 3 رابط هذا التعليق شارك More sharing options...
حكمت العراقي قام بنشر مايو 18 الكاتب مشاركة قام بنشر مايو 18 شكرا جزيلا وفقك الله واحسن اليك رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 18 مشاركة قام بنشر مايو 18 وعليكم السلام 🙂 ومن وحي جواب اخوي ابوخليل ، وبدون جدول Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) msgbox Chr(KeyCode) End Sub جعفر 2 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 18 مشاركة قام بنشر مايو 18 شكرا اخوي جعفر على المداخلة الجميلة تظهر الحروف الانجليزية هل يمكن اظهار حروف اللغة البديلة لأني اقلب لوحة المفاتيح الى العربية ولا يتم التقاط الحروف رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 18 مشاركة قام بنشر مايو 18 16 دقائق مضت, ابوخليل said: هل يمكن اظهار حروف اللغة البديلة لأني اقلب لوحة المفاتيح الى العربية ولا يتم التقاط الحروف أي أي أي , مسكتني من يدي اللي توجعني 🙂 نعم ممكن نعرف اي لغة هي لوحة المفاتيح ، والى هنا وتوقفت ، قبل ان اعمل مشاركتي السابقة 🙂 واللي يجي على بالي ، اننا ممكن نستفيد من جدولك لتحويل الحروف الى اللغة الاخرى (العربية مثلا) ، ولكني اعتقد بأنه لابد من وجود مخرج برمجي بدون الجدول ، واهم من النقطة السابقة هي ليس معرفة لغة الوندوز (اللي نشوفها ايقونتها عند الساعة) ، وانما المشكلة في نوع لوحة المفاتيح ، فهناك عدة لوحات مفاتيح للغة الواحدة ، والحرف ذ (مثلا) قد يكون في مكان مختلف 😁 جعفر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 18 مشاركة قام بنشر مايو 18 1 ساعه مضت, jjafferr said: واهم من النقطة السابقة هي ليس معرفة لغة الوندوز (اللي نشوفها ايقونتها عند الساعة) ، وانما المشكلة في نوع لوحة المفاتيح ، فهناك عدة لوحات مفاتيح للغة الواحدة ، والحرف ذ (مثلا) قد يكون في مكان مختلف اعتقد بأن الوندوز يتحمل مسؤولية هذه الفقرة ، ويعطينا الصافي 🙂 رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر مايو 18 أفضل إجابة مشاركة قام بنشر مايو 18 في النموذج ، اعمل حقل بإسم 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 ، اي ارقام ازرار الكيبورد !! جعفر 2 1 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 18 مشاركة قام بنشر مايو 18 سلمت اناملك ابوعبدالله MsgBox ChrW(KeyAscii) رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.