منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مطلوب كود لتغيير لون الفورم كل دقيقه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مطلوب كود لتغيير لون الفورم كل دقيقه (/showthread.php?tid=15924)



مطلوب كود لتغيير لون الفورم كل دقيقه - CLARO - 26-05-16

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


RE: مطلوب كود لتغيير لون الفورم كل دقيقه - الوادي - 26-05-16

يا كلارو،
اضف Timer للفورم وعدل خصائصة بحيث تضع للخاصية Interval قيمة 60000 يعني دقيقة لأن الثانية تساوي 1000 وفعــّـــل الخاصية Enabled بتحديد القيمة True وبعدها ضع هذا الكود وقم بزيادة الألوان للمصفوفة كما تريد.
PHP كود :
Private Sub Timer1_Tick(sender As System.ObjectAs System.EventArgsHandles Timer1.Tick
    Dim clrs
() As Color = {Color.RedColor.GreenColor.Blue}
    Static 
indx As Integer
    Me
.BackColor clrs(indx)
    
indx += 1
    
If indx clrs.Count Then indx 0
End Sub 



RE: مطلوب كود لتغيير لون الفورم كل دقيقه - bidaya - 26-05-16

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


RE: مطلوب كود لتغيير لون الفورم كل دقيقه - CLARO - 26-05-16

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

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


RE: مطلوب كود لتغيير لون الفورم كل دقيقه - الوادي - 26-05-16

يا كلارو،
الطلب الثاني يحتاج أن تضع اثنين من Timer
ال Timer1 تضع للخاصية Interval قيمة 60000 يعني دقيقة مثل التوضيح السابق وتفعيل الخاصية Enabled بتحديد القيمة True
اما Timer2 تضع للخاصية Interval قيمة 3000 يعني ثلاث ثوان ولا تقم تفعيل الخاصية Enabled يعني قيمتها False
PHP كود :
Private Sub Timer1_Tick(sender As System.ObjectAs System.EventArgsHandles Timer1.Tick
    Timer2
.Enabled True
End Sub

Private Sub Timer2_Tick(sender As System.ObjectAs System.EventArgsHandles 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