منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طريقة عمل اختصار للازرار مثلا 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) ;
[/align]


طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ - الباشا شكر - 21-07-13

DreamsDotNet كتب :نحمده ونصلي على رسوله الكريم

من خصائص النموذج اجعل الخاصية: KeyPreview تساوي true، ثم اختر الحدث: KeyDown ثم:
كود :
[align=left]if (e.Control && e.KeyCode == Keys.S) ;
[/align]

ياريت توضيح اخى الكريم

طريقة عمل اختصار للازرار مثلا 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
        If e.Control = True And e.KeyCode = Keys.S Then
            Call Save() 'استدعاء طريقة الحفظ
        End If
    End Sub


طريقة عمل اختصار للازرار مثلا ctrl+s للضغط عل زر حفظ - الباشا شكر - 22-07-13

3booody كتب :[COLOR="#008000"]السلام عليكم ورحمة الله وبركاته
كما قال الاخ ربيع لكن مثاله كان سي شارب تفضل مثال فيجول بيسك[/COLOR]
كود :
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.Control = True And e.KeyCode = Keys.S Then
            Call Save() 'استدعاء طريقة الحفظ
        End If
    End Sub

ياريت مثال بسيط لانى جربت الكثير ومن ضمن ماجربت اضا الكود الاتى
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

تمام شكرا اخى الكريم