منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عند الضغط على زر في الكيبورد يضغط زر بوتن في المشوع تلقائيا - نسخة قابلة للطباعة

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

عند الضغط على زر في الكيبورد يضغط زر بوتن في المشوع تلقائيا - Ameer syria - 22-02-13

الاخوة اعضاء المنتدى الافاضل اطلب منكم مثال او كود على طريقة جعل زر بوتن يضيء تلقائيا عند ضغط على زر في الكيبورد يقابل تسميته بمعنى ادق
يعني لدي 10 زر بوتن في الفورم وكل زر له تسمية تقابل زر في الكيبورد مثلا زر كيبورد (1) يوجد مثله زر بوتن (1) وزر (2) يوجد مثله (2)
عندما اضغط على زر 2 يضيء زر بوتن 2 في المشروع وهكذا على كل الازرار Rolleyes صعبة شوي لكن ليس على اساتذة منتدانا العزيز

عند الضغط على زر في الكيبورد يضغط زر بوتن في المشوع تلقائيا - sooriaty03 - 23-02-13

السلام عليكم
أخي الكريم
هناك طريقتان لتنفيذ طلبك:
الأولى: أن تقوم بوضع الرمز & أمام الرقم في خاصية النص للزر
مثال:
كود :
Button1.Text ="&1"
وعندما تريد أن تضغط على زر تقوم بالضغط على المفتاح ALT مع الرقم المطلوب

أما الثانية
فهذا الكود يحقق لك مبتغاك
كود :
Public Class Form1
    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        For Each Button_ As Button In Me.Controls.OfType(Of Button)()
            If e.KeyChar = Button_.Text Then
                'إذا أردت أن تجعل الوميض حول الزر
                Button_.Focus()
                'وإذا أردت تنفيذ حدث الضغط على الزر
                Button_.PerformClick()
                'للخروج من الحدث
                Exit Sub
            End If
        Next
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'لتمكين خاصية الفورم من استقبال
        'جميع الأزرار التي يقوم المستخدم بالضغط عليها
        'وتستطيع تغييرها أيضا من خصائص الفورم
        Me.KeyPreview = True
    End Sub
End Class

بالتوفيق

عند الضغط على زر في الكيبورد يضغط زر بوتن في المشوع تلقائيا - sooriaty03 - 23-02-13

عفوا على التكرار

عند الضغط على زر في الكيبورد يضغط زر بوتن في المشوع تلقائيا - Ameer syria - 02-03-13

اسف اخي على التاخر بالرد لكن كوني اعيش في سوريا فالظروف تمنعني من الدخول الى النت كثيرا لكن هل لي بمثال على هذا ؟؟
فلقد جربت الكود لكن لم يعمل:o

عند الضغط على زر في الكيبورد يضغط زر بوتن في المشوع تلقائيا - RainBow - 02-03-13

أضف 1 Timer
2- ضع هذا الكود تحت كلمه
كود :
Public Class Form1
كود :
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
3- خلى Timer Enabled True
4- اكتب هذا الكود فى Timer
كود :
If GetAsyncKeyState(Keys.A) Then
            'ضع الكود الذى تريضة هنا
        End If
    End Sub


عند الضغط على زر في الكيبورد يضغط زر بوتن في المشوع تلقائيا - sooriaty03 - 02-03-13

تفضل هذا هو المثال

عند الضغط على زر في الكيبورد يضغط زر بوتن في المشوع تلقائيا - Ameer syria - 05-03-13

:d مشكووووووور اخي العزيز