Long 2 RGB

[Farhad.B.S]

سلام.
چطور میتونم مقدار رنگی رو به مقادیر RGB ش تغییر بدم ؟
مثلا اگه کد رنگ = 123 بعد مقادیر R=10 G=20 B=1 رو بدست بیارم ؟
البته به جز راهی که 3 تا حلقه تشکیل میدن چون خیلی کنده :cry:
ممنون.

[Abbas Arizi]

از تابع زیر استفاده کنید

Function GetRGB(ByVal cColor As Long, ByRef Red As Integer, _
ByRef Green As Integer, ByRef Blue As Integer) As String
Red = cColor And &HFF&
Green = ((cColor And &HFF00&) \ &H100)
Blue = ((cColor And &HFF0000) \ &H10000)
GetRGB = "RGB (" & Red & "," & Green & "," & Blue & ")"
End Function

ارگومان اول رنگ موردنظر و بقیه آرگومانها مقادیر برگشتی هستند

[Voldemort]

Farhad.B.S عزیز

R=Color Mod &H100
G=(Color\ &H100) Mod &H100
B=Color\ &H10000

[Farhad.B.S]

سلام.
از هر دو دوست عزیز بسیار متشکرم ... خیلی کمک بزرگی بود :D