منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مساعدة في تشغيل اختصارات لوحة المفاتيح مع الالة الحاسبه مرفق المثال
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
مرفق المثال  
مطلوب عمل تشغيل اختصارات لوحة المفاتيح 
بمعني بدل ما اضغط على الازرار بالماوس بدي اشتغل من الكيبورد
اخي ضع هذا الشرط في حدث key_down ل textbox الاساسي وغير الانتر الى ما تريد 
PHP كود :
       If e.KeyCode Keys.Enter Then
          
        End 
If 
استعملت هذه الطريقة وكانت تخرج رساله خطا لا اعرف سببها

If e.KeyCode = 97 Then cmd1_Click(Nothing, Nothing)
If e.KeyCode = 98 Then cmd2_Click(Nothing, Nothing)
If e.KeyCode = 99 Then cmd3_Click(Nothing, Nothing)
If e.KeyCode = 100 Then cmd4_Click(Nothing, Nothing)
If e.KeyCode = 101 Then cmd5_Click(Nothing, Nothing)
If e.KeyCode = 102 Then cmd6_Click(Nothing, Nothing)
If e.KeyCode = 103 Then cmd7_Click(Nothing, Nothing)
If e.KeyCode = 104 Then cmd8_Click(Nothing, Nothing)
If e.KeyCode = 105 Then cmd9_Click(Nothing, Nothing)
اتفضل اخي

PHP كود :
If e.KeyCode Keys.NumPad0 Then txtInput.Text txtInput.Text 0
        If e
.KeyCode Keys.NumPad1 Then txtInput.Text txtInput.Text 1
        If e
.KeyCode Keys.NumPad2 Then txtInput.Text txtInput.Text 2
        If e
.KeyCode Keys.NumPad3 Then txtInput.Text txtInput.Text 3
        If e
.KeyCode Keys.NumPad4 Then txtInput.Text txtInput.Text 4
        If e
.KeyCode Keys.NumPad5 Then txtInput.Text txtInput.Text 5
        If e
.KeyCode Keys.NumPad6 Then txtInput.Text txtInput.Text 6
        If e
.KeyCode Keys.NumPad7 Then txtInput.Text txtInput.Text 7
        If e
.KeyCode Keys.NumPad8 Then txtInput.Text txtInput.Text 8
        If e
.KeyCode Keys.NumPad9 Then txtInput.Text txtInput.Text 
لم يعمل معي
برجاء احد يتفضل يعدل علي المشروع
شكرا
مرفق الملف بعدالتعديل توجد 3 ازرار باللون احمر مش عارف اختار الهم اختصارات يا ريت حدا يقترح
(22-01-18, 08:47 AM)nooralcown كتب : [ -> ]مرفق الملف بعدالتعديل توجد 3 ازرار باللون احمر مش عارف اختار الهم اختصارات يا ريت حدا يقترح

الزرار الاول بس ليه نظائره في الكيبورد وهو shift+6
اما الثاني والثالث ليس لهم نظائر لانهم دوال حسابية 
اختر ما تشاء مثلا f1 , f2  الى تريد
اشكرك صديقي