المشاركات : 351
المواضيع 130
الإنتساب : Sep 2013
السمعة :
15
الشكر: 291
تم شكره 236 مرات في 105 مشاركات
30-10-14, 10:37 AM
(آخر تعديل لهذه المشاركة : 30-10-14, 12:23 PM {2} بواسطة محمد مسافر.)
[attachment=5951]
بسم الله الرحمن الرحيم
كيف يمكن الغاء او تجميد زر الاغلاق في البرنامج الخيارات الاخرى موجودة الخاصة بالتصغير او التكبير ماعداء الاغلاق اتمنى المساعدة
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
المشاركات : 351
المواضيع 130
الإنتساب : Sep 2013
السمعة :
15
الشكر: 291
تم شكره 236 مرات في 105 مشاركات
هل يوجد طريقة من خصائص المشروع للتعديل ام لا يوجد مثل زر التصغير والتكبير
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
المشاركات : 171
المواضيع 2
الإنتساب : Oct 2014
السمعة :
29
الشكر: 111
تم شكره 178 مرات في 92 مشاركات
30-10-14, 01:54 PM
(آخر تعديل لهذه المشاركة : 30-10-14, 03:03 PM {2} بواسطة الوليد ☺.)
السلام عليكم ورحمة الله
لا توجد خاصية لزر الإغلاق فقط،
لكن ممكن تعطل الخاصية ControlBox إذا كان الفورم حجمه ثابت وقتها أكيد ما تحتاج تكبير وتصغير بس حيخفيهم كلهم
المشاركات : 3
المواضيع 0
الإنتساب : Oct 2015
السمعة :
0
الشكر: 0
تم شكره 1 مرات في 1 مشاركات
خطوتين فقط لعطيل زر الاغلاق
الامر بسيط جدا وفي غاية البساطة
كالتالي
الخطوة الاولى
قم بفتح module جديد وانسخ فيه هذا الكود
Public Declare Function GetSystemMenu Lib "user32.dll" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DrawMenuBar Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function DeleteMenu Lib "user32.dll" (ByVal hwnd As Long, ByVal nPosition As Long, ByVal uflags As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Sub DisableCloseBox()
Const MF_BYCOMMAND As Long = &H0&
Const SC_CLOSE As Long = &HF060
Const SC_MAXIMIZE As Long = &HF030
Const SC_MINIMIZE As Long = &HF020
Const SC_RESTORE As Long = &HF120
Dim hMenu As Long
Dim hwnd As Long
Dim Ret As Long
hwnd = GetForegroundWindow()
hMenu = GetSystemMenu(hwnd, 0&)
Ret = DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
Ret = DrawMenuBar(hwnd)
End Sub
الخطوة الثانية
قم باستدعاء ال module الذي انشئته سابقا فقط بكتابة الامر التالي في كود الفورم عند الحدث active اكتب فقط
DisableCloseBox
وارح يتعطل معك زر الاغلاق للفورم
لكن لا تنسي ان تعمل buutton لإغلاق الفورم او الخروج منه
المشاركات : 32
المواضيع 2
الإنتساب : Nov 2013
السمعة :
0
الشكر: 11
تم شكره 16 مرات في 12 مشاركات
موضوع شيق
جزاكم الله خيرا