اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





كود يخلى الفورم فول اسكرين

ممكن كود يخلى الفورم فول اسكرين بلغه الvba اكسل



16-04-2018 01:21 مساء
sabry nofel
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-01-2018
رقم العضوية : 3958
المشاركات : 12
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
الدعوات : 1
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 20
الاعجاب : 5
 offline 

ممكن كود يخلى الفورم فول اسكرين بلغه الvba
اكسل
 
  29828983_1810504585909890_1471414424_o.png   تحميل png 29828983_1810504585909890_1471414424_o.png مرات التحميل :(8)
الحجم :(211.776) KB
 







16-04-2018 01:48 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4661
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13399
الاعجاب : 4958
 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

أثارت هذه المشاركة إعجاب: ali mohamed ali، الصقر، alzubari، محمد الدسوقى، Eslam Abdullah،




16-04-2018 02:37 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 534
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 22
قوة السمعة : 2689
الاعجاب : 837
 Online 
look/images/icons/i1.gif كود يخلى الفورم فول اسكرين
كودين رائعين بارك الله فيك أستاذ ياسر وجعله فى ميزان حسناتك

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


16-04-2018 05:25 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4661
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13399
الاعجاب : 4958
 offline 
look/images/icons/i1.gif كود يخلى الفورم فول اسكرين
الأروع هو مرورك العطر أخي العزيز علي .. بارك الله فيك





17-04-2018 04:05 صباحا
مشاهدة مشاركة منفردة [4]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 534
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 22
قوة السمعة : 2689
الاعجاب : 837
 Online 
look/images/icons/i1.gif كود يخلى الفورم فول اسكرين
بعد اذن أستاذى ياسر لإثراء الموضوع فهذا كود ثالث
Private Sub UserForm_Initialize()
    Dim xlws        As XlWindowState
               
    xlws = Application.WindowState
    
    Application.WindowState = xlMaximized
        With UserForm1
            .Top = Application.Top
            .Left = Application.Left
            .Width = Application.Width
            .Height = Application.Height
        End With
    Application.WindowState = xlws
End Sub

أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


17-04-2018 05:25 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4661
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13399
الاعجاب : 4958
 offline 
look/images/icons/i1.gif كود يخلى الفورم فول اسكرين
بارك الله فيك أخي العزيز المتميز علي وجزاك الله خيراً
لكم يسعدني المشاركات الفعالة والتفاعل في الموضوعات

* يراعى عند وضع الأكواد وضعها بين أقواس الكود لتظهر بشكل منضبط .. قمت بتعديل المشاركة وحذف السطر Show حيث يسبب السطر خطأ بعد الخروج من الفورم 
تقبل وافر تقديري واحترامي

أثارت هذه المشاركة إعجاب: ali mohamed ali،






الكلمات الدلالية
يخلى ، الفورم ، اسكرين ،


 







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



الساعة الآن 08:35 مساء

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