اسعد الله مسائكم ايها النخبة ، احببت ان اطرح لكم شرح بسيط جدا في التحكم بـ [ ازرار الكيبورد ]
عن طريق دوال الـ [ 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