+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : تقسيم اللون Rgb إلى درجاته أحمر أخضر أزرق (/showthread.php?tid=5850)
تقسيم اللون Rgb إلى درجاته أحمر أخضر أزرق - RaggiTech - 17-10-12
كاتب الموضوع : AhmedEssawy
كود :
Public Function PRS(ByVal toon As Long, ByRef punane As Integer, ByRef roheline As Integer, ByRef sinine As Integer) As Boolean
If toon > 0 And 16777215 < toon Then
punane = toon Mod 256
rohene = (toon And -16711936) / 256
sinine = (toon And 16711680) / 65536
PRS = True
Else
punane = -1
rohene = -1
sinine = -1
PRS = False
End If
End Function