RGB af en farve!...

Her er en sub, som kan løse dit problem

Public Sub UnRGB(Color As Integer, ByRef R As Integer, G As Integer, B As Integer)
  B = Color / 65536
  Color = Color - B * 65536
  G = Color / 256
  R = Color - G * 256
End Sub

Rettelse:

Public Sub UnRGB(Color As Long, ByRef R As Integer, G As Integer, B As Integer)
  B = Color / 65536
  Color = Color - B * 65536
  G = Color / 256
  R = Color - G * 256
End Sub

<< hougaard >>

ByRef R As Integer

hvad skal ByRef gøre godt for ?? Alle variabler er bliver per default passed by reference. Og du har det ikke på hverken G eller B kan jeg *slet* ikke se nogen grund til at bruge den.

Du har helt ret!

i øvrigt virker sub'en heller ikke i alle tilfælde! - beklager!

Prøv den her istedet:

Public Sub UnRGB(Color As Long, R As Integer, G As Integer, B As Integer)
  Dim L As Long
 
  Color = Abs(Color)
 
  L = Int(Color / 256)
  R = Color - L * 256
  Color = Int(Color / 256)
 
  L = Int(Color / 256)
  G = Color - L * 256
  B = Int(Color / 256)
End Sub

jeg prøver lige..

sorry, men hvordan bruger jeg koden?
----

jeg vil have sådan en funktion: at jeg kan sende eks. Picture1.Backcolor og at den kan Outputte... Red
-----

eks:

Dim Red as integer
Dim Green as integer
Dim Blue as integer

UnRGB Form1.BackColor, Red, Green, Blue

-- Ikke testet --

Hvis du bare vil have Red, kan du bare gøre sådan:

Red = int(Picture1.Backcolor / 256)

Sludder!
Sådan:

Dim L As Long

L = Int(Picture1.Backcolor / 256)
R = Picture1.Backcolor - L * 256

Puha... The code works...

det var bare mig...