الصـقر قام بنشر مارس 31, 2016 قام بنشر مارس 31, 2016 (معدل) الاخوة الكرام واساتذتى فى هذا الصرح العلمى أستكمالا لهذا الموضوع على الرابط التالى أقدم لكم اليوم ثلاث اكواد تقوم بعمل مؤثرات حركيه عند فتح أو اغلاق الفورم أعتقد هذا الموضوع جديد فى المنتديات العربيه والاجنبيه وأن كان موجود فأشهد الله انى لم اصادف موضوع أو كود مثل هذا وأن هذا العمل خالص من اجتهادى الميزه فى الاكواد انها تناسب جميع نسخ اصدارات الاوفيس ارجوا ان ينال اعجابكم جارى تطوير الموضوع للوصول الى ما هو افضل وانتظر اقتراحاتكم ونقدكم ومشاركاتكم تقبلوا جميعا تحياتى اخوكم وتلميذكم / حسام لا تنسونا من صالح دعائكم ولا تنسوا الدعاء للفقيد استاذنا / عماد الحسامى مؤثرات على فتح الفورم.zip تم تعديل مارس 31, 2016 بواسطه الصـقر 6
محمد حسن المحمد قام بنشر مارس 31, 2016 قام بنشر مارس 31, 2016 الان, الصـقر said: أقدم لكم اليوم ثلاث اكواد تقوم بعمل مؤثرات حركيه عند فتح أو اغلاق الفورم أعتقد هذا الموضوع جديد فى المنتديات العربيه والاجنبيه وأن كان موجود فأشهد الله انى لم اصادف موضوع أو كود مثل هذا وأن هذا العمل خالص من اجتهادى السلام عليكم ورحمة الله وبركاته أخي الحبيب "صقر المنتدى حسام" جزاكم الله خيراً على هذه النماذج الرائعة بالحركات المؤثرة التي نشكرك على أدائها ونحمد الله أنه بيننا إخوة مبدعين ....وقد تكون في المرات القادمة حركات عشوائية بمعنى عند كل فتح تنتقل من حركة إلى أخرى في كل مرة... والسلام عليكم ورحمة الله وبركاته. 3
عبد العزيز البسكري قام بنشر مارس 31, 2016 قام بنشر مارس 31, 2016 السّلام عليكم و رحمة و بركاته ماشاء الله أخي الغالي " حسام عيسى " .. ما أحلى و أجمل إطلالاتك .. قمّة الرّوعة .. ملف و أمثلة رائعة من أستاذنا رائع الابداعات .. حركات فعلاً جميلة .. أنا شخصيًّا أهتم كثيرًا بهذه اللّمسات الفنيّة و اللوحات المميّزة جزاك الله خير الجزاء و زادك من علمه و فضله و نفع بك الاسلام و المسلمين خالص تحياتي 3
الصـقر قام بنشر مارس 31, 2016 الكاتب قام بنشر مارس 31, 2016 اخى الفاضل جلال الجمال وفيك بارك اخى الكريم وجزاكم الله خيرا على مروركم العطر تقبل تحياتى ------------------------------------- استاذى الحبيب ابويوسف الاروع من الموضوع هو مرورك وتزينك للموضوع بمشاركتك تقبل تحياتى ------------------------------------- اخى الحبيب والغالى عبدالعزيز والله لك وحشه ادام الله محبتنا فى الله وشاكر مرورك العطر وثناءك على الموضوع فأنتم مصدر الهامنا وتشجيعنا للوصول الى الافضل بارك الله فيك وفى صحتك واهلك تقبل تحياتى 2
الصـقر قام بنشر مارس 31, 2016 الكاتب قام بنشر مارس 31, 2016 وفيك بارك اخى عبدالواجد شاكر مرورك تقبل تحياتى
ابراهيم الحداد قام بنشر مارس 31, 2016 قام بنشر مارس 31, 2016 السلام عليكم ورحمة الله بارك الله فيك . دائم الابداع وحفظك من كل سوء 3
الصـقر قام بنشر مارس 31, 2016 الكاتب قام بنشر مارس 31, 2016 وعليكم السلام ورحمة الله استاذ / زيزو العجوز وفيك بارك استاذى الحبيب شاكر مرورك العطر تقبل تحياتى
ياسر خليل أبو البراء قام بنشر مارس 31, 2016 قام بنشر مارس 31, 2016 ايه ده ..ايه ده ..ايه ده بسم الله ما شاء الله ..أيوا كدا أسعدنا وأتحفنا بهداياك يا صقر المنتدى بارك الله فيك وجزاك الله خيراً يا صاحب الحركات السحرية تقبل وافر تقديري واحترامي 3
الصـقر قام بنشر مارس 31, 2016 الكاتب قام بنشر مارس 31, 2016 استاذى الحبيب ابوالبراء وما العبد الا قطره فى بحر علمكم جزاكم الله خيرا على مرورك العطر تقبل تحياتى 1
ياسر خليل أبو البراء قام بنشر مارس 31, 2016 قام بنشر مارس 31, 2016 يا حوسو بلاش تواضع ..إنت عديت بمراااااااااااااحل كبيرة ربنا يبارك فيك ويزيدك من علمه ..بس متنساش تعدي على موضوعات أخوك ! مرورك بأي موضوع شرف كبير لنا يا كبير 2
محمد عبدالسلام قام بنشر مارس 31, 2016 قام بنشر مارس 31, 2016 السلام عليكم ورحمة الله وبركاته. ماشاء الله أخي بارك الله لك في علمك 1
الصـقر قام بنشر أبريل 2, 2016 الكاتب قام بنشر أبريل 2, 2016 اخى الحبيب والغالى ابوالبراء يا كبير انت عارف انى انا قليل دخول المنتدى فى الفتره الاخيرة لكن والله العظيم لم ارى موضوعك اعذرنى لضيق وقتى والشرف لى بس الدخول لموضوع من موضوعاتك فأنا بقف مثل التلميذ قدام شرح استاذه هذه حقيقه والله ارجوا منك السماح والمعذره تقبل تحياتى -------------------------- وعليكم السلام استاذ محمد عبدالسلام وفيك بارك اخى الكريم وجزيت خيرا على دعائك المبارك اسال الله لى ولك التوفيق والسداد تقبل تحياتى 2
أبوبسمله قام بنشر أبريل 2, 2016 قام بنشر أبريل 2, 2016 ماذا ساقول بعد قول الاساتذه الكرام والاخوه الاحباب نسال الله لك الاجر وان يجزيك عنا خير الجزاء تقبل تحياتى اخى حسام ورحم الله الاخ الفقيد عماد الحسامى 2
الصـقر قام بنشر أبريل 2, 2016 الكاتب قام بنشر أبريل 2, 2016 اخى الكريم احمد الفلاحجى جزاكم الله خيرا على مرورك العطر تقبل تحياتى 1
أبو حنــــين قام بنشر أبريل 2, 2016 قام بنشر أبريل 2, 2016 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 مرحبا هذه محاولة شبيهة بما قام به الاستاذ الصقر 3
ياسر خليل أبو البراء قام بنشر أبريل 2, 2016 قام بنشر أبريل 2, 2016 بارك الله فيك أخونا في الله اللي مش عارفين اسمه بسم الله ما شاء الله عليك ملاحظ نشاط ممتاز بالمنتدى ..ربنا يجعله في ميزان حسناتك تقبل وافر تقديري واحترامي 1
الصـقر قام بنشر أبريل 2, 2016 الكاتب قام بنشر أبريل 2, 2016 (معدل) اخى فى الله جزاكم الله خيرا وياريت تحاول تظبط الكود بحيث يتناسب مع اى فورم فى العرض والارتفاع بمعنى اعمل مثلا فورم عرضه 600 وارتفاعه 150 وشغل الكود شاهد ماذا يحدث ستجد ان عرض الفورم بعد انتهاء الكود لم يتم عرض الفورم بالكامل اذا كان عندى متسع من الوقت ساراجع الكود واحاول فيه تظبيطه ليناسب اى فورم تقبل تحياتى تم تعديل أبريل 2, 2016 بواسطه الصـقر 2
أبو حنــــين قام بنشر أبريل 2, 2016 قام بنشر أبريل 2, 2016 الاستاذ ياسر خليل جزاكم الله خيرا فائق الشكر و التقدير و الاحترام 1
الزباري قام بنشر أبريل 2, 2016 قام بنشر أبريل 2, 2016 قمة في الإبداع و جزاكم الله خيراً على هذه النماذج الرائعة 1
أبو حنــــين قام بنشر أبريل 2, 2016 قام بنشر أبريل 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
الصـقر قام بنشر أبريل 3, 2016 الكاتب قام بنشر أبريل 3, 2016 (معدل) الاخ الكريم / الزبارى الاروع هو مرورك اخى الكريم وجزاكم الله خيرا -------------- الاخ الكريم / اخوكم فى الله ما شاء الله عليك روعه تستحق انت تكون عضو خبير بالمنتدى ياريت ابوالبراء يبحث الامر جزاكم الله خيرا اخى الكريم وتقبلوا جميعا تحياتى تم تعديل أبريل 3, 2016 بواسطه الصـقر
Yasser Fathi Albanna قام بنشر أبريل 3, 2016 قام بنشر أبريل 3, 2016 ماشاء الله أخى الحبيب / الصقر جزيت خير الجزاء على كل ما تقدمه من أعمال فى غاية الروعة والجمال تقبل خالص تحياتى وتقديرى لشخصكم الكريم 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.