[Visual Baisc 6.0] 利用 Picture Point 實作兩圖相減

2013-11-13

摘要:[Visual Baisc 6.0] 利用 Picture Point 實作兩圖相減


'# [Visual Baisc 6.0] 利用 Picture Point 實作兩圖相減
'# 0xDe

Private Sub Command1_Click()
    For i = 0 To Picture1.Width Step 10
        For j = 0 To Picture1.Height Step 10
            If Picture1.Point(i, j) <> Picture2.Point(i, j) Then
                T = Picture1.Point(i, j) ' 取得 I,J 點的 Point
                R = T Mod 256 ' 第一次 / 256 得到餘數 為 R 值
                T = T \ 256
                G = T Mod 256 ' 第二次 / 256 得到餘數 為 G 值
                T = T \ 256
                B = T Mod 256 ' 第三次 / 256 得到餘數 為 B 值
                Picture3.PSet (i, j), RGB(R, G, B)
            End If
        Next j
    Next i
End Sub

[Visual Baisc 6.0] Picture 去背相減.rar

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問

回首頁