طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ (/showthread.php?tid=9716) |
طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ - الباشا شكر - 21-07-13 السلام عليكم رحمة الله وبركاته اريد طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ فى الفيجوال 2010 طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ - ربيع - 21-07-13 نحمده ونصلي على رسوله الكريم من خصائص النموذج اجعل الخاصية: KeyPreview تساوي true، ثم اختر الحدث: KeyDown ثم: كود : [align=left]if (e.Control && e.KeyCode == Keys.S) ; طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ - الباشا شكر - 21-07-13 DreamsDotNet كتب :نحمده ونصلي على رسوله الكريم ياريت توضيح اخى الكريم طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ - 3booody - 21-07-13 [COLOR="#008000"]السلام عليكم ورحمة الله وبركاته كما قال الاخ ربيع لكن مثاله كان سي شارب تفضل مثال فيجول بيسك[/COLOR] كود : Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ - الباشا شكر - 22-07-13 3booody كتب :[COLOR="#008000"]السلام عليكم ورحمة الله وبركاته ياريت مثال بسيط لانى جربت الكثير ومن ضمن ماجربت اضا الكود الاتى Private Sub IntRMA_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp If e.Control = True And e.KeyCode = Keys.C Then modcustomer.Show() ElseIf e.Control = True And e.KeyCode = Keys.T Then Me.Button6.PerformClick() ElseIf e.Control = True And e.KeyCode = Keys.I Then Me.Button5.PerformClick() ElseIf e.Control = True And e.KeyCode = Keys.S Then Me.Button1.PerformClick() ElseIf e.Control = True And e.KeyCode = Keys.P Then Me.Button9.PerformClick() ElseIf e.Control = True And e.KeyCode = Keys.X Then Me.Close() ElseIf e.KeyCode = Keys.Escape Then Me.Close() End If End Sub طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ - 3booody - 22-07-13 [COLOR="#800000"]تفضل عملت لك مثال بسيط لحفظ نص بضغط ctrl+s [/COLOR] طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ - الباشا شكر - 22-07-13 شكرا اخى الكريم طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ - الباشا شكر - 22-07-13 انا استخدمت الكزد هكذا ولكن بلا جدوى Private Sub form7_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Keys.N Then Me.NewBtn.PerformClick() End If End Sub طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ - 3booody - 22-07-13 السبب واضح تأكد ان الخاصية KeyPreview للفورم تساوي true لان اذا كانت false والتركيز كان على احد الادوات لن يتم اقتناص الحدث KeyDown طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ - الباشا شكر - 22-07-13 تمام شكرا اخى الكريم |