معلومة وفائدة 🟠🟡💡 معلومة جديدة 👍😊 - تحريك الأزرار مع الحدث Form.Repaint method 🟢🟣🟡🟠

[Moosak]

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

اليوم بفضل الله تعلمت شي جديد وحبيت أحطه في تطبيق عملي مباشرة ً .. 😎

وفي نفس الوقت حبيت أشارككم الفائدة 😄

معلومة اليوم تتحدث عن الحدث :

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

[محمد مدحت]

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

[shawky75140]

ابدعت استاذ موسى جعله الله فى ميزان حسناتك 

 

 

 

[abouelhassan]

شكر وتقدير واحترام من اخيك 

[ابو جودي]

يضاااااااااااااف للمكتبـــــــــه 

وقت الحصاد

[Moosak]

34 دقائق مضت, ابو جودي said:

يضاااااااااااااف للمكتبـــــــــه 

وقت الحصاد

عندما يتواضع الكبااااااار  

[Amr Ashraf]

السلام عليكم , فكرة جميلة أخى موسى بارك الله فيك

[الحلبي]

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

[Ali Mohamed Ali]

أحسنت استاذ موسى عمل ممتاز جعله الله فى ميزان حسناتك