VB 中如何输出一个图片所有黑色点的坐标呢? 我哪地方做错了?
图片是512*512的
Picture1.ScaleMode = 3
Dim x As Single
Dim y As Single
For x = 1 To 512
For y = 1 To 512
If Picture1.Point(x, y) = &H0 Then
Open "c:\11.csv" For Append As #1
Write #1, x, y, " "
Close
End If
Next
Next
MsgBox "end"
[解决办法]
你不是已经做出来了吗
[解决办法]
你确定图片中黑色点都是&h0?如&h101010看起来也似黑色。严格的说,必须先将图片灰度化,然后二值化(0,255)再对点进行判断