vb.net ِشرح دالة GetAsyncKeyState لتسجيل ضربات الكيبورد

[SEMO.Pa3x]

اسعد الله مسائكم ايها النخبة ، احببت ان اطرح لكم شرح بسيط جدا في التحكم بـ [ ازرار الكيبورد ]

عن طريق دوال الـ [ API ] سيكون الشرح على دالة [ GetKeyPress ] ضمن مكتبة [ user32.dll ] 

[ GetKeyPress ] للمزيد من المعلومات عنها [ هنا ] ، الان نقوم بكتابة الدالة

اسفل الـ [ Public Class Form1 ]

 

 

Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer

 

 

لاحظو الدالة تحتوي على براميتر واحد [ Key ] من نوع [ Integer ]

الان ركزو معي نقوم باضافة [ Timer ] ثم نغير خاصيته الى [ True ]

 

 

ثم نكتب بداخله ، الاوامر التالية ..

 

If GetKeyPress(Keys.A) Then
    MsgBox("I have used the button { A } ")
End If
If GetKeyPress(Keys.B) Then
    MsgBox("I have used the button { B } ")
End If

 

ماذا فعلنا ؟ لاحظو معي ..

 

If GetKeyPress(Keys.A) Then

 

كتبنا جملة شرطية على الدالة [ GetKeyPress ] ثم مررنا للبراميتر [ Key ] مفتاح [ A ]

اختر اي زر يعجبك [ A , B , C , Alt , Shit , F7 , Enter ... ]

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

تم الضغط على الزر [ A ] ماذا سيحصل ؟ هذا السؤال يعود لك

انت ستحدد الامر الذي تريده ، وعلى سبيل المثال

 

 

If GetKeyPress(Keys.A) Then
    MsgBox("I have used the button { A } ")
End If

 

اذا تم الضغط على الزر المعين [ A ] سيظهر [ MessageBox ] يخبرك انك استخدمت [ A ]

سانتضر تجاربكم وابداعاتكم على استخدام هذه الدالة

تم بحمد الله ، SEMO.Pa3x

تم تعديل أبريل 8, 2019 بواسطه SEMO.Pa3x