- 155 名前：デフォルトの名無しさん mailto:sage [2009/12/18(金) 14:55:42 ]
- ttp://iup.2ch-library.com/i/i0038800-1261115044.jpg
左の画像の(x,*)に何本の黒い線が通っているかというプログラムを作りたいと思ってます。
(右の画像の赤線が通る場所)
そこで、ネットで調べてまずは色判別のプログラムを組んでみたのですが、
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
Dim Color As Long
Color = GetPixel(Form1.Picture1.hdc, 30, 30)
'試しに30,30のR値を出力するプログラムｊ
Dim R As Long
'色分解
R = Color Mod 256
Color = Color / 256
Text1.Text = R
End Sub
Text1.Textに0が出力されてしまうのですがどこか間違っているか教えていただけませんか
|
 |
