このコード・・・


除菌  2009-01-18 10:40:40  No: 141301

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

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 14:23:01  No: 141302

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


除菌  2009-01-19 02:50:24  No: 141303

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加