کار با طیف رنگها در vb.net

[mohsen22]

سلام . دوستای محترم اگه ویندوز 8 نصب کرده باشید اون آخرش که دیگه داره ویندوز نصب میشه طیف رنگها رو به صورت بسیار زیبا نشون میده و خودشون اتوماتیک‌ٰ- به سرعت وبه صورت ملایم با رنگ بعدی جایگزین میشن
کسی میدونی برای پیاده سازی اون چه باید کرد ؟
مرسی

[mohsen22]

باورم نمیشه دوستانم چیزی به ذهنشون نمیرسه؟!!!

[SHD.NET]

میتونی یه عکس ازش بزاری ؟؟
آخه من هنوز نصب نکردمش

[mohsen22]

متاسفانه اونجایی هستش که هنوز ویندوز نصب نشده و هیچ نمونه ای ازش نمیشه تهیه کرد!

[sari-1369]

در مورد ساختار رنگ ها که حتما اطلاع دارین .
در دات نت میتونیم رنگ رو با تابع FromArgb() تولید کنیم .
که به این شکل میشه ازش استفاده کرد :

Me.BackColor = Color.FromArgb(10, 16, 50)

و حالا کاری که شما برای عوض شدن رنگ ها انجام بدین اینه که با استفاده از یک تایمر و تغییر سه متغیر r,g,b این تابع رنگ مورد نظرتونو بسازید .

[Mani_rf]

متاسفانه اونجایی هستش که هنوز ویندوز نصب نشده و هیچ نمونه ای ازش نمیشه تهیه کرد!

با ابزار های ایجاد فضای مجازی برای سیستم عامل ها مثل vmware workstation نصب کن میتونی فیلم و عکس بگیری.

[mohsen22]

فقط یه سوال ببینید رنگها از یک نوع شروع میشه و به انتها میرسه مثلا از صورتی شروع میشه و قرمز و نارنجی و.. ادامه پیدا میکنه سپس سراغ رنگهای تیره تر مثلا از سبز شروع میشه و به اخر میره ... همه اینکار ها به سرعت انجام میشه و به زیبایی کار افزوده میشه به نظر شما از دسته r-g-b که فرمودید سرعت رشد با توجه به توضیحی که عرض کردم چگونه باید باشه ؟(کدوم بیشتر افزایش پیدا کنه -کدوم کمتر و الی اخر..)
مرسی

[sari-1369]

اون که چه رنگی تولید بشه و با چه صرعتی عوض بشه کاملا بستگی به سلیقه داره و خود شما باید روی مقادری 3 رنگ کنترل داشته باشی .
اما عوض شدن رنگ ها خیلی سادست.
شما یه تایمر بزار روی فورمت و با کد زیر نتیجه رو ببین :

Dim r, g, b As Integer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If r < 255 Then
r += 1
ElseIf g < 255 Then
g += 1
ElseIf b < 255 Then
b += 1
Else
r = 0
g = 0
b = 0
End If

Me.BackColor = Color.FromArgb(r, g, b)
End Sub

[mohsen22]

ممنوونم . اما سراغ رنگ ابی نمیره؟ سبز هم همینطور! کاش وقتش میشد یه نمونه از چیزی که مد نظرمه و موقع نصب ویندوز 8 دیدم و بسیار زیباست بهتون نشون میدادم . اما به هر حال ممنون