عندما اريد عمل اختصار في KeyPress
If KeyAscii = 69 Then MsgBox "ssS" End If
عايز بقيه لو حرفين مع بعض اعمل ايه ايه.....؟؟؟؟؟؟؟؟؟؟؟؟؟
If KeyAscii = 69 And 70 Then MsgBox "ssS" End If
الطريقه ديه مانفعتش
www.acrowing.com
اول موقع عربي لرياضة التجديف
عندما اريد عمل اختصار في KeyPress
مغلق
أخي الكريم ممكن تستخدم جملة ال select كما يلي
Select Case KeyAscii Case 69, 70 MsgBox "ssS" End Select
تم تعديل هذه المشاركة بواسطة seaprince46 في 2 فبراير 2005 في 13:14
منتديات كوكب الكمبيوتر
لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية
أخى الفاضل
الكود الذى استخدمته خطأ
اقتباسIf KeyAscii = 69 And 70 ThenMsgBox "ssS"
End If
كان الواجب يكون هكذا
اقتباسIf KeyAscii = 69 Or KeyAscii= 70 ThenMsgBox "ssS"
End If
إن كان هذا هو السبب الوحيد للمشكلة
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
هذا الموضوع مغلق.