تغییر رنگ lable.ForeColor

[VirGil]

سلام خدمت همگی.

چه جوری میشه رنگ lable.ForeColor هر مثلا 30 ثانیه به یه رنگ تصادفی دیگه تغییر کنه؟

البته کار با تایمر و که بلدم.:دی

[sari-1369]

یه تابعی بود ( فکر کنم RGB ) که 3 تا مقدار اینتیجر ( قرمز ، سبز ، آبی ) می گرفت و در نهایت یه رنگ تحویل می داد .

برای اینکه تصادفی باشه 3 تا عدد تصادفی با تابع ( فکر کنم randimiz ) تولید کنید و برای تابع قبلی بفرستید .

[sari-1369]

دوست عزیز ، بی خیال پست قبلی بشو . :لبخند:

اینم جواب سوالتون .



Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim red, green, blue As Integer
red = Rnd() * 255
green = Rnd() * 255
blue = Rnd() * 255
Label1.BackColor = Color.FromArgb(red, green, blue)
End Sub

[Mani_rf]

جواب قبلی درسته فقط به جای Backcolor باید ForeColor بنویسی دیگه.