كيف أعمل إختصار يشغل زر في البرنامج

السلام عليكــم ورحمـة الله وبركاتــه ،،

توجد ثلاث طرق فيما أعلم للقيام بهذا

1- عمل قائمة وتحديد مفتاح الاختصار ShortcutKeys لها بالمفتاح الذى تريد والكود الخاص بها يكون نفس الكود الخاص بالزر الذى تريد عمل اختصار له

2- عن طريق الـHook :wacko: :wacko:

3- وهى الأسهل أن تقوم بتغيير الخاصية KeyPreview للفورم إلى القيمة True ثم تقوم بالتقاط الحدث KeyDown التابع للفورم والتحقق من قيمة e.KeyCode إذا كانت تحمل قيمة مفتاح الاختصار الذى تريد تقوم بتنفيذ كود الزر

Public Class Form1

	Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
		If e.Control AndAlso e.KeyCode = Keys.A Then
			Button1.PerformClick()
		End If
	End Sub

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Me.KeyPreview = True
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		MsgBox("Button Clicked")
	End Sub
End Class

جعله الله في موازين حسناتك

كنت ابحث عن هذا الامر فقط

Button1.PerformClick()

ولكن ردك سوف يفيدني ويفيد من يبحث بعدي .. شكراً جزيلاً