このコード・・・

除菌 2009-01-18 01:40:40 No: 141301 IP: 192.*.*.*

どなたか詳しい方このコードの解説をしてください。

Public Type RGBValue
R As Single
G As Single
b As Single
End Type

Public Function GetRGB(Col As Long) As RGBValue
With GetRGB
.R = Col And 255
.G = (Col And 65280) / 256&
.b = (Col And 16711680) / 65535
End With
End Function

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lCol as long
Dim myRGB as RGBValue

lCol = Picture1.Point(X, Y)
myRGB = GetRGB(lCol)
End Sub

編集削除

かっぽれ 2009-01-18 05:23:01 No: 141302 IP: 192.*.*.*

Picture1上のマウスが押された箇所のRGBを取得するコードです。

編集削除

除菌 2009-01-18 17:50:24 No: 141303 IP: 192.*.*.*

かっぽれさん回答有り難うございます。

編集削除