منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
معرفة إذا ما كان زر ال Caps Look يعمل أم لا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : معرفة إذا ما كان زر ال Caps Look يعمل أم لا (/showthread.php?tid=5909)

معرفة إذا ما كان زر ال Caps Look يعمل أم لا - RaggiTech - 17-10-12

كاتب الموضوع : AhmedEssawy

لعلك لاحظت في البرامج الحديثة أنه وأثناء ادخالك لكلمة المرور وفي حالة كون Caps Look=on يقوم باظهار رسالة تحذيرية ، كيفية عمل ذلك بسيطة بالاعتماد على ال API's التي توفرها لنا مكتبة user32 ، نكتب أولاً في قسم التصريحات :

كود :
Option Explicit
Private Declare Function GetKeyState Lib _
"user32" (ByVal nVirtKey As Long) As Integer
وفي الكود :


كود :
Public Function CapsLockOn() As Boolean
Dim iKeyState As Integer
iKeyState = GetKeyState(vbKeyCapital)
CapsLockOn = (iKeyState = 1 Or iKeyState = -127)
End Function
ماذا لو أردنا معرفة اذا كان زر Num Look هو الذي يعمل أم لا ، سنغير الكود ليصبح بالشكل التالي :

كود :
Public Function NumLockOn() As Boolean
Dim iKeyState As Integer
iKeyState = GetKeyState(vbKeyNumlock)
NumLockOn = (iKeyState = 1 Or iKeyState = -127)
End Function