ضبط حجم الفورم

[ابو حمادة]

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

ارجو المساعده

هل من الممكن عمل كود لضبط حجم اليوزر فورم ليتناسب مع اي شاشه

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

اتمني ان اجد طلبي ويريت يكون علي ملف

توضيحي

[ياسر خليل أبو البراء]

أخي الكريم أبو حمادة

حاول تستخدم خاصية البحث في المنتدى ، وإن شاء الله تجد أجوبة لكثير من الأسئلة

إليك الكود التالي يوضع في حدث الفورم

Private Sub UserForm_Initialize()
    With Application
        .WindowState = xlMaximized
        Zoom = Int(.Width / Me.Width * 80)
        Width = .Width: Height = .Height
        Left = 0: Top = 0
    End With
End Sub

ودا ملف مطبق فيه الكود

تقبل تحياتي

Fit Screen Resolution YasserKhalil.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 = Height: FW = Width
ZH = AH - FH: ZW = AW - FW: Zo = Zoom
If ZH < ZW Then Zo = Zo * (AH / FH) Else If ZW < ZH Then Zo = Zo * (AW / FW)
Move AL, AT, AW, AH
If Zo <> 100 Then Zoom = Zo
End Sub

تقبل تحياتى

[ابو حمادة]

شكر ليكم جميعا علي اهتمامكم

هذه الاكواد تعمل ولكنها لا تفي بما اقصده انا محتاج كود يضبط نفسه علي حجم الشاشه مثال

انا بشتغل لاب والفورم بيشتغل عندي تمام ولكن لما بفتحه من علي جهاز اخر الفورم بيكبر وبيكون حجمه اكبر من حجم الشاشه الاخري وبعض المفاتيح اليمني لا تظهر بسبب كبر الشاشه ولما بعمل الفورم واضبطه علي حجم الجهاز الاخر لا يكون مناسب علي اللاب بيكون صغير جدا علي اللاب

انا اريد كود لعمل الفورم مطاطي يعني لو اتفتح من اي جهاز يظهر بالحجم المناسبب للشاشه

هذا ما اقصده

[ياسر خليل أبو البراء]

أخي الكريم أبو حماده

ممكن ترفق ملف للعمل عليه لمحاولة تلبية المطلوب .. وإن شاء الله بالصبر تنال ما تريد

[ياسر خليل أبو البراء]

جرب الكود التالي عله يفي بالغرض

Fit Screen Resolution On UserForm YasserKhalil.rar

[محمود أبوسيف]

بعد إذن الأستاذ الكبير ياسر

جرب هذا الكود أيضاً

Private Sub UserForm_Activate()
With Application
Me.Top = .Top
Me.Left = .Left
Me.Height = .Height
Me.Width = .Width
End With
End Sub