RGB値の抽出
Posted: 2005年6月03日(金) 22:04
RGB関数は、次のように定義されています。
よって、次のコードによりRGB値を抽出できます。
引数の説明
crCode ・・・・・ カラーコードを指定する
extColor ・・・ 抽出する要素を上記定数(EXT_xxx)から指定する
extColorで指定した要素の強さが返ります。
使う機会は滅多にありませんが・・・
コード: 全て選択
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
crCode ・・・・・ カラーコードを指定する
extColor ・・・ 抽出する要素を上記定数(EXT_xxx)から指定する
extColorで指定した要素の強さが返ります。
使う機会は滅多にありませんが・・・