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