تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] منع المستخدم من اغلاق الفورم ب Alt+f4
#1
السلام عليكم احبتي في الله
بحثت كثيرا في الانترنت عن طريقة منع المستخدم من اغلاق الفورم بالضغط على مفتاح Alt+F4
===========================
فوجدت كود متداول على المواقع يقوم بالمهمة ولكن يكتب في حدث الـ key_down لكل الأدوات الموجودة على الفورم .. وهذا مرهق جدا
==========================
هل من كود لمنع اغلاق الفورم بالت اف4
الرد
تم الشكر بواسطة:
#2
كود :
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True
    End Sub
انظر للكود ضمن حدث الاغلاق
الرد
تم الشكر بواسطة: Easy4ever , ali.alfoly , tarek
#3
تفضل اخي الكريم

كود :
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True
    End Sub
الرد
تم الشكر بواسطة: Easy4ever
#4
وعليكم السلام ورحمة الله وبركاته

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


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

بالتوفيق
Big Grin
<---------------------------------------------------------------->

الرد
تم الشكر بواسطة: ali.alfoly , tarek
#5
سامحني اخي سعود ما رئيت مشاركتك

شكرا للاخ Easy4ever
اخونا tarek رزقه وفير
الرد
تم الشكر بواسطة: Easy4ever , سعود , tarek
#6
في الغالب احتاج طريقة لعمل البرنامج فابحث وابحث وفي الاخير لا اجد سوى حيلة تلبي نصف المطلوب.
الرد
تم الشكر بواسطة:
#7
شكرا لكم
طريقة الاستاذ سعود والاستاذ على الفولي منعت الاغلاق أصلا .. مش راضي يقفل لا بال close button ولا بالكود Me.close
وشكرا والله على اهتمامكم

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

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. نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد
تم الشكر بواسطة: tarek , اسلام الكبابى
#10
ما شاء الله تبارك الله
حلوة قوي الفكرة دي يا اخ ناجي
طيب لي سؤال هل من الممكن بدل ان اجعله غير ممكن ان اجعله يقوم بدور اخر غير الاغلاق
بمعني اجعلة ممكن لاكن لا يغلق الفورم بل ينفذ دالة اخري
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لماذا يحدث مشكلة عند فتح الفورم ShowDialog new_programer 7 168 13-01-19, 10:20 PM
آخر رد: أسامة السالمي
  اريد كود عرض السجل الاخير فى الفورم فى اللود سمير جمال 1 51 07-01-19, 11:42 PM
آخر رد: elgokr
  ازاى اغير من شكل الفورم فى الفيجوال بيسك mostafa nada 3 91 06-01-19, 11:08 PM
آخر رد: aljzazy
  [نقاش] مشكلة الطباعة عند المستخدم اسامه الهرماوي 3 98 31-12-18, 12:40 PM
آخر رد: حريف برمجة
  [سؤال] السلام عليكم ورحمة الله وبركاته . محتاج كود عدم فتح اكثر من فورم داخل الفورم الرئيسي abu.hanen4u 3 136 20-12-18, 10:59 PM
آخر رد: elgokr
  مشكلة الفورم فى الخلف new_programer 3 94 11-12-18, 05:58 AM
آخر رد: rmnr
  ربط الداتا قريدفيو بكمبوبوكس في الفورم alsihran 4 163 30-11-18, 12:14 AM
آخر رد: mero5000
  اظهار الفورم في المقدمة Rabeea Qbaha 7 225 29-11-18, 03:15 AM
آخر رد: Rabeea Qbaha
Rainbow [سؤال] ثبت برنامجي عند المستخدم اسامه الهرماوي 7 184 28-11-18, 12:29 AM
آخر رد: اسامه الهرماوي
  كيف لي أن أجعل المستخدم يعدل في خلية واحدة فقط في الجدول mohammadsaeed01 4 142 27-11-18, 05:41 AM
آخر رد: mero5000

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم