تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تفعيل أو تعطيل زر الإغلاق (x) في النوافذ بالكود
#1
<< بسم الله الرحمن الرحيم >>

لن أطول بالحديث لنبدأ بالأكواد


في قسم التصريحات العامة (أعلى الكود) :

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd _
As Long, ByVal bRevert As Boolean) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal _
hMenu As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal _
hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) _
As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&
Public Sub DisableClose(frm As Form, Optional _
Disable As Boolean = True)
'Setting Disable to False disables the 'X',
'otherwise, its reset
Dim hMenu As Long
Dim nCount As Long
If Disable Then
hMenu = GetSystemMenu(frm.hwnd, False)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or _
MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or _
MF_BYPOSITION)
DrawMenuBar frm.hwnd
Else
GetSystemMenu frm.hwnd, True
DrawMenuBar frm.hwnd
End If
End Sub


أما في زر التفعيل:

Call DisableClose(Me, False)


و في زر التعطيل

Call DisableClose(Me, True)

هذا هو كل الأمر ....... تحياتي لكم Smile
و السلام عليكم و رحمة الله و بركاته

حصريا للمنتدى :
درس: كيفية حساب عدد الأسطر في نص

-- إذا لم تزد على الحياة شيئاً فأنت زائد عليها --
-- المبرمج الطموح vb6 --


الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) سانسيفا 8 2,018 26-08-13, 05:06 PM
آخر رد: مهند إلكترو
  تعطيل وتفعيل مدير المهام RaggiTech 0 623 17-10-12, 04:39 PM
آخر رد: RaggiTech
  تعطيل لوحة المفاتيح الى اشعار اخر RaggiTech 0 613 17-10-12, 03:12 PM
آخر رد: RaggiTech
  تعطيل الكيبورد والماوس عن العمل RaggiTech 0 533 17-10-12, 12:38 AM
آخر رد: RaggiTech
  تحويل التنسيق بايت الي Kb- Mb- Gb بالكود RaggiTech 0 420 17-10-12, 12:33 AM
آخر رد: RaggiTech
  تفعيل و تعطيل خيارات نظام التشغيل System Propreties المبرمج الطموح vb6 0 447 06-10-12, 12:47 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل التشغيل Run المبرمج الطموح vb6 0 488 06-10-12, 12:44 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل فتح الريجستري Regedit المبرمج الطموح vb6 0 551 06-10-12, 12:40 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل إظهار الملفات المخفية Hidden Files المبرمج الطموح vb6 0 820 06-10-12, 12:37 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل خيارات المجلدات Folder Option المبرمج الطموح vb6 0 463 06-10-12, 12:34 PM
آخر رد: المبرمج الطموح vb6

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


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