السلام عليكم
أخي الكريم
هناك طريقتان لتنفيذ طلبك:
الأولى: أن تقوم بوضع الرمز & أمام الرقم في خاصية النص للزر
مثال:
وعندما تريد أن تضغط على زر تقوم بالضغط على المفتاح 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
بالتوفيق
اسف اخي على التاخر بالرد لكن كوني اعيش في سوريا فالظروف تمنعني من الدخول الى النت كثيرا لكن هل لي بمثال على هذا ؟؟
فلقد جربت الكود لكن لم يعمل:o
أضف 1 Timer
2- ضع هذا الكود تحت كلمه
كود :
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
:d مشكووووووور اخي العزيز
صعبة شوي لكن ليس على اساتذة منتدانا العزيز