تبديل rgb به long

[parselearn]

سلام

من براي تبديل long به rgb از كد زير استفاده مي كنم
براي تبديل rgb به long بايد چي كار كرد


Private Sub LngToRGB(LCul As Long, R As Byte, G As Byte, B As Byte)
R = LCul And &HFF&
G = (LCul And &HFF00&) \ &H100&
B = (LCul And &HFF0000) \ &H10000
End Sub



يك مساله ديگه
مي خوام مقدار باينري رو در رجيستري تغيير بدم
اما نمي تونم رنگ رو به باينري در بيارم
آدرسش
HKEY_USERS\S-1-5-21-1390067357-1085031214-682003330-1003\Software\Microsoft\Windows\CurrentVersion\Exp lorer
نام: AltColor

مثلا مي خوام مقدارش رو اين بزارم: 00 00 ff

بدست آوردن رنگش آسونه اما ست كردنش رو نمي دونم چطوري
مثلا در هگزا دسيمال f ميشه 15 دو تا f پشت سر هم رو چجوري ست كنم؟


پروژه مربوط به رنگ رو ضميمه كردم

[Mbt925]

از متد rgb استفاده کنید:


rgb(r,g,b)