+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=23461)
مساعدة في تشغيل اختصارات لوحة المفاتيح مع الالة الحاسبه مرفق المثال - nooralcown - 21-01-18
مرفق المثال
مطلوب عمل تشغيل اختصارات لوحة المفاتيح
بمعني بدل ما اضغط على الازرار بالماوس بدي اشتغل من الكيبورد
RE: مساعدة في تشغيل اختصارات لوحة المفاتيح مع الالة الحاسبه مرفق المثال - محمود صالح - 21-01-18
اخي ضع هذا الشرط في حدث key_down ل textbox الاساسي وغير الانتر الى ما تريد
PHP كود :
If e.KeyCode = Keys.Enter Then
End If
RE: مساعدة في تشغيل اختصارات لوحة المفاتيح مع الالة الحاسبه مرفق المثال - nooralcown - 21-01-18
استعملت هذه الطريقة وكانت تخرج رساله خطا لا اعرف سببها
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)
RE: مساعدة في تشغيل اختصارات لوحة المفاتيح مع الالة الحاسبه مرفق المثال - محمود صالح - 21-01-18
اتفضل اخي
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 & 9
RE: مساعدة في تشغيل اختصارات لوحة المفاتيح مع الالة الحاسبه مرفق المثال - atefkhalf2004 - 22-01-18
لم يعمل معي
برجاء احد يتفضل يعدل علي المشروع
شكرا
RE: مساعدة في تشغيل اختصارات لوحة المفاتيح مع الالة الحاسبه مرفق المثال - nooralcown - 22-01-18
مرفق الملف بعدالتعديل توجد 3 ازرار باللون احمر مش عارف اختار الهم اختصارات يا ريت حدا يقترح
RE: مساعدة في تشغيل اختصارات لوحة المفاتيح مع الالة الحاسبه مرفق المثال - محمود صالح - 22-01-18
(22-01-18, 08:47 AM)nooralcown كتب : مرفق الملف بعدالتعديل توجد 3 ازرار باللون احمر مش عارف اختار الهم اختصارات يا ريت حدا يقترح
الزرار الاول بس ليه نظائره في الكيبورد وهو shift+6
اما الثاني والثالث ليس لهم نظائر لانهم دوال حسابية
اختر ما تشاء مثلا f1 , f2 الى تريد
RE: مساعدة في تشغيل اختصارات لوحة المفاتيح مع الالة الحاسبه مرفق المثال - nooralcown - 22-01-18
اشكرك صديقي