[VB6 ] 關於影像二值化的問題
最近寫了一下影像的二值化
主要是將一張圖片二值化後呈現在另一張圖上
可是由於圖片太大張了 所以我有加上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