| 投稿日 | ： 2007/01/26(Fri) 12:50 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: [解決] 画面上のある点の色の取得 |
> （カラーコードに変換できてないんで、その数字の意味は
> わかりませんが、今回自分にとって何色であるかの
Long 型のカラー値が返ってきているので、下記のようにすれば変換できます
Private Sub Command2_Click()
Dim lngColor As Long
Dim R As Integer
Dim G As Integer
Dim B As Integer
lngColor = 16777215
R = lngColor And vbRed
G = (lngColor And vbGreen) \ &H100
B = (lngColor And vbBlue) \ &H10000
Debug.Print R, G, B
If RGB(R, G, B) = vbWhite Then
Debug.Print "明るい白です"
End If
End Sub