تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في كود تنفيذ امر عند الضغط علي زر من الكيبورد
#1
السلام عليكم ورحمة الله وبركاته
اخواني اريد كود عند الضغط علي زر ينفذ كود في البرنامج

مثال

[HTML]If KeyAscii = 13 Then
MsgBox ("لا اله الا الله")
End If
End Sub[/HTML]

هذا الكود بيتم وضعه في حدث
KeyPress للفورم وعند الضغط علي انتر تظهر الرسالة او يقوم بتنفيذ الكود المطلوب

بس لو البرنامج نازل في شريط المهام وضغط انتر لا ينفذه يعني لازم يكون البرنامج موجود قدامي علي الشاشه

ما هو الحدث الذي يجب ان اضع به الكود ليتم التفيذ حتي وان كان البرنامج نازل في شريط المهام امني يكون طلبي واضح

في رعاية الله
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله تعالى وبركاته
اخى على حد علمى لايمكن ذلك ولو نظرت الى الكود جيداً سوف تفهم ذلك :

PHP كود :
Private Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii 13 ThenMsgBox ("لا إاله إلا الله")End IfEnd Sub 
يتم تنفيذ الكود بناء على حدث Enter وشرط تنفيذ الكود بقاء النموزج على والجهة اى لازم يتعرض قدامك
اما فكرة تنفيذ الكود فى شريط المهمام اعتقد المسالة صعبة لان لكل نموزج او شاشة خاص ببرنامج لها Ascii خاص بها , مثلاً تطبيقات الوندوز, جرب اعمل Run للبرنامج ونزل الشاشة لتحت Minimize وشوف بنفسك او جربها على اى برنامج اخر , والله اعلم

تقبل تحياتى
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
الرد }}}}
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله وبركاته

ضع Timer على الفورم

وجرب الكود التالي


PHP كود :
Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
Private Sub Form_Load()
Timer1.Interval 1
End Sub
Private Sub Timer1_Timer()
If 
Getasynckeystate(vbKeyReturnThen
MsgBox 
"لا اله الا الله"
End If
End Sub 

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#4
شكرآ لك اخي hago جزاك الله خير علي المعلومة

اخي
ALBRNS بارك الله فيك ما شاء الله عليك الكود يعمل جيدآ

لكن لدي استفسار بسيط اين يتم تغير الكود الخاص بزر
الانتر

يعني الكود الذي وضعته انا في اعلي الموضوع يتم تغير الكود الخاص بالزر من هذه القيمة
KeyAscii = 13


كيف يمكنني تغير الزر من الكود الذي وضعته انت يعني لو افترضنا اريد عند الضغط علي
f5 او مسطرة

الرد }}}}
تم الشكر بواسطة:
#5
جزاك الله خير يا طيب وبارك الله فيك تم الحل
وتم تغير قيمة الزر بوضع
f1 مكان vbKeyReturn
ومن هنا يمكننا تغير القيمة
في رعاية الله
الرد }}}}
تم الشكر بواسطة:
#6
ان شاء الله هذا الموضوع يفيدك كثيراً

http://vb4arb.com/vb/showthread.php?3776...#post12011
الرد }}}}
تم الشكر بواسطة:
#7
ياولد رائع
اتمنى الرد على الموضوع عمل منظومة صيدلية
الرد }}}}
تم الشكر بواسطة:
#8
اخي الكريم :
الكود الذي كتبته صحيح ,,, ولكن تأكد من عدم وضع اي زر يحمل القيمة Default = True
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad مشكلة في msgbox ارجوا الدخول استايل 4 174 23-07-16, 04:45 AM
آخر رد: استايل
  مشكلة اللغة العربية مع برامج فجوال بيسك Dano Pro 14 4,422 10-07-16, 07:53 PM
آخر رد: علموني Vb6
  تعديل كود تسجيل نقرات الكيبورد عبدالله الصافي 6 725 18-06-16, 12:44 PM
آخر رد: abulayth
  (تم الحل)مشكلة في الاستعلام بين تاريخين awidan76 13 1,043 06-01-16, 11:07 AM
آخر رد: Ashraf Elafify
  مشكلة في جلب قيمة checkbox pho24u 4 679 06-01-16, 12:16 AM
آخر رد: awidan76
  [vb6.0] عندى مشكلة فى كتابة اللغة العربية فى inputbox Acc.MohamedSamir 3 608 14-12-15, 01:42 PM
آخر رد: Ashraf Elafify
  [vb6.0] مشكلة مع اداة ocx chaabane 3 252 08-12-15, 05:24 PM
آخر رد: chaabane
  [vb6.0] مشكلة مع اداة ocx chaabane 1 189 08-12-15, 03:32 PM
آخر رد: Rahf Azezi
  [vb6.0] كيفية تنفيذ كود مكتوب داخل اداة textbox ghost_programmer 6 1,182 03-06-15, 05:48 PM
آخر رد: ghost_programmer
  [vb6.0] مشكلة عاجلة جدا للمبدعين...في كريستال ريبورت 10 و vb6 محمد2015 5 1,215 15-05-15, 04:14 AM
آخر رد: ahmedabdelaliem

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


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