تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تقسيم اللون Rgb إلى درجاته أحمر أخضر أزرق
#1
كاتب الموضوع : 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
}}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم