هل ممكن عمل max و min للفورم

[محمودالسيد]

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

تم تعديل نوفمبر 27, 2013 بواسطه محمودالسيد

[محمودالسيد]

كان عندى استفسار بخصوص امكانية عمل ماكسميز و مينيمايز وكلوز فى الفورم من عدمه 

اذا ممكن انا هرفع لانى محتاج الخاصية دى جدا

[حمادة عمر]

السلام عليكم

الاخ الكريم / محمودالسيد

بارك الله فيك

شاهد المرفق ان شاء الله به طلبك

 

 

تقبل خالص تحياتي

 

 

علامة التكبير والتصغير والاغلاق في الفورم.rar

 

[محمودالسيد]

جزاك الله خيرا يا استاذ حماده وشكرا جزيلا على الاهتمام والرد ويارب يكون فى ميزان حسناتك اضعاف مضاعفة والله يوفقكم دائما .

[حمادة عمر]

بارك الله فيك

تقبك خالص تحياتي

[محمودالسيد]

استاذ حمادة بارك الله فيك لكن عندى مشكلة هى انى لما اعمل تكبير يرحل كل شئ فى الفورم لجهة اليسار

[محمودالسيد]

استاذ حمادة بارك الله فيك لكن عندى مشكلة هى انى لما اعمل تكبير يرحل كل شئ فى الفورم لجهة اليسار

وانا محتاجه يكبر فى العرض بدون نقل اى شئ من مكانه 

[حمادة عمر]

السلام عليكم

الاخ الكريم / محمودالسيد

بارك الله فيك

ضع الكود التالي في حدث الفورم كما هو ... وشاهد النتيجة

Private Sub UserForm_Initialize()
Dim Zo%
Dim ZH#, ZW#, AL#, AT#, AH#, AW#
Dim FH!, FW!
'===========================================
AH = Application.Height: AW = Application.Width
AL = Application.Left: AT = Application.Top
FH = Me.Height: FW = Me.Width
ZH = AH - FH: ZW = AW - FW: Zo = Me.Zoom
If ZH < ZW Then Zo = Zo * (AH / FH) Else If ZW < ZH Then Zo = Zo * (AW / FW)
'===========================================
With Me
.Move AL, AT, AW, AH
If Zo <> 100 Then .Zoom = Zo
End With
'===========================================
End Sub

تقبل خالص تحياتي

[حمادة عمر]

ملفات مرفقة

 

كود لتكبير الفورم بتناسب مناسب للكائنات.rar

[إبراهيم ابوليله]

اخى الحبيب

حماده

ماشاء الله

كود جميل

ومفيد جدا

بارك الله فيك

[حمادة عمر]

الكود اخي الكريم من اعمال الاستاذ / عباد

او القدير / عبد الله باقشير

حيث وجدته في مكتبتي ولم اتذكر الكود لمن فيهم

جزاهم الله خيرا

تم تعديل ديسمبر 4, 2013 بواسطه حمادة عمر

[احمد فضيله]

جزاكم الله كل خير

[محمودالسيد]

شكر ا جزيلا استاذ   حماده  عمر   وجزاكم الله خيرا وزادكم من علمه وعاجز عن الشكر للاهتمام والرد والمتابعة معايا