الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال حول لوحه المفاتيح؟

مغلق
بدأه half angel في 7 أغسطس 2004 · 2 رد · 405 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

لدى سؤال حول كيفيه معرفه حاله ازرار لوحه المفاتيح هل الزر مضغوط الان ام الى فوق

لا اقصد حدث keypress المقصود بفرض انى اريد معرفه حاله الزر a هل هو الى فوق ام مضغوط عليه الان ..

المقصود من ذالك لدى برنامج اريد ان اجعله يقراء كل النصوص التى تكتب على جميع

النوافذ الاخرى التى لا علاقه لها ببرنامجى كملفات التكست و البحث للمواقع

ثم ينقل ما يكتب الى متغير ببرنامجى .

مثلا:

اذا كتبت فى نافذه بحث باحد المواقع كلمه ولنفرض sex فكيف يمكن لبرنامج ان يتعرف على ما يتم كتابته حاليا ارجو ان يكون السؤال مفهوم .

علما بانى قد بحثت عن بعض الدوال api التى تقوم بمعرفه حاله المفاتيح و لكنها لا تقوم بالغرض فارجو الرد سريعا.................

#2

السلام عليكم

يمكنك استخدام الدلة GetKeyState لمعرفة حالة الزر 

'Declaration
Dim M as Integer
Dim L as long
Private Decgare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

'Timer : With interval = 1

M = Asc ("A") ' الزر المراد معرفة حالته
L = GetKeyState (clng(M))

واذا كانت قيمة المتغير L اقل من صفر فالزر في حالة ضغط 

شكرا لكم ، يرجى تجربة الكود لاني كتبته وانا علي النت

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#3

اشكرك يا اخى الحبيب prof_1982

اولا : لردك السربع

ثانيا: لان الكود يعمل برغم انى قد جربت هذه الداله ولكن..............

هذا الموضوع مغلق.

مواضيع مشابهة