چطوري رنگ فرم رو به صورت اتوماتيك عوض كنم ؟

[aaaammmm87]

سلام دوستان
يه فرم دارم كه مي خواهم با تايمرم هر يه ثانيه يه بار رنگش عوض بشه . خوب خودم چند بار نوشتم همش ارور ميداد يا بعد از اينكه چند تا رنگ عوض ميكرد برنامه خطا مي داد ( فكر كنم همون 15 تا رنگ QBCOLOR ) خوب حالا من بايد چي بنويسم ؟در ضمن مي خواهم رنگ ها تكراري و محدود نباشن !

Private Sub Timer1_Timer()
Form1.BackColor =?
End Sub

[BLACK-BLACK]

این برنامه به صورت ساده هستش.

Private Sub Timer1_Timer()

RndVar = Int(Rnd * 16)
Form1.BackColor = QBColor(RndVar)

End Sub

اینم مقداری حرفه ای تر

Private Sub Timer1_Timer()

RndVar1 = Int(Rnd * 256)
RndVar2 = Int(Rnd * 256)
RndVar3 = Int(Rnd * 256)

Form1.BackColor = RGB(RndVar1, RndVar2, RndVar3)

End Sub

[aaaammmm87]

private sub timer1_timer()

rndvar = int(rnd * 16)
form1.backcolor = qbcolor(rndvar)

end sub

خوب دوست عزيز اگه من بخواهم اين رنگ ها رو به صورت كنترل شده داشته باشم بايد چكار كنم يعني اينكه رنگم از قرمز كمرنگ بياد به پرنگ بعد يه رنگ ديگه و .............................

[BLACK-BLACK]

الان کدشو برات میذارم.

[BLACK-BLACK]

بهتر نیست که هدف مساله رو بگی؟
چون همین الان اگه بخای من یه برنامه رو برات میذارم که از قرمز پررنگ شروع کنه و به سفید ختم کنه.
ولی بعدا اگه کار دیگه ای رو بخای ممکنه مشکل ساز بشه.

[aaaammmm87]

t]
اینم مقداری حرفه ای تر

private sub timer1_timer()

rndvar1 = int(rnd * 16)
rndvar2 = int(rnd * 16)
rndvar3 = int(rnd * 16)

form1.backcolor = rgb(rndvar1, rndvar2, rndvar3)

end sub

عزيز دل برادر اين فقط فرم رو مشكي مي كنه (نمي دونم شايد هم دارم چاوشي مشكي رنگه عشقه رو داره مي خونه روي ويژال تاثير گذاشته )

[aaaammmm87]

بهتر نیست که هدف مساله رو بگی؟
چون همین الان اگه بخای من یه برنامه رو برات میذارم که از قرمز پررنگ شروع کنه و به سفید ختم کنه.
ولی بعدا اگه کار دیگه ای رو بخای ممکنه مشکل ساز بشه.

خوب اونوقت از رنگ قرمز به ديگر رنگ ها هم سوييچ مي كنه ؟
اگه اره خوب همين رو بده عزيز

[BLACK-BLACK]

تا کی برنامه رو میخای؟

[aaaammmm87]

تا کی برنامه رو میخای؟

هر چه زودتر بهتر

[BLACK-BLACK]

فردا یه برنامه حرفه ای شو برات میفرستم.