كيف يتم لغاء زر التكبير في فورم Mdiform1 الموجود في اعلاء الفورم ؟؟

عن طريق خصائص الفورم يا اخي

عند خاصيه max button

اجعل القيمه false

Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long
Private Const GWL_STYLE = (-16)
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
'----------------------------
Public Sub DisableMaxButton(f As MDIForm)
Dim x As Long
x = GetWindowLong(f.hWnd, GWL_STYLE)
x = x And Not (WS_MAXIMIZEBOX)
x = SetWindowLong(f.hWnd, GWL_STYLE, x)
End Sub

فقط استدعي الاجراء مع تمرير اسم mdi او فقط مرر me

mostafazidani كتب:

Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long
Private Const GWL_STYLE = (-16)
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
'----------------------------
Public Sub DisableMaxButton(f As MDIForm)
Dim x As Long
x = GetWindowLong(f.hWnd, GWL_STYLE)
x = x And Not (WS_MAXIMIZEBOX)
x = SetWindowLong(f.hWnd, GWL_STYLE, x)
End Sub

فقط استدعي الاجراء مع تمرير اسم mdi او فقط مرر me

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

استاذي العزيز : mostafazidani

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

ممكن مثال حول هذا الموضوع حتى نفهم اكثر ارجوك استاذي العزيز المساعده العاجله

ولكم مني فائق الاحترام والتقدير

من وجهه نظري الموضوع مش محتاج كل هذا الكود فقط عند خاصيه maxbutton قم بتعديل الخاصيه لتصبح false

اخي najahaja ال MDI لايوجد به خاصية ال MAXBUTTON اتوقع قصدك عن الفورم العادي

اضغط بالزر اليمين على اسم المشرع>>>Add>>>>>>mdi form

اخي athen25 تفضل

Disable_mdi__max_button.zip

mostafazidani كتب:

اخي najahaja ال MDI لايوجد به خاصية ال MAXBUTTON اتوقع قصدك عن الفورم العادي

اضغط بالزر اليمين على اسم المشرع>>>Add>>>>>>mdi form

اخي athen25 تفضل

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

استاذي العزيز :mostafazidani

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

هناك نقطه اخيره كيف امنع المستخدم من تكبير وتصغير MDIForm1 وهوا في حالة العرض ؟؟

نامل من الله ثم منكم المساعده

ولكم مني فائق الاحترام

اعذرني اخي الفاضل وشكرا لك على التوضيح

هل الكود قام بإلغاء تفعيل زر التكبير ؟؟

اذا مالمشكلة اخي athen

اتمنى توضيح اكتر

mostafazidani كتب:

هل الكود قام بإلغاء تفعيل زر التكبير ؟؟

اذا مالمشكلة اخي athen

اتمنى توضيح اكتر

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

استاذي العزيز :mostafazidani

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

استاذي المشكله ان المستخدم يمكن ان يكبر الفورم من خلال السحب انظر الى مقطع الفديو المرفق ؟؟

استاذي العزيز انا اريد امنع المستخدم من تكبير الفورم وتصغيره من خلال السحب

والله يحفظكم ويرعاكم

ولكم مني فائق الاحترام والتقدير

sa.rar

Disable_mdi__max_button___2.rar

محمد مصطفي غريب كتب:

إذا لم تكن هناك رسالة حاصة بمنع تغيير حجم الفورم في دالة SetWindowLong فيمكنك منع المستخدم من تغيير حجم الفورم عن طريق دالة ReleaseCapture

والمثال في المرفقات

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

استاذي العزيز :محمد مصطفي غريب

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

استاذي المشكله ان المستخدم يمكن ان يكبر الفورم من خلال السحب انظر الى مقطع الفديو المرفق ؟؟

استاذي العزيز انا اريد امنع المستخدم من تكبير الفورم وتصغيره من خلال السحب

والله يحفظكم ويرعاكم

ولكم مني فائق الاحترام والتقدير

* المثال الذي ارسلته غير معدل عليه شي نفس الاول

sa.rar

اخي ربما انت لم تنتبه جيدا , فقد قمت بإضافة دالة ReleaseCapture في المثال السابق , وهذه الدالة تقوم بعمل الاتي :

عندما يضغط المستخدم بالماوس ليسحب الفورم ويكبره , تقوم هذه الدالة بإرجاع ضغطة المستخدة كأنه رفع اصبعه عن الماوس اي Mouse Up

وبهذا يتم إلغاء امر تغيير حجم الفورم

يعيبها شييء واحد , يمكن تكبير الفورم ليملأ الشاشة عند النقر على شريط العنوان نقرة مزدوجة , ولكن يمكن التغلب على هذه بوضع كود ليعيد النافذة للوضع الطبيعي عند التحجيم

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

المثال مرة اخرى في المرفقات بعد وضع كود منع تكبير الفورم بالنقر نقرة مزدوجة على شريط العنوان

Disable_mdi__max_button___3.rar

محمد مصطفي غريب كتب:

اخي ربما انت لم تنتبه جيدا , فقد قمت بإضافة دالة ReleaseCapture في المثال السابق , وهذه الدالة تقوم بعمل الاتي :

عندما يضغط المستخدم بالماوس ليسحب الفورم ويكبره , تقوم هذه الدالة بإرجاع ضغطة المستخدة كأنه رفع اصبعه عن الماوس اي Mouse Up

وبهذا يتم إلغاء امر تغيير حجم الفورم

يعيبها شييء واحد , يمكن تكبير الفورم ليملأ الشاشة عند النقر على شريط العنوان نقرة مزدوجة , ولكن يمكن التغلب على هذه بوضع كود ليعيد النافذة للوضع الطبيعي عند التحجيم

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

المثال مرة اخرى في المرفقات بعد وضع كود منع تكبير الفورم بالنقر نقرة مزدوجة على شريط العنوان

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

استاذي العزيز : محمد مصطفي غريب

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

لو سمحت انظر الى مقطع الفديو المرفق حول البرنامج الذي تم التعديل على من طرفكم لم يتغير شي في الموضوع

والله يحفظكم ويرعاكم

ولكم مني فائق الاحترام

ser.rar

محمد مصطفي غريب كتب:

اخي ربما انت لم تنتبه جيدا , فقد قمت بإضافة دالة ReleaseCapture في المثال السابق , وهذه الدالة تقوم بعمل الاتي :

عندما يضغط المستخدم بالماوس ليسحب الفورم ويكبره , تقوم هذه الدالة بإرجاع ضغطة المستخدة كأنه رفع اصبعه عن الماوس اي Mouse Up

وبهذا يتم إلغاء امر تغيير حجم الفورم

يعيبها شييء واحد , يمكن تكبير الفورم ليملأ الشاشة عند النقر على شريط العنوان نقرة مزدوجة , ولكن يمكن التغلب على هذه بوضع كود ليعيد النافذة للوضع الطبيعي عند التحجيم

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

المثال مرة اخرى في المرفقات بعد وضع كود منع تكبير الفورم بالنقر نقرة مزدوجة على شريط العنوان

فقط اريد ان اقول ان الطريقة اعلاه غير عملية ....

من الافضل قراءة SubMenu في شريط العنوان وثم حذف ما تريد .....

استخدام الدالة GetSystemMenu و الدالة RemoveMenu لفعل ذلك .... المثال مع التعديل في المرفقات ...

بالتوفيق ...

Disable_mdi__max_button___3.rar

Devd كتب:

فقط اريد ان اقول ان الطريقة اعلاه غير عملية ....

من الافضل قراءة SubMenu في شريط العنوان وثم حذف ما تريد .....

استخدام الدالة GetSystemMenu و الدالة RemoveMenu لفعل ذلك .... المثال مع التعديل في المرفقات ...

بالتوفيق ...

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

استاذي العزيز :

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

الف الف الف شكر وتقدير استاذي الكريم والله يحفظكم ويرعاكم

ولكم مني فائق الاحترام والتقدير