سلام.
چطور میتونم مقدار رنگی رو به مقادیر RGB ش تغییر بدم ؟
مثلا اگه کد رنگ = 123 بعد مقادیر R=10 G=20 B=1 رو بدست بیارم ؟
البته به جز راهی که 3 تا حلقه تشکیل میدن چون خیلی کنده :cry:
ممنون.
Printable View
سلام.
چطور میتونم مقدار رنگی رو به مقادیر RGB ش تغییر بدم ؟
مثلا اگه کد رنگ = 123 بعد مقادیر R=10 G=20 B=1 رو بدست بیارم ؟
البته به جز راهی که 3 تا حلقه تشکیل میدن چون خیلی کنده :cry:
ممنون.
از تابع زیر استفاده کنید
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
ارگومان اول رنگ موردنظر و بقیه آرگومانها مقادیر برگشتی هستند
Farhad.B.S عزیز
R=Color Mod &H100
G=(Color\ &H100) Mod &H100
B=Color\ &H10000
سلام.
از هر دو دوست عزیز بسیار متشکرم ... خیلی کمک بزرگی بود :D