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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=40313)

سؤال في ازرار الكيبورد - حسن الجلب - 24-12-21

السلام عليكم
انا عندي مشكله هي اني لما عاوز عندما الضغط علي زر انتر مثلا يفعل كذا والكود شغال تمام لكن عندما تعزز تتحقق بزر انتر واف١٠ مثلا لا يتم تنفيذ الكود لماذا ؟
وعاوز شرح كيفيه عمل تقارير بالديف اكسبريس ليس فيديو

RE: سؤال في ازرار الكيبورد - حسن الجلب - 25-12-21

السلام عليكم هل يوجد حل

RE: سؤال في ازرار الكيبورد - معاند الحظ - 25-12-21

وعليك السلام ورحمة الله

اخوي استخدم الكود التالي لكي ترسل F10+Enter 
انا جعلت الكود يغلق الفورم عند الضغط على  F10+Enter 

كود :
 Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
        If Keys.F10 And keyData = Keys.Enter Then
            Close()   
        Else
            Return MyBase.ProcessCmdKey(msg, keyData)
        End If
    End Function

لاحظ ان هذا الكود دائما هو صديقك اذا اردت ارسال Key Combination من داخل الحدث Form1_KeyDown او اي حدث KeyDown ولم تنجح

RE: سؤال في ازرار الكيبورد - DR.YASER - 26-12-21

كود :
If e.KeyCode = Keys.Enter Then
MsgBox("enter key pressd ")
End If
كود :
Public Class Form1
   Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
       If e.KeyChar = Convert.ToChar(13) Then
           MsgBox("enter key pressd ")
       End If
   End Sub
End Class



How to Detecting arrow keys in VB.Net
[صورة مرفقة: arrowkeys.png]
In order to capture keystrokes in a VB.Net Forms control, you must derive a new class that is based on the class of the control that you want, and you override the ProcessCmdKey().


كود :
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
    'handle your keys here
End Function