تجديد / تحديث النموذج Me.Painting

[jjafferr]

السلام عليكم 

 

اعتقد مهم ان اعطيكم مثال على Me.Painting ، فالتوضيح في الرابط التالي يحتاج الى توضيح 

http://www.officena.net/ib/topic/67464-المساعدة-في-فتح-صورة-من-listbox/?do=findComment&comment=438833

 

النموذج Form1 ، كل ثانية ، اللون الاصفر ينزل الى الحقل التالي (اي بمعنى ان النموذج يجدد شكل النموذج باستمرار ، وعليه نرى الالوان تنتقل من حقل الى آخر):

الكود:

Function Change_Colors(F)
        
    Me(F).BackColor = RGB(225, 225, 0)    'yellow
    Me(F) = F
    DoEvents

    PauseTime = 1    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop

    Me(F).BackColor = RGB(255, 255, 255)    'white
    Me(F) = ""
    
End Function

Private Sub cmd_Start_Coloring_Click()
       
        Call Change_Colors("q1")
        Call Change_Colors("q2")
        
        Call Change_Colors("q3")
        Call Change_Colors("q4")
    
        Call Change_Colors("q6")
        Call Change_Colors("q7")
    
End Sub

.

والنتيجة:

.

اما النموذج Form2 ، فهو نسخة من النموذج السابق Form1 ، إلا اني طلبت في الكود ان:

اللون الاصفر يلون الحقل الاول والثاني ، ثم اعطيت الامر بعدم تجديد شكل النموذج بالامر Me.Painting=False

فاللون الاصفر ظل على الحقل الثاني للنموذج ، بينما الكود استمر في عمله في تلوين الحقل الثالث والرابع ، ولكن دون ان يُظهر لنا النتيجة على النموذج ،

ثم اعطيت الامر Me.Painting=True ، فاللون الاصفر اختفى من الحقل الثاني ، وظهر لآخر حقلين ،

والكود هو:

Function Change_Colors(F)
        
    Me(F).BackColor = RGB(225, 225, 0)    'yellow
    Me(F) = F
    DoEvents

    PauseTime = 1    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop

    Me(F).BackColor = RGB(255, 255, 255)    'white
    Me(F) = ""
    
End Function

Private Sub cmd_Start_Coloring_Click()
       
        Call Change_Colors("q1")
        Call Change_Colors("q2")
        
    Me.Painting = False

        Call Change_Colors("q3")
        Call Change_Colors("q4")
    
    Me.Painting = True
    
        Call Change_Colors("q6")
        Call Change_Colors("q7")
    
End Sub

.

والنتيجة:

.

 

طيب ، ما الفائدة عمليا من هذا الكود؟

 

انا استخدمت هذا الامر مرات جدا قليلة في برامجي ، والبرنامج اعلاه (في تغيير اسم الملف) هو احدهم ، اما البرنامج الآخر فهو:

برنامج فيه آلاف السجلات ، وهناك صور للسجلات ،

فكنت اريد ان اعرض النموذج بطريقة معينة ، بحيث باختيار اسم الموظف تصل الى معلوماته ، ولكني اردت ان اسمح لهم ان يروا بقية السجلات ايضا ،

فالاكسس كان يعرض اول سجل وصورة ، ثم ينتقل الى السجل المطلوب ،

وانا لم ارد للمستخدم ان يرى اول سجل وصورته ، وانما اردته ان يرى سجل وصورة الموظف الذي تم اختياره ،

فاستخدمت هذه الطريقة في اخفاء السجل الاول وصورته (بعدم تجديد الشاشة) ، وعندما حان موعد ظهور السجل المطلوب وصورته ، اعطيت الامر بإظهار وتجديد شاشة الاكسس ،

والنتيجة كانت مرضية لي 

 

 

جعفر

297.Me.Paint.accdb.zip

[ابو جودي]

انا دائما منبهر بأفكار حضرتك يا استاذ جعفر

[jjafferr]

2 دقائق مضت, محمد عصامـے said:

انا دائما منبهر بأفكار حضرتك يا استاذ جعفر

يا واد انت 

 

جعفر

[ابو جودي]

4 دقائق مضت, jjafferr said:

يا واد انت 

 

جعفر

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

[jjafferr]

حياك الله 

ولي الشرف ان يستفيد الشباب من تجاربي 

 

 

جعفر

[كرار صبري _ أبو جنى]

9 ساعات مضت, jjafferr said:

جعفر

ياااااااا أستاذ جعفر ... ياااااااا أستاذ جعفر ... 

عاشت ايدك ... فكرة روعة ... 

ربي يزوجك اربع نسوان كل وحدة بدولة ... 

[jjafferr]

11 ساعات مضت, karrar sabry said:

ياااااااا أستاذ جعفر ... ياااااااا أستاذ جعفر ... 

عاشت ايدك ... فكرة روعة ... 

ربي يزوجك اربع نسوان كل وحدة بدولة ... 

تسلم أخي كرار ، على السطرين الاخيرين

 

جعفر

[رمهان]

شكرا على المعلومة اخ جعفر

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

وبعد الشكر اعتذر عن الانفطاع لانشغالي كثيرا !

وبعد الاعتذار ملاحظة : الاحظ اغلاق المواضيع بكثرة فقد يكون هناك حل رمهاني مختصر فلا مكان له والموضوع  مغلق 

تحياتي 

[jjafferr]

4 ساعات مضت, رمهان said:

شكرا على المعلومة اخ جعفر

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

وبعد الشكر اعتذر عن الانفطاع لانشغالي كثيرا !

وبعد الاعتذار ملاحظة : الاحظ اغلاق المواضيع بكثرة فقد يكون هناك حل رمهاني مختصر فلا مكان له والموضوع  مغلق 

تحياتي 

 

حياك الله أخوي رمهان 

زين الحمدلله طلّيت علينا 

 

انا كذلك كان عندي تجربة اخرى مع Echo ، وهي عند كتابة ملاحظات على Status Bar في اسفل النموذج ،

وكذلك استخدمت بديل له ، وهو:

DoEvents
Call SysCmd(acSysCmdSetStatus, "HI THERE!!")
DoEvents

.

و الامر DoEvents جدا مهم ، وهو لإخبار الكود بأن يعمل الامر هذا ، ويواصل العمل للخطوة التالية 

 

 

اما عن اغلاق المواضيع ، فانا اقوم بإغلاق مواضيعي ، وذلك بعد ان يسأل صاحب الموضوع سؤال لا علاقة له بالموضوع ، فأضطر عمل هذا حتى لا يتشعب الموضوع

 

جعفر

[ابوبسمله]

جزاك الله خير معلمنا العزيز جعفر

سوف اقرئه بعنايه عند عودتي إن شاء الله

بارك الله فيك