منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] منع المستخدم من اغلاق الفورم ب Alt+f4 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] منع المستخدم من اغلاق الفورم ب Alt+f4 (/showthread.php?tid=1762)

الصفحات: 1 2


منع المستخدم من اغلاق الفورم ب Alt+f4 - tarek - 30-01-14

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


RE: منع المستخدم من اغلاق الفورم ب Alt+f4 - سعود - 30-01-14

كود :
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True
    End Sub
انظر للكود ضمن حدث الاغلاق


RE: منع المستخدم من اغلاق الفورم ب Alt+f4 - ali.alfoly - 30-01-14

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

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



RE: منع المستخدم من اغلاق الفورم ب Alt+f4 - Easy4ever - 30-01-14

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

أخوي اتبع الخطوات التاليه
في بداية الامر عرف متغير تحت كلمة 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] يقوم بإغلاق الفورم طبيعي


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

بالتوفيق



RE: منع المستخدم من اغلاق الفورم ب Alt+f4 - ali.alfoly - 30-01-14

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

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



RE: منع المستخدم من اغلاق الفورم ب Alt+f4 - سعود - 30-01-14

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


RE: منع المستخدم من اغلاق الفورم ب Alt+f4 - tarek - 30-01-14

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

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


RE: منع المستخدم من اغلاق الفورم ب Alt+f4 - سعود - 30-01-14

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


RE: منع المستخدم من اغلاق الفورم ب Alt+f4 - ناجي إبراهيم - 30-01-14

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

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. نرجو الاستفادة و السلام.


RE: منع المستخدم من اغلاق الفورم ب Alt+f4 - ali.alfoly - 30-01-14

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