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

نسخة كاملة : مطلوب كود لجعل ازرار لوحة المفاتيح تتحكم بالبرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

اذا ممكن انا محتاج كود لجعل ازرار لوحة المفاتيح بالضغط على ازرار البرنامج

مثلا عند الضغط على زر انتر يقوم بالضغط على زر الحفظ في البرنامج

وشكراا

منشان تربط زر انتر بزر فالفورم يكون من الفورم نفسه في البروبرتي يلي اسمه AcceptButton





وكمان ممكن تربط زر سكاب بزر فالفورم ويكون من الفورم نفسه في البروبرتي يلي اسمه CancelButton
هاذا كود كرر الكود وكل كود وله زر خاص انت تريده 
PHP كود :
Private Sub Form1_KeyDown(sender As ObjectAs KeyEventArgsHandles Me.KeyDown
        If e
.KeyData Keys.Enter Then

        End 
If
 
   End Sub 

في شرط if ضع ماذا تريد عند الضعط على الحرف المحدد

وشكرا
نسيت خبرك انو لو كان عندك مربع نص متعدد الاسطر Multiline ما راح تستفيد من الكتابة فيه وحيصير كانه سطر واحد عند الكتابة فيه، لان الضغط على زر الانتر راح ياخدو الفورم.
(19-12-15, 08:37 PM)hamada558 كتب : [ -> ]
منشان تربط زر انتر بزر فالفورم يكون من الفورم نفسه في البروبرتي يلي اسمه AcceptButton





وكمان ممكن تربط زر سكاب بزر فالفورم ويكون من الفورم نفسه في البروبرتي يلي اسمه CancelButton

ممكن توضح الطريقه اكثر 

اذا ماعليك امر لان هاذا شي جديد علي 

بعد اذن صاحب الموضوع
(19-12-15, 08:45 PM)hassan كتب : [ -> ]
PHP كود :
Private Sub Form1_KeyDown(sender As ObjectAs KeyEventArgsHandles Me.KeyDown
        If e
.KeyData Keys.Enter Then

        End 
If
 
   End Sub 
 يجب تفعيل خاصيه Keypreview للفورم لكي يستجيب للحدث keydown
(19-12-15, 09:01 PM)hamada558 كتب : [ -> ]نسيت خبرك انو لو كان عندك مربع نص متعدد الاسطر Multiline ما راح تستفيد من الكتابة فيه وحيصير كانه سطر واحد عند الكتابة فيه، لان الضغط على زر الانتر راح ياخدو الفورم.
 عندما تستخدم multiline textbox استخدم مفتاحي Ctrl+Enter  في حال وجود  Accept button  Shy
ممتاز يالغالي حسن على معلومة Ctrl+Enter

بالنسبة لربط الزر من خصائص الفورم نفسه متل هاي الصورة
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Enter Then
                      Button1_Click(sender, e)
        End If
    End Sub