[Microformt]

الاخوة الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل عند الضغط على   مفتاح Ctrl+ Alt + F3  من الوحة المفتايح  يتم إغلاق الفورم ؟؟
نامل من الله  المساعده والله يحفظكم ويرعاكم 
تحياتي

[sendbad100]

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

تفضل

كود :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 114 Then Unload Me
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

[Microformt]

(20-01-17, 07:23 PM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاته

تفضل

كود :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 114 Then Unload Me
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

اخي الكرم
 السلام عليكم 
إجابة غير موفقه 
 ارجوك إقراء السوال كامل ثم الاجابة عليه إذا سمحت ؟؟
 تحياتي

[sendbad100]

(20-01-17, 07:43 PM)Microformt كتب :

(20-01-17, 07:23 PM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاته

تفضل

كود :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 114 Then Unload Me
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

اخي الكرم
 السلام عليكم 
إجابة غير موفقه 
 ارجوك إقراء السوال كامل ثم الاجابة عليه إذا سمحت ؟؟
 تحياتي

الاجابة كاملة وصحيحة ومجربة حسب طلبك

[Microformt]

(20-01-17, 08:01 PM)sendbad100 كتب :

(20-01-17, 07:43 PM)Microformt كتب :

(20-01-17, 07:23 PM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاته

تفضل

كود :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 114 Then Unload Me
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

اخي الكرم
 السلام عليكم 
إجابة غير موفقه 
 ارجوك إقراء السوال كامل ثم الاجابة عليه إذا سمحت ؟؟
 تحياتي

الاجابة كاملة وصحيحة ومجربة حسب طلبك

 اخي العزيز
 إجابة غير موفقه ؟؟

الامر  الكود الذي ارسلت  عند اضغط على F3 يتم أغلاق الفورم
 المطلوب الذي اريد ه
يتم إغلاق الفورم بشرط  ضغط المستخدم على   مفتاح Ctrl+ Alt + F3  من الوحة المفتايح ؟
 ملاحظه هامه
 الكود الذي ارسلت ممكن اضغط على مفتاح f3  ثم الخروج من الفورم بدون الضط على باقي مفاتيح الشرط 
 تحياتي

[sendbad100]

(20-01-17, 08:24 PM)Microformt كتب :

(20-01-17, 08:01 PM)sendbad100 كتب :

(20-01-17, 07:43 PM)Microformt كتب :

(20-01-17, 07:23 PM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاته

تفضل

كود :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 114 Then Unload Me
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

اخي الكرم
 السلام عليكم 
إجابة غير موفقه 
 ارجوك إقراء السوال كامل ثم الاجابة عليه إذا سمحت ؟؟
 تحياتي

الاجابة كاملة وصحيحة ومجربة حسب طلبك

 اخي العزيز
 إجابة غير موفقه ؟؟

الامر  الكود الذي ارسلت  عند اضغط على F3 يتم أغلاق الفورم
 المطلوب الذي اريد ه
يتم إغلاق الفورم بشرط  ضغط المستخدم على   مفتاح Ctrl+ Alt + F3  من الوحة المفتايح ؟
 ملاحظه هامه
 الكود الذي ارسلت ممكن اضغط على مفتاح f3  ثم الخروج من الفورم بدون الضط على باقي مفاتيح الشرط 
 تحياتي

لم الحظ الملاحظة المذكورة 

(20-01-17, 09:40 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله
هذا مثال بسيط
اتمنى الاستفادة منه

شكرا اخي امير   

[Microformt]

(20-01-17, 09:40 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله
هذا مثال بسيط
اتمنى الاستفادة منه

اخي العزيز 
 السلام عليكم  
 إجابة غير موفقه
ماذا فهمت من السوال انت ؟؟
 تحياتي

---

(20-01-17, 10:18 PM)sendbad100 كتب :

(20-01-17, 08:24 PM)Microformt كتب :

(20-01-17, 08:01 PM)sendbad100 كتب :

(20-01-17, 07:43 PM)Microformt كتب :

(20-01-17, 07:23 PM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاته

تفضل

كود :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 114 Then Unload Me
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

اخي الكرم
 السلام عليكم 
إجابة غير موفقه 
 ارجوك إقراء السوال كامل ثم الاجابة عليه إذا سمحت ؟؟
 تحياتي

الاجابة كاملة وصحيحة ومجربة حسب طلبك

 اخي العزيز
 إجابة غير موفقه ؟؟

الامر  الكود الذي ارسلت  عند اضغط على F3 يتم أغلاق الفورم
 المطلوب الذي اريد ه
يتم إغلاق الفورم بشرط  ضغط المستخدم على   مفتاح Ctrl+ Alt + F3  من الوحة المفتايح ؟
 ملاحظه هامه
 الكود الذي ارسلت ممكن اضغط على مفتاح f3  ثم الخروج من الفورم بدون الضط على باقي مفاتيح الشرط 
 تحياتي

لم الحظ الملاحظة المذكورة 

(20-01-17, 09:40 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله
هذا مثال بسيط
اتمنى الاستفادة منه

شكرا اخي امير   

اخي العزيز 
 السلام عليكم  
 إجابة غير موفقه     
ماذا فهمت من السوال انت ؟؟
 تحياتي

[Microformt]

(21-01-17, 12:16 AM)Amir_alzubidy كتب : بعدك مثل ما انت يا سالم ما تغيرت
حبيبنا انت صاحب السؤال واعتقد انت مش فاهم السؤال مثلي الظاهر

صباح الخير

اخي العزيز
 السوال  بشكل مبسط 
 اريد عن الضغط على مفتاح Ctrl+Alt+F3 معاً يتم إغلاق الفورم؟؟
 هل  فهمت السوال يا(Amir_alzubidy)؟؟
 تحياتي

[AL_BRNS]

السلام عليكم

جرب التالي

PHP كود :

Dim CtrlKey
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF4 Then
KeyCode = 0
End If
CtrlKey = Shift
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If CtrlKey = (vbCtrlMask + vbAltMask) And KeyCode = vbKeyF3 Then
End
End If
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub 


بالتوفيق .

[sendbad100]

كود :

  Dim B1, B2, B3 As Boolean


Private Sub Form_Load()
Me.KeyPreview = True
End Sub 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
       On Error Resume Next

       Select Case KeyCode
       
           Case 17
               B1 = True
               
           Case 18
               B2 = True
               
           Case 114
               B3 = True
       End Select
       
       
If B1 And B2 And B3 Then
Unload Me

End If

End Sub