[Emam emam]

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

كل عام وانتم بخير

تقبل الله منا ومنكم صالح الاعمال

سؤالي هو اني اريد عندما اضغط علي مفتاح CRTL+S  يقوم بعمل شئ معين وليكن اظهار رساله مثلا

فكيف دلك 

وجزاكم الله خيرا

[ابراهيم ايبو]

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

تفضل أخي هذا مثال لما تريد يمكنك اضافة ماتشاء من اختصارات في الكود

[Emam emam]

(09-06-19, 06:39 AM)ابراهيم ايبو كتب :

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

تفضل أخي هذا مثال لما تريد يمكنك اضافة ماتشاء من اختصارات في الكود

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

[Emam emam]

(09-06-19, 06:39 AM)ابراهيم ايبو كتب :

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

تفضل أخي هذا مثال لما تريد يمكنك اضافة ماتشاء من اختصارات في الكود

أخي ابراهيم لقد طبقت ما هو موجود بالمثال اللي حضرتك ارفقته ولكن لايفعل شئ ريما يوجد هناك خطأ عندي
لقد ارفقت جزء من المشروع 
أرجو من حضرتك الاطلاع عليه لعلك تجد الخطأ إن شاء الله 
وجزاكم الله خيرا

  WindowsApplication1.rar (الحجم : 112.09 ك ب / التحميلات : 13)

[sary]

(09-06-19, 04:57 AM)Emam emam كتب :

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

كل عام وانتم بخير

تقبل الله منا ومنكم صالح الاعمال

سؤالي هو اني اريد عندما اضغط علي مفتاح CRTL+S  يقوم بعمل شئ معين وليكن اظهار رساله مثلا

فكيف دلك 

وجزاكم الله خيرا

إذهب الى خصائص الفورم

وتأكد من الخاصية KeyPreview أنها True

ثم استخدم هذا الكود لعمل شيء عند الضغط على Ctrl+S

PHP كود :

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
    If e.Control And e.KeyCode = Keys.S Then
        MsgBox("Ctrl+S")
    End If
End Sub 


[Emam emam]

(10-06-19, 03:28 AM)sary كتب :

(09-06-19, 04:57 AM)Emam emam كتب :

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

كل عام وانتم بخير

تقبل الله منا ومنكم صالح الاعمال

سؤالي هو اني اريد عندما اضغط علي مفتاح CRTL+S  يقوم بعمل شئ معين وليكن اظهار رساله مثلا

فكيف دلك 

وجزاكم الله خيرا

إذهب الى خصائص الفورم

وتأكد من الخاصية KeyPreview أنها True

ثم استخدم هذا الكود لعمل شيء عند الضغط على Ctrl+S

PHP كود :

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
    If e.Control And e.KeyCode = Keys.S Then
        MsgBox("Ctrl+S")
    End If
End Sub 


جزالك الله خيرا اخي ابراهيم
مشكور علي تعبك ومجهودك
وايضا اشكرك اخي Sary  شكرا كثيرا
الحمد لله اشتغلت كويس بفضل الله ثم مجهودكم معي
بارك الله فيك