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


الملفات المرفقة
.rar   cal.rar (الحجم : 84.56 ك ب / التحميلات : 38)
الرد }}}
تم الشكر بواسطة:
#2
اخي ضع هذا الشرط في حدث key_down ل textbox الاساسي وغير الانتر الى ما تريد 
PHP كود :
       If e.KeyCode Keys.Enter Then
          
        End 
If 
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد }}}
تم الشكر بواسطة:
#3
استعملت هذه الطريقة وكانت تخرج رساله خطا لا اعرف سببها

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)
الرد }}}
تم الشكر بواسطة:
#4
اتفضل اخي

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 
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد }}}
تم الشكر بواسطة:
#5
لم يعمل معي
برجاء احد يتفضل يعدل علي المشروع
شكرا
الرد }}}
تم الشكر بواسطة:
#6
مرفق الملف بعدالتعديل توجد 3 ازرار باللون احمر مش عارف اختار الهم اختصارات يا ريت حدا يقترح


الملفات المرفقة
.rar   cal.rar (الحجم : 86.32 ك ب / التحميلات : 41)
الرد }}}
تم الشكر بواسطة:
#7
(22-01-18, 08:47 AM)nooralcown كتب : مرفق الملف بعدالتعديل توجد 3 ازرار باللون احمر مش عارف اختار الهم اختصارات يا ريت حدا يقترح

الزرار الاول بس ليه نظائره في الكيبورد وهو shift+6
اما الثاني والثالث ليس لهم نظائر لانهم دوال حسابية 
اختر ما تشاء مثلا f1 , f2  الى تريد
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد }}}
تم الشكر بواسطة:
#8
اشكرك صديقي
الرد }}}
تم الشكر بواسطة:



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


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