منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة في كود تنفيذ امر عند الضغط علي زر من الكيبورد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : مشكلة في كود تنفيذ امر عند الضغط علي زر من الكيبورد (/showthread.php?tid=7581)



مشكلة في كود تنفيذ امر عند الضغط علي زر من الكيبورد - مجاهد2010 - 06-02-13

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

مثال

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

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

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

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

في رعاية الله



مشكلة في كود تنفيذ امر عند الضغط علي زر من الكيبورد - hago - 06-02-13

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

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

تقبل تحياتى



مشكلة في كود تنفيذ امر عند الضغط علي زر من الكيبورد - ALBRNS - 06-02-13

وعليكم السلام ورحمة الله وبركاته

ضع 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 

بالتوفيق


مشكلة في كود تنفيذ امر عند الضغط علي زر من الكيبورد - مجاهد2010 - 06-02-13

شكرآ لك اخي hago جزاك الله خير علي المعلومة

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

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

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


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




مشكلة في كود تنفيذ امر عند الضغط علي زر من الكيبورد - مجاهد2010 - 07-02-13

جزاك الله خير يا طيب وبارك الله فيك تم الحل
وتم تغير قيمة الزر بوضع
f1 مكان vbKeyReturn
ومن هنا يمكننا تغير القيمة
في رعاية الله



مشكلة في كود تنفيذ امر عند الضغط علي زر من الكيبورد - ولد رائع - 09-02-13

ان شاء الله هذا الموضوع يفيدك كثيراً

http://vb4arb.com/vb/showthread.php?3776-%D1%DE%E3-%DF%E1-%D2%D1-%DD%ED-%C7%E1%DF%ED%C8%E6%D1%CA-%E3%DA-%E3%DF%C7%E4-%E6%D6%DA-%C7%E1%DF%E6%CF-%E1%E1%DD%ED%CC%E6%C7%E1-%C8%ED%D3%DF&p=12011#post12011


مشكلة في كود تنفيذ امر عند الضغط علي زر من الكيبورد - سلام - 10-02-13

ياولد رائع
اتمنى الرد على الموضوع عمل منظومة صيدلية


مشكلة في كود تنفيذ امر عند الضغط علي زر من الكيبورد - HASAN6.0 - 22-02-13

اخي الكريم :
الكود الذي كتبته صحيح ,,, ولكن تأكد من عدم وضع اي زر يحمل القيمة Default = True