[tarek]

السلام عليكم احبتي في الله
بحثت كثيرا في الانترنت عن طريقة منع المستخدم من اغلاق الفورم بالضغط على مفتاح Alt+F4
===========================
فوجدت كود متداول على المواقع يقوم بالمهمة ولكن يكتب في حدث الـ key_down لكل الأدوات الموجودة على الفورم .. وهذا مرهق جدا
==========================
هل من كود لمنع اغلاق الفورم بالت اف4

[سعود]

كود :

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True
    End Sub

انظر للكود ضمن حدث الاغلاق

[ali.alfoly]

تفضل اخي الكريم

كود :

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True
    End Sub

[Easy4ever]

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

أخوي اتبع الخطوات التاليه
في بداية الامر عرف متغير تحت كلمة Public Class مباشرة من نوع Boolean وسمه اي اسم وليكن KeyClose

PHP كود :

Dim KeyClose As Boolean 


في حدث FormLoad للفورم ضع هذا الكود

PHP كود :

KeyClose = False 


وفي حدث FormClosing للفورم ضع هذا الكود

PHP كود :

IF KeyClose  = False Then
     e.Cancel = True
End IF 


وفي زر الإغلاق ضع هذا الكود

PHP كود :

KeyClose = True 


-------------------------------------------------------

من الممكن ان يدور في ذهنك ماذا فعلنا ؟!

الإجابة
في بداية الامر قمنا بتعريف متغير من نوع منطقي يا نعم يا لا
حتى نستفيد منه اننا نعرف هل ضغط على زر إغلاق أو قفلتها بطريقة غير مناسبة مثل Alt+F4

ومن ثم قمنا جعلنا عندما يفتح الفورم يضع قيمتها تساوي False إي ( لا )

ومن ثم قلنا له إذا تم إعطاء للفورم امر أغلاق بإي طريقه ما ( وهو حدث FormClosing ) تحقق من متغير KeyClose في حال كان المتغير قيمته [False] قم بعملية إلغاء الأمر الإغلاق خلاف هذا يقوم بإغلاق الفورم طبيعي

ومن ثم قمنا بجعل متغير KeyClose تساوي ( True ) إي ( نعم ) في زر إغلاق حتى إذا ذهب للحدث FormClosing ورئ متغير KeyClose لا تساوي [False] يقوم بإغلاق الفورم طبيعي

-------------------------------------------------------

بالتوفيق

[ali.alfoly]

سامحني اخي سعود ما رئيت مشاركتك

---

شكرا للاخ Easy4ever
اخونا tarek رزقه وفير

[سعود]

في الغالب احتاج طريقة لعمل البرنامج فابحث وابحث وفي الاخير لا اجد سوى حيلة تلبي نصف المطلوب.

[tarek]

شكرا لكم
طريقة الاستاذ سعود والاستاذ على الفولي منعت الاغلاق أصلا .. مش راضي يقفل لا بال close button ولا بالكود Me.close
وشكرا والله على اهتمامكم

---

طريقة الاستاذ Foreever بعد الضغط مرة واحدة على زر الاغلاق الذي به الكود KeyClose = True
ثم الضغط على Alt+F4 سيتم غلق البرنامج
جربوها
شاكر جدا لاهتمامكم

[سعود]

إقتباس :طريقة الاستاذ Foreever بعد الضغط مرة واحدة على زر الاغلاق الذي به الكود KeyClose = True
ثم الضغط على Alt+F4 سيتم غلق البرنامج

المفروض ان زر الاغلاق بعده يتم اغلاق البرنامج يعني بعد كود

كود :

KeyClose = True

اكتب كود اغلاق الفورم

[ناجي إبراهيم]

السلام عليكم...

1. إزالة الأمر "إغلاق" (Close) من قائمة النظام التابعة للنافذة:

* ضع التصريحات التالية في بداية تعريف الـ Class:

كود :

Private Declare Function GetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hwnd As Integer, ByVal bRevert As Integer) As Integer
    Private Declare Function RemoveMenu Lib "user32" Alias "RemoveMenu" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer

    Private Const MF_BYPOSITION As Integer = &H400

* في الحدث Load التابع للـ Form اكتب الكود التالي لحذف الأمر إغلاق و الفاصل الذي قبله من قائمة النظام الخاصة بالنافذة. الكود سيؤدي أيضاً إلى تعطيل زر إغلاق النافذة:

كود :

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim hSysMenu As Integer

        hSysMenu = GetSystemMenu(Me.Handle, 0)
        RemoveMenu(hSysMenu, 6, MF_BYPOSITION)
        RemoveMenu(hSysMenu, 5, MF_BYPOSITION)
    End Sub

2. منع Alt+F4 من العمل.

* اضبط الخاصية KeyPreview للـ Form على True.

* اكتب الكود التالي في الحدث KeyDown للـ Form:

كود :

Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.Alt And e.KeyCode = Keys.F4 Then
            e.Handled = True
        End If
    End Sub

* ملاحظة: قائمة النظام (System Menu) للنافذة هي القائمة التي تظهر عند النقر على رمز النافذة بالزر الأيسر، أو بالنقر على شريط عنوان النافذة بالزر الأيمن.


3. نرجو الاستفادة و السلام.

[ali.alfoly]

ما شاء الله تبارك الله
حلوة قوي الفكرة دي يا اخ ناجي
طيب لي سؤال هل من الممكن بدل ان اجعله غير ممكن ان اجعله يقوم بدور اخر غير الاغلاق
بمعني اجعلة ممكن لاكن لا يغلق الفورم بل ينفذ دالة اخري