parselearn
پنج شنبه 05 شهریور 1388, 11:35 صبح
سلام
من براي تبديل 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 پشت سر هم رو چجوري ست كنم؟
پروژه مربوط به رنگ رو ضميمه كردم
من براي تبديل 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 پشت سر هم رو چجوري ست كنم؟
پروژه مربوط به رنگ رو ضميمه كردم