اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
أعلن هنا
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .




16-04-2018 01:48 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3098
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8706
الاعجاب : 2911
 offline 
look/images/icons/i1.gif كود يخلى الفورم فول اسكرين
السلام عليكم أخي الكريم صبري
أهلاً بك في المنتدى ونورت بين إخوانك
جرب أحد الكودين التاليين ..
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

'========================================================

Private Sub UserForm_Initialize()
    Dim Zo%
    Dim ZH#, ZW#, AL#, AT#, AH#, AW#
    Dim FH!, FW!
    
    On Error GoTo Skipper
    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
Skipper:
End Sub



اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 12:27 مساء

أعلن هنا
أعلن هنا
أعلن هنا