مرحباً أصدقائي/ كيفية عمل كود تقوم بضغط زر من الكيبود مع زر أخر مثل F2+حرف A تظهر نافدة من نوافذ المشروع
الفكرة كأني ضغطت على زر أمر تظهر نافذه معينه
مرحباً أصدقائي/ كيفية عمل كود تقوم بضغط زر من الكيبود مع زر أخر مثل F2+حرف A تظهر نافدة من نوافذ المشروع
الفكرة كأني ضغطت على زر أمر تظهر نافذه معينه
قم باضافه
mdiForm
عن طريق
add new item
MDI parent form
ثم
استعمل الكود التالي لاستدعاء اي شاشةتريدها
كود :
Dim frm1 As New Form1()
frm1.MdiParent = mdiForm
frm1.show()
ملاحظة
form1 هو اسم الفورم المراد فتحها
وللوصول للاختصار قف علي اي قائمة منبثقه من الفورم وعدل ما تريده في خانه
ShortcutKeys
بالتوفيق
(21-11-18, 07:54 PM)+yassen+ كتب : [ -> ]مرحباً أصدقائي/ كيفية عمل كود تقوم بضغط زر من الكيبود مع زر أخر مثل F2+حرف A تظهر نافدة من نوافذ المشروع
الفكرة كأني ضغطت على زر أمر تظهر نافذه معينه
مرحبا حبيبي
ان شاء الله يكون هذا المطلوب
كود :
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.F2 Then
Form2.Show()
End If
End Sub
هذا ماطلبته ولكم جزيل الشكر ولاكن واجهت مشكلة الكود يعمل مع الفورم العادي بدون مشكلة ولاكن أنا أستخدم DevExpress في برنامجي والكود لا يعمل هنا معي فما الحل لو سمحتم
(23-11-18, 02:23 AM)trakktour كتب : [ -> ] (21-11-18, 07:54 PM)+yassen+ كتب : [ -> ]مرحباً أصدقائي/ كيفية عمل كود تقوم بضغط زر من الكيبود مع زر أخر مثل F2+حرف A تظهر نافدة من نوافذ المشروع
الفكرة كأني ضغطت على زر أمر تظهر نافذه معينه
مرحبا حبيبي
ان شاء الله يكون هذا المطلوب
كود :
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.F2 Then
Form2.Show()
End If
End Sub
بالاضافة الى هذا يجب نفعيل خاصية KeyPreview
شكراً لكم أصدقائي على المساعدة هذا ماكنت أريده أشكركم جميعاً على المساعده