اريد عند الضغط على F12 او اي F يعني مثلا F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,F11
يفتح نموذج معين
هل من مستجاب
كيفية عمل ذلك عند الضغط على زر F12 او اي F يفتح نموذج معين
مغلق
السلام عليكم ورحمة الله وبركاته
استخدم الكود التالي
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 123 Then
MsgBox ("ضغطت على زر F12")
End If
End Subوبدلا من إظهار رسالة اكتب امر إظهار النموذج وهو
form1.show
مع العلم بأن أرقام مفاتيح F1 إلى F12 هي بالترتيب هكذا
من 112 إلى 123
والله الموفق
وعليكم السلام ورحمة الله وبركاته :
أخي العزيز / المتميز
هل من مثال صغير على ذلك فأنا بحاجة إلى هذه المعلومة ومازلت مبتدئة في لغة الفيجوال بيسك
تم تعديل هذه المشاركة بواسطة إكرام في 21 يونيو 2006 في 07:01
محبـــة الرســـول
السلام عليكم
لتنفيذ أمر معين عند ضغط أحد مفاتيح لوحة المفاتيح
أولا يجب تغيير الخاصية KeyPreview للفورم إلى true
وبعد ذلك يمكن كتابية الكود المرغوب فيه في حدث Keydown
مثال بسيط
أنشىء مشروع جديد به 2 فورم form1 وform2
غير الخاصية KeyPreview إلى true
انسخ الكود التالي إلى النافذة الأولى form1
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
Form2.Show
End If
End Sub
قم بتشغيل البرنامج ستظهر form1
وإذا قمت بضغط f1 ستظهر لك form2
ym2ponline كتب:السلام عليكملتنفيذ أمر معين عند ضغط أحد مفاتيح لوحة المفاتيح
أولا يجب تغيير الخاصية KeyPreview للفورم إلى true
وبعد ذلك يمكن كتابية الكود المرغوب فيه في حدث Keydown
مثال بسيط
أنشىء مشروع جديد به 2 فورم form1 وform2
غير الخاصية KeyPreview إلى true
انسخ الكود التالي إلى النافذة الأولى form1
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
Form2.Show
End If
End Sub
قم بتشغيل البرنامج ستظهر form1
وإذا قمت بضغط f1 ستظهر لك form2
مرحبا اعزائي
هذا مثال مرفق بالمطلوب ارجو الفائده
اشكركم جميعا يا أحبائي
لساني يعجز عن الشكر لكل من شارك في هذه المشاركة
Mohamed Ali Salim
0.1..0...4....7.....6......2.......7........4.........8
هذا الموضوع مغلق.