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

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

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