منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] برمجة مفاتيح لوحة الكيبورد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] برمجة مفاتيح لوحة الكيبورد (/showthread.php?tid=34007)



برمجة مفاتيح لوحة الكيبورد - محمد القطيبي - 27-03-20

السلام عليكم كيف أعمل اختصارات بلوحة المفاتيح 
مثل حفظ يكون مثلا ctrl+s
جديد يكون ctrl+n


RE: برمجة مفاتيح لوحة الكيبورد - ابراهيم ايبو - 27-03-20

السلام عليكم ورحمة الله وبركاته
اخي الكريم بالنسبة لانشاء اختصار لحدث ما 
اولا نفعل الخاصية   KeyPreview    الخاصة بالفورم الى True
او بالكود في حدث فورم لود كما هو موضح
ثانيا الحدث الذي نريد انشاء اختصار لتنفيذه وهو هنا كود اظهار رسالة في بوتون1
ثالثا في حدث KeyDown  الخاص بالفورم نكتب الكود الخاص بانشاء الاختصار
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.KeyPreview = True ' تفعيل قيول الاختصارات
   End Sub
'f4 الحدث الذي نريد انشاء اختصار له مع  مفتاح 
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       MsgBox("Welcom to Visual basic To all Arab")
   End Sub
   'f4 استدعاء الحدث عن طريق مفتاح

   Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
       If e.KeyCode = Keys.F4 Then
           Button1_Click(Nothing, Nothing)
       End If
   End Sub



RE: برمجة مفاتيح لوحة الكيبورد - alshandodi - 27-03-20

أو يمكنك استخدام هذا المقال فيه أكواد الكيبورد فقط تضغط على المفتاح في الكيبورد ويسر الكود اتمنى ان يكون ذو فائده
http://vb4arb.com/vb/showthread.php?tid=33626