أريد أن أصنع برنامج يقوم بالضغط مثلاً على مفاتيح
Control + Alt + 1
هل هناك طريقة لذلك؟
أتمنى المساعدة
أريد أن أصنع برنامج يقوم بالضغط مثلاً على مفاتيح
Control + Alt + 1
هل هناك طريقة لذلك؟
أتمنى المساعدة
الصراحة.. سؤالك غير واضح تماماً....
ولكن، إذا كنت تقصد أن يقوم البرنامج بعمل محدد عند ضغط الأزرار الثلاثة Ctrl+Alt+1 فيمكنك استعمال الحدث KeyDown ، إليك هذا الكود:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 49 And Shift = 6 Then MsgBox "Hello" End Sub
قبل كتابة هذا الكود، اضبط خاصية KeyPreview للفورم إلى True لكي تشعر النافذة بحدث الضغط على لوحة المفاتيح، ثم اختر هذا الحدث للـForm وكما ترى فإنه يحوي متغيرين، الأول KeyCode ويشتمل على رقم الزر المضغوط، حيث لكل زر رقم محدد، ورقم الزر الذي يحوي "1" هو 49.
أما المتغير الثاني فهو Shift وهو يراقب حالة الأزرار الثلاثة Shift و Ctrl و Alt فإن ضغط المستخدم الزر Shift فإن المتغير السابق يحوي القيمة 1، وإن ضغط Ctrl فإن المتغير يحوي 2، وإن ضغط Alt فإنه يحوي 4، وإن ضغط زرين معاً فإنه يحوي قيمة جمعهما، يعني مثلاً إذا ضغط Ctrl+Alt فإن المتغير يحوي 2+4 أي 6. وبالتالي فإن الكود السابق يختبر الزر المضغوط فيجده رقم 49، أي الزر 1، ويختبر حالة المتغير Shift فيجدها 6، أي أن المستخدم ضغط Ctrl+Alt وعندها يقوم بتنفيذ الأوامر ، والتي هي في مثالنا إظهار رسالة MsgBox تحوي النص التالي "Hello".
أرجو أن أكون قد أفدتك أخي.
وفقك الله
هذه الجملة خاطئة :wacko:
لا لا يا صديقي، لم يكن هذا قصدي، ومع ذلك شكراً لمحاولة المساعدة، إن ما أوده هو أن يقوم البرنامج بضغط تلك الأزرار تلقائياً، بدون ان أضغطها أنا... فعلى سبيل المثال: عندما يصل عداد زمني Timer إلى قيمة معينة، فليضغط على مفاتيح كذا وكذا....
استخدم الأمر SendKeys لضغط الأزرار التي تريدها تلقائيًا .
مثال:
هذا الأمر سيقوم بالضغط على الأزرار Ctrl Shift Esc
يمكنك أيضًا وضع هذا الأمر داخل Timer لضغط الأزرار كل فترة زمنية معينة .
مثال آخر: ضغط الأزرار Ctrl+ALT+1
لمزيد من المعلومات حول الدالة SendKeys ، قم بزيارة الرابط :
تم تعديل هذه المشاركة بواسطة المبرمج أحمد في 24 ديسمبر 2008 في 22:56
سبحان الله وبحمده ... سبحان الله العظيم
شكراً على المساعدة
ولكنني جرت الأكواد ولم تعمل.... مثال على ذلك
هل يمكن أن تجرب لي برنامج وتضعه في ملف مرفق؟
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…