Moosak قام بنشر يوليو 17, 2022 مشاركة قام بنشر يوليو 17, 2022 (معدل) السلام عليكم ورحمة الله وبركاته 🙂 اليوم بفضل الله تعلمت شي جديد وحبيت أحطه في تطبيق عملي مباشرة ً .. 😎 وفي نفس الوقت حبيت أشارككم الفائدة 😄 معلومة اليوم تتحدث عن الحدث : Form.Repaint للنموذج ويمكن كتابته هكذا Me.Repaint ووضيفته مشابهة للـ DoEvents تقريبا إلا أنه مع التجربة والمقارنة وجدته أسرع في التنفيذ . معناه الحرفي ( إعادة الرسم ) ووضيفته بشكل عام هو إظهار أي تحديثات معلقة للنموذج في أثناء تنفيذ أي حدث 😁 .. وللمزيد من المعلومات هنا ستجدون رابط الشرح من مايكروسوفت : <<< اضغط هنا >>>> المهم .. هذا تطبيقي على الحدث وتكمن في تحريك الأزرار عند الضغط عليها بشكل يضفي طابع جمالي وجديد للنماذج 🙂 ( قد لا تبين حركة الأزرار العلوية في الصورة التوضيحية .. لذلك سترونها بوضوح من خلال الملف المرفق 😁 ) وهذا شكلها في الأكواد المستخدمة : Function AnimateBtns1() Dim x As Integer Dim y As Integer For x = 1 To 6 Me("b" & x).Visible = True For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top + y Me.repaint Next y For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top - y Me.repaint Next y Me.repaint Next x End Function Function AnimateBtns2() Dim x As Integer Dim y As Integer For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top + y Me.repaint Next y Me.repaint Next x For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top - y Me.repaint Next y Next x End Function تحياتي 🙂 ✌️🌷🌹 حركة الأزرار.accdb تم تعديل يوليو 18, 2022 بواسطه Moosak 8 5 رابط هذا التعليق شارك More sharing options...
محمد مدحت قام بنشر يوليو 18, 2022 مشاركة قام بنشر يوليو 18, 2022 جزاك الله خيرا عنا ونفعك الله بعلمك وعملك استاذنا 1 رابط هذا التعليق شارك More sharing options...
shawky75140 قام بنشر يوليو 18, 2022 مشاركة قام بنشر يوليو 18, 2022 ابدعت استاذ موسى جعله الله فى ميزان حسناتك 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 18, 2022 مشاركة قام بنشر يوليو 18, 2022 شكر وتقدير واحترام من اخيك 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 18, 2022 مشاركة قام بنشر يوليو 18, 2022 يضاااااااااااااف للمكتبـــــــــه وقت الحصاد 1 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر يوليو 18, 2022 الكاتب مشاركة قام بنشر يوليو 18, 2022 34 دقائق مضت, ابو جودي said: يضاااااااااااااف للمكتبـــــــــه وقت الحصاد عندما يتواضع الكبااااااار رابط هذا التعليق شارك More sharing options...
Amr Ashraf قام بنشر يوليو 19, 2022 مشاركة قام بنشر يوليو 19, 2022 السلام عليكم , فكرة جميلة أخى موسى بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر يوليو 19, 2022 مشاركة قام بنشر يوليو 19, 2022 دائما تاتى بكل ماهو مفيد وجميل بارك الله فيك وجعله فى ميزان الحسنات 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يوليو 20, 2022 مشاركة قام بنشر يوليو 20, 2022 أحسنت استاذ موسى عمل ممتاز جعله الله فى ميزان حسناتك 2 1 رابط هذا التعليق شارك 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.