作者dam123456 (馒头)
看板Visual_Basic
标题[VB6 ] 关於影像二值化的问题
时间Thu Jul 8 15:32:56 2010
最近写了一下影像的二值化
主要是将一张图片二值化後呈现在另一张图上
可是由於图片太大张了 所以我有加上SCROLLBAR
不过这样做二值化後只有图框里的影像被二值化
虽然在呈现的图片上座标是正确的
可是其他部份都没有做到处理
想请问大家我是哪边错了吗..
下面是我的程式码
Dim i, j As Single
For i = 1 To Picture1.ScaleHeight - 1
For j = 1 To Picture1.ScaleWidth - 1
DoEvents
Col = Picture1.Point(i, j)
Col = (Col And &HFF)
If Col < 100 Then
Picture3.PSet (i, j), RGB(0, 0, 0)
Else
Picture3.PSet (i, j), RGB(255, 255, 255)
End If
Next j
Next i
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.125.10.13