View Full Version : لطفاٌ کمک کنید تابعی که عکس rgb عمل کند
masoud_583
سه شنبه 20 اردیبهشت 1384, 12:10 عصر
شماره رنگ را گرفته و rgb برگرداند ( قرمز و سبز و آبی ) :oops:
M-Gheibi
سه شنبه 20 اردیبهشت 1384, 12:45 عصر
شماره رنگ
منظورتون از شماره رنگ چیه؟
روز خوش
Behrouz_Rad
سه شنبه 20 اردیبهشت 1384, 15:50 عصر
منظورتون از شماره رنگ چیه؟
رنگ ها به فرمت های مختلفی قابل نمایش دادن هستند.
کد رنگ (که عددی از نوع 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
چهارشنبه 21 اردیبهشت 1384, 03:26 صبح
فتوشاپ یه امکانی داره که با استفاده از اون 10000 رنگ رو تبدیل به 100 رنگ میکنن یعنی در واقع رنگهای نزدیک رو یکی میکند شما سورسی در این مورد ندارین
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.