title image


Smiley Re: R - G - B Anteil einer Farbe isolieren
Hi,



so gehts:



Private Sub Form_Load()

Dim col As Long

Dim rot As Byte, grün As Byte, blau As Byte



col = RGB(2, 2, 23)



Call RGBsplit(col, rot, grün, blau)



'in rot,grün und blau stehen jetzt die werte 2,2,23



End Sub





Private Sub RGBsplit(ByVal col, r As Byte, g As Byte, b As Byte)

b = (col And 16711680) / 65536

g = (col And 65280) / 256

r = col And 255

End Sub







mfg

DuranFX

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: