مرتب کردن رنگ ها

[justforvb]

سلام .

می خواستم بدونم چطوری میشه مثلا 20 تا یا بیشتر رنگ رو از رنگ سفید تا سیاه چید یعنی کلا از رنگ های روشن به سمت رنگ های تیره بره .

[program2vb]

سلام دوست عزیز

با استفاده از حلقه میونی این کار رو انجام بدی

Picture1.Width = 1020

Picture1.Height = 1020

Picture1.Appearance = 0

Picture1.AutoRedraw = True



    For x = 0 To 1020 Step 5  'Picture1.Width Step 25

        For y = 1020 To 0 Step -5  'Picture1.Height Step 25

                Picture1.PSet (x, y), RGB(x / 4, y / 4, 0)

        Next

    Next

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

[ROSTAM2]

اگه چیدمان می خوای می تونی از دستور Enum استفاده کنی

Enum MyColors
Color1 = vbBlack
Color2 = X....
End Enum

Maybe...

[justforvb]

تشکر به خاطر جوابهاتون .

نه مثلا فرض کنید داریم :

Color(1)=RGB(255,100,70)

Color(2)=RGB(50,120,87)

Color(3)=RGB(140,120,80)

Color(4)=RGB(0,200,255)

.

.

.

حالا می خوایم این رنگها از روشن ترین تا تیره ترین رنگ کنار هم چیده بشن .
( البته خودم رنگ ها رو به روش کدگذاری تو مبنای 16 ( همون کدگذاری برای رنگها تو ویبی ) بردم و چینش رو انجام دادم ولی نتیجه خوبی نداشت )

[program2vb]

داداش منظورت مرتب کردن آرایه هست یا اینکه میخوای برنامه رنگها رو تشخیص بده و کنار هم بچینه ؟