مشكلة في ظهور فورم

[ريان أحمد]

صممت فورم في جهازي وذلك تبعا لشاشتي

عندما نقلتها إلى جهاز آخر لم يظهر بعظها أي

 

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

[أبو حنــــين]

استعمل هذا الكود

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

End Sub

[حمادة عمر]

السلام عليكم

الاستاذ الحبيب / أبو حنين

 

رائع دوما وردودك كالنسيم العليل

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

[أبو حنــــين]

جزاك الله خيرا و حفظك ورعاك

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

[ريان أحمد]

السلام عليكم

 

 

بعد التجرية على ملفي لم ينجح الكود وبقيت المشكلة في عدم ظهور الليس بوكس أقصد بعص من الليست بوكس أما الفورم فلقد أخذت ملء الشاشة

[عبدالله باقشير]

السلام عليكم

 

الشكر واصل لاخي ابو حنين

 

جرب الكود التالي

ضعه في موديل الفورم او اي موديل آخر

 

 

Sub kh_Form_Zoom(MyForm As Object)
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 = MyForm.Height: FW = MyForm.Width
ZH = AH - FH: ZW = AW - FW: Zo = MyForm.Zoom
If ZH < ZW Then Zo = Zo * (AH / FH) Else If ZW < ZH Then Zo = Zo * (AW / FW)
'===========================================
With MyForm
    .Move AL, AT, AW, AH
    If Zo <> 100 Then .Zoom = Zo
End With
'===========================================
End Sub
 

وحط  هذا في موديل الفورم

 

Private Sub UserForm_Initialize()
kh_Form_Zoom Me
End Sub

 

في امان الله

[ريان أحمد]

أستاذي القدير والله لشرف عظيم لي أن تمر على موضوعي

 

سأجرب الكود في عدة أجهزة

 

وإن شاء سأخبرك بالنتيجة حتى وإن كنت واثقا من نجاحها لأنها من عند  أستاذ قدير

[ريان أحمد]

لقد قمت بتجريب الكود وهو يعمل بشكل رهيب

 

شكرا لك وجزاك الله كل خير