لطفاٌ کمک کنید تابعی که عکس rgb عمل کند

[masoud_583]

شماره رنگ را گرفته و rgb برگرداند ( قرمز و سبز و آبی ) :oops:

[M-Gheibi]

شماره رنگ
منظورتون از شماره رنگ چیه؟

روز خوش

[Behrouz_Rad]

منظورتون از شماره رنگ چیه؟
رنگ ها به فرمت های مختلفی قابل نمایش دادن هستند.
کد رنگ (که عددی از نوع Long است)، کد HEX (که عددی در مبنای 16 است) و RGB که یک نوع مدل رنگی است که تمامی اعداد این مدل از سه رنگ قرمز، سبز و آبی تشکیل شده اند.



Public Type T_Color
Red As Long
Green As Long
Blue As Long
End Type

Public Function LongToRGB(ByVal ColorCode As Long) As T_Color
Dim getColor As Long
getColor = ColorCode
LongToRGB.Blue = getColor \ 65536
LongToRGB.Green = (getColor - LongToRGB.Blue * 65536) \ 256
LongToRGB.Red = getColor - LongToRGB.Blue * 65536 - LongToRGB.Green * 256
End Function

موفق باشید.
:wise1:

[Morteza Manafpour]

فتوشاپ یه امکانی داره که با استفاده از اون 10000 رنگ رو تبدیل به 100 رنگ می‌کنن یعنی در واقع رنگهای نزدیک رو یکی می‌کند شما سورسی در این مورد ندارین