[CLARO]

السلام عليكم
بدي كود لتغيير لون الفورم كل دقيقه
وشكرا

[الوادي]

يا كلارو،
اضف Timer للفورم وعدل خصائصة بحيث تضع للخاصية Interval قيمة 60000 يعني دقيقة لأن الثانية تساوي 1000 وفعــّـــل الخاصية Enabled بتحديد القيمة True وبعدها ضع هذا الكود وقم بزيادة الألوان للمصفوفة كما تريد.

PHP كود :

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    Dim clrs() As Color = {Color.Red, Color.Green, Color.Blue}
    Static indx As Integer
    Me.BackColor = clrs(indx)
    indx += 1
    If indx = clrs.Count Then indx = 0
End Sub 


[bidaya]

الله يرضى عليك اخي شكرا جزلا

[CLARO]

اشكرك جزيل الشكر اخب العزيز

---

طيب عندي سؤال ثاني لو سمحت انا بدي اعمل برنامج ساعه و بدي كل دقيققة يتغير
لون الخلفية للون السود لمدة 3 ثوان ثم يرجع الون للازرق

[الوادي]

يا كلارو،
الطلب الثاني يحتاج أن تضع اثنين من Timer
ال Timer1 تضع للخاصية Interval قيمة 60000 يعني دقيقة مثل التوضيح السابق وتفعيل الخاصية Enabled بتحديد القيمة True
اما Timer2 تضع للخاصية Interval قيمة 3000 يعني ثلاث ثوان ولا تقم تفعيل الخاصية Enabled يعني قيمتها False

PHP كود :

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    Timer2.Enabled = True
End Sub

Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
    Static ac As Boolean = True
    If ac Then
        Me.BackColor = Color.Black
    Else
        sender.Enabled = False
        Me.BackColor = Color.Blue
    End If
    ac = Not ac
End Sub