+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التحكم في البرنامج بالازرار (/showthread.php?tid=9358)
الصفحات:
1
2
التحكم في البرنامج بالازرار - Hassan Khamees - 20-06-13
السلام عليكم ورحمة الله وبركاتة ,,
اخواني الاعذاء كيفكم ان شاء الله بخييييير ,,
كنت بعمل علي مشروع بدي يكون فية التحكم في البرنامج بالازرار
البرنامج يقوم بتنفيذ طلب من المستخدم عند الضغط علي بدأ
ويقوم البرنامج بتصغير نفسة الي اسفل وهلا بد المستخدم إيقاف عمل البرنامج يقوم بالضغط علي زر مثلا F12
انا قمت بوضع هذا الكود
كود :
If e.KeyValue = 123 Then Call Stopwولاكن لا يعمل إلا اذا كانت النافذة نشطة
وقمت بمحاولة آخري بعمل الكود في Timer
سميتة KeyCatch
ووضعت له نفس الكود ولاكن لم يعمل ايضاً
ارجووا مساعدتي ,,شكراً لكم
التحكم في البرنامج بالازرار - Hassan Khamees - 21-06-13
هل من مساعدة ؟؟؟؟؟؟؟؟؟
التحكم في البرنامج بالازرار - زكريا النابهي - 21-06-13
KeyDown في حدث النافذة التي تريد التحكم بها عن طريق الأزرار اختر الحدث
True للفورم الى KeyPriview واكتب هذا الكود وقم بتفعيل خاصية ال
Select Case e.KeyCode
Case Keys.F1
F1 قم بكتابة اي شئ تريد عملة عند الضغط على زر
Case Keys.Enter
ستظهر قائمة مليئة بالأزرار اختر الزر الذي تريد Keys. كما يمكنك اختيار اي زر من لوحة المفاتيح بعد كلمة
End Select
التحكم في البرنامج بالازرار - Aly El-Haddad - 21-06-13
السلام عليكم،
ضع
كود :
<DllImport("user32.dll")> _
Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
End Functionو للتحقق من الزر المضغوط:
كود :
If GetAsyncKeyState(Keys.F12) Then MsgBox("F12 Pressed!")التحكم في البرنامج بالازرار - Hassan Khamees - 21-06-13
اخي زكريا ,آخي Aly لم يعمل اي كود منهم
سأقوم بالتوضيح اكثر ,,
الان البرنامج يعمل بالاسفل واريد ايقاف عملة عند الضغط علي زر F12 يتوقف البرنامج عن العمل
فالهاذا اريد وضع كود الضغط علي زر F12 في التايمر
مثل هذا الكود الذي يعمل علي vb6
اسم التايمر هنا KeyCatch
كود :
Private Sub KeyCatch_Timer()
If GetAsyncKeyState(vbKeyF12) < 0 Then
Prev = "12"
Else
If Prev = "12" Then
Call SStop
Prev = ""
End If
End If
End Subوشكراً لكم وجعله الله في ميزان حسناتكم ,,
التحكم في البرنامج بالازرار - Aly El-Haddad - 21-06-13
حسناً، ضع الكود داخل Timer لأن الكود الذي أعطيته يتحقق من حالة الزر في اللحظة التي تم أستدعاء الكود فيها
التحكم في البرنامج بالازرار - Hassan Khamees - 21-06-13
صورة توضح خطأ الكود ...
التحكم في البرنامج بالازرار - زكريا النابهي - 21-06-13
الان سأعمل لك مثال مرفق انتظر ....
التحكم في البرنامج بالازرار - زكريا النابهي - 21-06-13
الان سأعمل لك مثال مرفق انتظر ....
جرب هذا المثال
http://vb4arb.com/vb/uploaded/2699_01371821165.rar
التحكم في البرنامج بالازرار - Aly El-Haddad - 21-06-13
كود :
Imports System.Runtime.InteropServices
Public Class Form1
<DllImport("user32.dll")> _
Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(Keys.F12) Then MsgBox("F12 Pressed!")
End Sub
End Class