زوهير قام بنشر مايو 19, 2015 مشاركة قام بنشر مايو 19, 2015 السلام عليكم ورحمة الله هل من كود يجعل الفورم يتناسب مع جميع الشاشات دون التعديل عليها وجزاكم الله خيرا مسبقا رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر مايو 20, 2015 مشاركة قام بنشر مايو 20, 2015 اخى الحبيب ضع هذا الكود بالفورم هو من اعمال وكنوز اخى الحبيب ابن مصر الغالى المهندس احمد 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 تقبل تحياتى 3 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 20, 2015 مشاركة قام بنشر مايو 20, 2015 بارك الله فيك أخي الحبيب حسام ونسأل الله أن يكون الأخ الغالي بن مصر بخير وفي صحة وعافية (والله إني أفتقد وجوده .. من لديه أخبار عنه فليبلغنا بها .. ويوصله سلامنا ليه .. لعله يكون بخير إن شاء الله) 1 رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر مايو 20, 2015 الكاتب مشاركة قام بنشر مايو 20, 2015 عذرا عن التأخر جزاكم الله خيرا وجزا الله صاحب الكود خير الجزاء وجعل غيابه خيرا رابط هذا التعليق شارك More sharing options...
محمد لطفى قام بنشر مايو 26, 2015 مشاركة قام بنشر مايو 26, 2015 رائع جدا جدا رابط هذا التعليق شارك More sharing options...
الزباري قام بنشر مايو 26, 2015 مشاركة قام بنشر مايو 26, 2015 من تجاربي في تكبير الفورم ليتناسب جميع الشاشات 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 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 27, 2015 مشاركة قام بنشر مايو 27, 2015 كود رائع أخي الزباري لا حرمنا الله من أكواد الجميلة والمفيدة تقبل تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.