كيف يمكن جعل لون التكست بوكس او الليبل يتغير في الفورم؟

[حسام مصطفي]

الاساتذة الكرام

كيف يمكن لي جعل لون التكست بوكس او الليبل يتغير في الفورم

اي يتغير تلقائيا كل ثانيه بمجرد ظهور الفورم

وهل يمكن اضافة اشكال تلقائية للفورم كالتي يتم اضافتها في صفحة الاكسيل من شريط ادوات الرسام

مثلا .... دائرة ... مثلث ... مسدس ... مربع ... وهكذا

وما هي الطريقة لعمل ذك

في انتظار الرد

 

[حسام مصطفي]

للرفع

[حسام مصطفي]

للرفع

[حسام مصطفي]

للرفع

[حسام مصطفي]

للرفع

[شوقي ربيع]

السلام عليكم

انضر المرفق عسى ان يكون المطلوب

تغيير الالوان في الفورم.rar

[حسام مصطفي]

ألف مليون شكر استاذي القدير

وعذرا ع التأخير ف الرد

حيث كنت مشغولا في ظروف مصر في الثورة الايام السابقة

ولي استفسار استاذنا ....

ما هي وظيفة الدائرة وكيف يمكن الإستغناء عنها

وكيف يمكن اضافة الأشكال التلقائية للفورم

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

[شوقي ربيع]

السلام عليكم

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

Sub engrenage()
  
    secondes = 0.1
       
   Do While start
         
        timer_avant = Timer
         
        Do While Timer < timer_avant + secondes
            DoEvents
        Loop
        
        Feuil1.Shapes("Ellipse 1").IncrementRotation 9
       
    Loop

End Sub

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

Sub SHMove()

    secondes = 0.2
For a = 1 To 22
b = Feuil1.Cells(a, 1).Value
c = Feuil1.Cells(a + 2, 1).Value

     timer_avant = Timer
 Do While Timer < timer_avant + secondes
            DoEvents
       Loop
       Me.Label1.BackColor = b
       Me.TextBox1.BackColor = c
        Next
        
End Sub

بدجهما معا تكون النتيجة كما تلاحط عند تشغيل الفورم

 

يمكن الاستغناء عن الدائرة  بادراج كود الوقت وانا لا احبذ ذلك الكود لانه يجعل الملف يهتز كثيرا

وهناك حل افضل وهو جعل الدائرة غير مرئية بواسطة هذا الكود

Feuil1.Shapes("Ellipse 1").Visible = msoFalse

ملاحضة ليس واجب ان تكون دائرة تستطيع تطبيق الامر على اي شكل

 

اما بالنسبة لسؤالك الاخير للاسف ليس لي  اجابة عليه الان

تحياتي
 

[حسام مصطفي]

ألف مليون شكر استاذي الكريم

لروعة ردك وسرعتة وجماله

سأقوم باستخدام الأكواد الأخيرة

ولكن بعد عودتي للمنزل حيث انني ارسل لك من ع الموبايل من ميدان التحرير بالقاهرة

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