استخدام أختصار لوح المفاتيح على الازرار في Vb.net2005

لو عاوز تنده على اي حاجه استخدم الكود

Button(sender,e) only

يمكنك إضافة علامة & قبل اسم الزر

فمثلا اذا هو اسمه

LogIn

يصبح :

&LogIn

أما إن أردت النداء فيمكنك استعمال :

Button(sender,e)

حيث Button هو اسم الزر

ممكن توضحي اكثر ايش تبغى بالضبط

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

او تبغي يكون لكل زر اختصار معين في لوحة المفاتيح او ماذا

اشرحي الفكره خطوه خطوه وانا مستعد للاجابه وشكراً

السلام عليكم

إذا كنت تقصد استخدام Hot Keys بمعنى انك تريد استخدام اختصارات معينة لتفعيل الزر بغض النظر عن مكان المؤشر في الشاشة فهذ يكون كالتالي

أولا : يجب أن تكون خاصية Key Preview للشاشة بالقيمة True

ثانيا ً : تكتب الكود التالي

 Private Sub Frm_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
		If e.KeyCode = Keys.PageDown AndAlso e.Modifiers = Keys.Control Then
			If Btn_Next.Enabled = True Then Btn_Next_Click(sender, e)
		ElseIf e.KeyCode = Keys.PageUp AndAlso e.Modifiers = Keys.Control Then
			If Btn_Prev.Enabled = True Then Btn_Prev_Click(sender, e)
		ElseIf e.KeyCode = Keys.Home AndAlso e.Modifiers = Keys.Control Then
			If Btn_FRcd.Enabled = True Then Btn_FRecord_Click(sender, e)
		ElseIf e.KeyCode = Keys.End AndAlso e.Modifiers = Keys.Control Then
			If Btn_LRcd.Enabled = True Then Btn_LRecord_Click(sender, e)
		ElseIf e.KeyCode = Keys.F2 Then
			If Btn_New.Enabled = True Then Btn_New_Click(sender, e)
		ElseIf e.KeyCode = Keys.F5 Then
			If Btn_Save.Enabled = True Then Btn_Save_Click(sender, e)
		ElseIf e.KeyCode = Keys.F8 Then
			If Btn_Delete.Enabled = True Then Btn_Delete_Click(sender, e)
		ElseIf e.KeyCode = Keys.F12 Then
			If Btn_Close.Enabled = True Then Btn_Close_Click(sender, e)
		End If
	End Sub

طبعا لاحظ أن هذا الكود انا كنت كتبته في إحدى الشاشات التي أستخدمها فعليك أن تقوم بتغيير ما يلزم