موقع المطورين
  العودة  موقع المطورين \ أقسام الأكواد والدروس \ ركن أكواد فيجويل بيسك visual Basic المجانيه \ تقسيم اللون Rgb إلى درجاته أحمر أخضر أزرق

http://mtweren.com/bb.pngحـساباتنا البنــكيةhttp://mtweren.com/bb.png

 
 
أدوات الموضوع العرض العاديالعرض المتطورالعرض الشجري
  #1  
قديم 10-07-2017, 01:04 PM
W!ndows W!ndows غير متواجد حالياً
Administrator
 
تاريخ التسجيل: Sep 2017
المشاركات: 350
افتراضي تقسيم اللون Rgb إلى درجاته أحمر أخضر أزرق

كود:
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
رد مع اقتباس


أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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