ست کردن رنگ رندوم

[Forutan 28]

سلام دوستان

من 5 تا رنگ دارم میخوام بصورت رندوم هر ثانیه ست شن روی بکگراند یک لیبل

چطور میتونم رنگ هارو رندوم از یک آرایه بگیرم؟

ممنون

[Amir01 612]

سلام

این آرایه الان دارای پنج تا رنگ هست:

Dim MyColors() As Int=Array As Int(0xFFFF0000,0xFF00FFA7,0xFFFFA500,0xFF42FF00,0xFF9900FF)

برای اینکه یکی از این رنگ هارو به صورت تصادفی از آرایه بیرون بکشیم و به لیبل بدیم، به این شکل عمل میکنیم:

Label1.Color=MyColors(Rnd(0,5))

برای اینکه هرثانیه یکی از رنگ ها روی لیبل ست بشن باید از تایمر استفاده کنین و در رویداد تیک تایمر هم کد بالا رو قرار بدین.