ab.com コミュニティ

Const GetRValue(crCode) = crCode And &HFF
Const GetGValue(crCode) = (crCode And &HFF00) >> 8
Const GetBValue(crCode) = (crCode And &HFF0000) >> 16

> MSのC/C++用のヘッダにはGetBValue, GetGValue, GetRValueというマクロがあるので、これに合わせた方が良いのではないかと思います。

これは失礼。そんなものがあるなんて知りませんでした。
そこで、次のように訂正します。

[code]Const GetRValue(crCode) = crCode And &HFF
Const GetGValue(crCode) = (crCode And &HFF00) >> 8
Const GetBValue(crCode) = (crCode And &HFF0000) >> 16[/code]

こんな感じでどうでしょうか

MSのC/C++用のヘッダにはGetBValue, GetGValue, GetRValueというマクロがあるので、これに合わせた方が良いのではないかと思います。

Const RGB(r, g, b) = r Or (g <<8) Or (b <<16)

Const EXT_RED   = 0
Const EXT_GREEN = 8
Const EXT_BLUE  = 16

Const EXTRACTRGB(crCode, extColor) = (crCode >> extColor) And &HFF

RGB関数は、次のように定義されています。

[code]
Const RGB(r, g, b) = r Or (g <<8) Or (b <<16)
[/code]

よって、次のコードによりRGB値を抽出できます。

[code]
Const EXT_RED = 0
Const EXT_GREEN = 8
Const EXT_BLUE = 16

Const EXTRACTRGB(crCode, extColor) = (crCode >> extColor) And &HFF
[/code]

引数の説明
crCode ･････ カラーコードを指定する
extColor ･･･ 抽出する要素を上記定数(EXT_xxx)から指定する

extColorで指定した要素の強さが返ります。
使う機会は滅多にありませんが・・・