|
まあなんとなく。
| 黒色 | vbBlack | QBColor(0) | RGB(0, 0, 0) | | → | 0 |
| 茶色 | | QBColor(4) | RGB(128, 0, 0) | | → | 128 |
| 赤色 | vbRed | QBColor(12) | RGB(255, 0, 0) | | → | 255 |
| 緑色 | | QBColor(2) | RGB(0, 128, 0) | | → | 32768 |
| ｵﾘｰﾌﾞ | | QBColor(6) | RGB(128, 128, 0) | | → | 32896 |
| 黄緑 | vbGreen | QBColor(10) | RGB(0, 255, 0) | | → | 65280 |
| 黄色 | vbYellow | QBColor(14) | RGB(255, 255, 0) | | → | 65535 |
| 紺色 | | QBColor(1) | RGB(0, 0, 128) | | → | 8388608 |
| 紫色 | | QBColor(5) | RGB(128, 0, 128) | | → | 8388736 |
| 深緑 | | QBColor(3) | RGB(0, 128, 128) | | → | 8421376 |
| 灰色 | | QBColor(8) | RGB(128, 128, 128) | | → | 8421504 |
| 銀色 | | QBColor(7) | RGB(192, 192, 192) | | → | 12632256 |
| 青色 | vbBlue | QBColor(9) | RGB(0, 0, 255) | | → | 16711680 |
| 桃色 | vbMagenta | QBColor(13) | RGB(255, 0, 255) | | → | 16711935 |
| 水色 | vbCyan | QBColor(11) | RGB(0, 255, 255) | | → | 16776960 |
| 白色 | vbWhite | QBColor(15) | RGB(255, 255, 255) | | → | 16777215 |
まあついでに…
'---------------------------------------------------------------------------
' 関数名： AnalyzeRGB
' 機能 ： RGB値を分解する
' 引数 ：(in) RGBValue … RGB値
' (out) R … R値
' (out) G … G値
' (out) B … B値
' 返り値：なし
'---------------------------------------------------------------------------
Public Sub AnalyzeRGB(ByVal RGBValue As Long, _
ByRef R As Long, ByRef G As Long, ByRef B As Long)
R = RGBValue And &HFF
G = (RGBValue And &HFF00&) \ &H100
B = (RGBValue And &HFF0000) \ &H10000
End Sub
|