تقييم الموضوع :
  • 1 أصوات - بمعدل 1
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ايقاف عمل الكيبورد نهائيا
#1
محتاج كود لايقاف عمل الكيبورد نهائيا اثناء تشغيل البرنامج يعني اي شي يضغطه يكون ما في استجابة
لو كان للضمير العربي (واتس اب)Huh
لكان اخر ظهور له منذ زماان بعيدConfused
الرد }}}
تم الشكر بواسطة:
#2
كود :
Option Explicit
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Sub Command1_Click()
fBlock (True)
End Sub
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}
تم الشكر بواسطة:
#3
اول شي ممكن التوضيح اكثر و يفضل كمان ضع معه كود ابطال عمل الكود و شكرا
لو كان للضمير العربي (واتس اب)Huh
لكان اخر ظهور له منذ زماان بعيدConfused
الرد }}}
تم الشكر بواسطة:
#4
وين الردود حتي الرد الوحيد و مو فاهم شي Confused
لو كان للضمير العربي (واتس اب)Huh
لكان اخر ظهور له منذ زماان بعيدConfused
الرد }}}
تم الشكر بواسطة:
#5
تفضل ياأخي
اتمنا الإستفادة للجميع

منقول


الملفات المرفقة
.rar   تعطيل كامل للوحة المفاتيح.rar (الحجم : 2.52 ك ب / التحميلات : 80)
[صورة مرفقة: images?q=tbn:ANd9GcT72OLJW7D1E5QW-HUeWeJ...TGoNeg2jnQ]
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم