تزيين الفورم عند الفتح والاغلاق بمؤثرات حركيه - الصقر

[الصـقر]

الاخوة الكرام واساتذتى فى هذا الصرح العلمى

أستكمالا لهذا الموضوع على الرابط التالى

أقدم لكم اليوم  ثلاث اكواد تقوم بعمل مؤثرات حركيه عند فتح أو اغلاق الفورم

أعتقد هذا الموضوع جديد فى المنتديات العربيه والاجنبيه

وأن كان موجود فأشهد الله انى لم اصادف موضوع أو كود مثل هذا

وأن هذا العمل خالص من اجتهادى

الميزه فى الاكواد انها تناسب جميع نسخ اصدارات الاوفيس 

ارجوا ان ينال اعجابكم

جارى تطوير الموضوع للوصول الى ما هو افضل

وانتظر اقتراحاتكم ونقدكم ومشاركاتكم 

تقبلوا جميعا تحياتى

اخوكم وتلميذكم / حسام

لا تنسونا من صالح دعائكم ولا تنسوا الدعاء للفقيد استاذنا / عماد الحسامى

 

 

مؤثرات على فتح الفورم.zip

تم تعديل مارس 31, 2016 بواسطه الصـقر

[جلال الجمال_ابو أدهم]

ما شاء الله بارك الله فيك

 

[محمد حسن المحمد]

الان, الصـقر said:

أقدم لكم اليوم  ثلاث اكواد تقوم بعمل مؤثرات حركيه عند فتح أو اغلاق الفورم

أعتقد هذا الموضوع جديد فى المنتديات العربيه والاجنبيه

وأن كان موجود فأشهد الله انى لم اصادف موضوع أو كود مثل هذا

وأن هذا العمل خالص من اجتهادى

 

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

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

[عبد العزيز البسكري]

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

ماشاء الله أخي الغالي " حسام عيسى " ..

ما أحلى و أجمل إطلالاتك ..

قمّة الرّوعة .. ملف و أمثلة رائعة من أستاذنا رائع الابداعات ..

حركات فعلاً جميلة .. أنا شخصيًّا أهتم كثيرًا بهذه اللّمسات الفنيّة و اللوحات المميّزة

جزاك الله خير الجزاء و زادك من علمه و فضله و نفع بك الاسلام و المسلمين

خالص تحياتي

 

 

 

[الصـقر]

اخى الفاضل جلال الجمال

وفيك بارك اخى الكريم وجزاكم الله خيرا على مروركم العطر

تقبل تحياتى

-------------------------------------

استاذى الحبيب ابويوسف 

الاروع من الموضوع هو مرورك وتزينك للموضوع بمشاركتك

تقبل تحياتى 

-------------------------------------

اخى الحبيب والغالى عبدالعزيز

والله لك وحشه ادام الله محبتنا فى الله

وشاكر مرورك العطر وثناءك على الموضوع 

فأنتم مصدر الهامنا وتشجيعنا للوصول الى الافضل

بارك الله فيك وفى صحتك واهلك 

تقبل تحياتى

 

[ابوعبدالواجد]

بارك الله فيكم وزادتكم من فضله

[الصـقر]

وفيك بارك اخى عبدالواجد 

شاكر مرورك

تقبل تحياتى

[ابراهيم الحداد]

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

بارك الله فيك  . دائم الابداع وحفظك من كل سوء

[الصـقر]

وعليكم السلام ورحمة الله استاذ / زيزو العجوز

وفيك بارك استاذى الحبيب 

شاكر مرورك العطر

تقبل تحياتى

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

ايه ده ..ايه ده ..ايه ده

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

بارك الله فيك وجزاك الله خيراً يا صاحب الحركات السحرية

تقبل وافر تقديري واحترامي

 

[الصـقر]

استاذى الحبيب ابوالبراء

وما العبد الا قطره فى بحر علمكم 

جزاكم الله خيرا على مرورك العطر 

تقبل تحياتى

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

يا حوسو بلاش تواضع ..إنت عديت بمراااااااااااااحل كبيرة

ربنا يبارك فيك ويزيدك من علمه ..بس متنساش تعدي على موضوعات أخوك ! مرورك بأي موضوع شرف كبير لنا يا كبير

[محمد عبدالسلام]

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

ماشاء الله أخي  بارك الله لك في علمك

[الصـقر]

اخى الحبيب والغالى ابوالبراء

يا كبير انت عارف انى انا قليل دخول المنتدى فى الفتره الاخيرة

لكن والله العظيم لم ارى موضوعك اعذرنى لضيق وقتى

والشرف لى بس الدخول لموضوع من موضوعاتك فأنا بقف مثل التلميذ قدام شرح استاذه هذه حقيقه والله

ارجوا منك السماح والمعذره

تقبل تحياتى

 

--------------------------

وعليكم السلام استاذ محمد عبدالسلام وفيك بارك اخى الكريم وجزيت خيرا على دعائك المبارك

اسال الله لى ولك التوفيق والسداد

تقبل تحياتى

 

[أبوبسمله]

ماذا ساقول بعد قول الاساتذه الكرام والاخوه الاحباب

نسال الله لك الاجر وان يجزيك عنا خير الجزاء

تقبل تحياتى اخى حسام ورحم الله الاخ الفقيد عماد الحسامى

 

[الصـقر]

اخى الكريم احمد الفلاحجى

جزاكم الله خيرا على مرورك العطر

تقبل تحياتى 

[reda23dz]

تأثيرات قمة في الجمالية مشكور أخانا الكريم

 

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

Private Sub UserForm_Activate()
    
    For i = 1 To 200 Step 0.1
    With Me
    DoEvents
    .Height = i: .Width = i * 2
    .Top = .Top - (i / 2000): .Left = .Top - (i / 2000)
    End With
    Next
    
End Sub

Private Sub UserForm_Initialize()
    
    Me.Height = 0
    Me.Width = 0
    
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
    For ii = 1 To 20 Step 0.005
    With Me
    DoEvents
    .Height = .Height - ii: .Width = .Width - ii * 3
    End With
    Next

End Sub

مرحبا

هذه محاولة شبيهة بما قام به الاستاذ الصقر

 

 

 

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

بارك الله فيك أخونا في الله اللي مش عارفين اسمه

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

تقبل وافر تقديري واحترامي

[الصـقر]

اخى فى الله 

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

وياريت تحاول تظبط الكود بحيث يتناسب مع اى فورم فى العرض والارتفاع

بمعنى اعمل مثلا فورم عرضه 600 وارتفاعه 150 وشغل الكود شاهد ماذا يحدث ستجد ان عرض الفورم بعد انتهاء الكود لم يتم عرض الفورم بالكامل

اذا كان عندى متسع من الوقت ساراجع الكود واحاول فيه تظبيطه ليناسب اى فورم

 

تقبل تحياتى

 

تم تعديل أبريل 2, 2016 بواسطه الصـقر

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

الاستاذ ياسر خليل

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

فائق الشكر و التقدير و الاحترام

[الزباري]

قمة في الإبداع و  جزاكم الله خيراً على هذه النماذج الرائعة 

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

السلام عليكم

الشكر لجميع الاخوة الكرام

تم تعديل الكود ليتوافق مع احجام مختلفة

اختر الحجم المناسب و اكتبه في التصريح مثل

Const iHeight As Integer = 150

Const iWidth As Integer = 600

الكود

'----------------------------------------------------
Const iHeight As Integer = 150
Const iWidth As Integer = 600
'----------------------------------------------------

Private Sub UserForm_Activate()

    Ap_H = Application.Height
    Ap_W = Application.Width
With Me
    For iHH = 1 To iHeight
    .Height = iHH: .Top = ((Ap_H - .Height) / 2)
    DoEvents
Next
    For iWW = 1 To iWidth
    .Width = iWW: .Left = ((Ap_W - .Width) / 2)
    DoEvents
Next
End With

End Sub

Private Sub UserForm_Initialize()
    Me.Height = 0
    Me.Width = 0
End Sub

 

[الصـقر]

الاخ الكريم / الزبارى 

الاروع هو مرورك اخى الكريم

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

--------------

الاخ الكريم / اخوكم فى الله

ما شاء الله عليك روعه 

تستحق انت تكون عضو خبير بالمنتدى ياريت ابوالبراء يبحث الامر

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

وتقبلوا جميعا تحياتى

تم تعديل أبريل 3, 2016 بواسطه الصـقر

[Yasser Fathi Albanna]

ماشاء الله أخى الحبيب / الصقر

جزيت خير الجزاء على كل ما تقدمه من أعمال فى غاية الروعة والجمال

تقبل خالص تحياتى وتقديرى لشخصكم الكريم