"ff00ff" to rgb(255, 0, 255) for example

[Criss]

Hi,

how can i convert a "ff00ff"-String in this 3 numbers (red green blue) for rgb()?

Thanks for helping me!

[infratec]

Hi,

you can use

Code: Select all

RGB($FF, $00, $FF)

Or

Code: Select all

val("$" + "FF00FF")

I hope that's what you mean.

Bernd

[Criss]

Thanks, the second example is the right thing!

[VB6_to_PBx]

would this also be OK to use ??

Code: Select all

Debug Val(Str(RGB($FF, $00, $FF)))

[infratec]

Simply test it

Code: Select all

Debug Hex(Val(Str(RGB($FF, $00, $FE))))

This shows also that the colour in PB is expected as BGR an dnot RGB.

Bernd

[VB6_to_PBx]

Code: Select all

Debug Val(Str(RGB($00, $00, $FF)))

Code seems to produce correct answer ?
16711680

and

Code: Select all

Debug Val(Str(RGB($FF, $00, $FF)))

= 16711935

[kenmo]

The color value is just an integer number. Val() converts it to a string in Decimal format, but you are expecting it in Hex() format.

Example:

Code: Select all

Structure RGBA
  R.a
  G.a
  B.a
  A.a
EndStructure

Procedure ReverseRGB(Color)
  *Temp.RGBA = @Color
  Swap *Temp\R, *Temp\B
  ProcedureReturn PeekL(*Temp)
EndProcedure



a = RGB(255, 128, 64)
b = RGB($FF, $80, $40)
c = $4080FF

Debug "Hex (BBGGRR):"
Debug "$" + Hex(a)
Debug "$" + Hex(b)
Debug "$" + Hex(c)

Debug ""

Debug "Hex (RRGGBB, CSS-style):"
Debug "#" + Hex(ReverseRGB(a))
Debug "#" + Hex(ReverseRGB(b))
Debug "#" + Hex(ReverseRGB(c))

Debug ""

Debug "Decimal:"
Debug Str(a)
Debug Str(b)
Debug Str(c)