21-07-13, 04:47 PM
21-07-13, 06:45 PM
نحمده ونصلي على رسوله الكريم
من خصائص النموذج اجعل الخاصية: KeyPreview تساوي true، ثم اختر الحدث: KeyDown ثم:
من خصائص النموذج اجعل الخاصية: KeyPreview تساوي true، ثم اختر الحدث: KeyDown ثم:
كود :
[align=left]if (e.Control && e.KeyCode == Keys.S) ;
[/align]
21-07-13, 06:51 PM
DreamsDotNet كتب :نحمده ونصلي على رسوله الكريم
من خصائص النموذج اجعل الخاصية: KeyPreview تساوي true، ثم اختر الحدث: KeyDown ثم:كود :
[align=left]if (e.Control && e.KeyCode == Keys.S) ;
[/align]
ياريت توضيح اخى الكريم
21-07-13, 07:06 PM
[COLOR="#008000"]السلام عليكم ورحمة الله وبركاته
كما قال الاخ ربيع لكن مثاله كان سي شارب تفضل مثال فيجول بيسك[/COLOR]
كما قال الاخ ربيع لكن مثاله كان سي شارب تفضل مثال فيجول بيسك[/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
22-07-13, 03:57 PM
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
22-07-13, 04:15 PM
[COLOR="#800000"]تفضل عملت لك مثال بسيط لحفظ نص بضغط ctrl+s
[/COLOR]
[/COLOR]
22-07-13, 04:44 PM
شكرا اخى الكريم
22-07-13, 07:32 PM
انا استخدمت الكزد هكذا ولكن بلا جدوى
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
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
22-07-13, 07:42 PM
السبب واضح تأكد ان الخاصية KeyPreview للفورم تساوي true لان اذا كانت false والتركيز كان على احد الادوات لن يتم اقتناص الحدث KeyDown
22-07-13, 08:47 PM
تمام شكرا اخى الكريم