تقييم الموضوع :
  • 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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تعديل بعد تشابه حقل البحث محمد حمد محمد سليمان 1 1,203 24-01-22, 04:45 AM
آخر رد: Taha Okla
Thumbs Up مشكلة في برنامج مبرمج بلغة الفيجول بيسك palart 2 1,897 04-05-21, 05:59 PM
آخر رد: palart
  عندي مشكلة في برمجمة مشروع فيجول بيسك ياريت تساعدوني tareqhabib15 3 1,667 28-11-20, 10:11 PM
آخر رد: tareqhabib15
  مشكلة maskedbox ماجد 2 1,639 07-08-20, 10:14 AM
آخر رد: ماجد
  [سؤال] مشكلة في عرض رقم الصنف بعد البحث عنه الى الجريد-مرفق صورة توضيحية awidan76 47 11,081 30-10-19, 08:57 AM
آخر رد: Ahmed_Mansoor
  مشكلة محتاجة حل fathyfarag122 3 2,559 08-11-18, 03:45 PM
آخر رد: حريف برمجة
  [vb6.0] مشكلة في تشغيل exe لبرنامج تم إنشاءه بالفيجوال 6 محب الإسلام 2 2,397 06-10-18, 06:08 PM
آخر رد: dasktop
  مشكلة في الاتصال VB.NET 5 2,806 28-04-18, 01:55 AM
آخر رد: Amir_Alzubidy
  (تم الحل)مشكلة في الاستعلام بين تاريخين awidan76 14 7,860 13-01-18, 01:06 PM
آخر رد: awidan76
  مشكلة بسيطة في مخرجات الاكسل ahmed.m 3 2,622 13-11-17, 11:02 PM
آخر رد: تركي الحلواني

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


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