[Visual Basic 6.0] 影像處理利用兩圖相減法製作圖片浮水印

2013-11-16

摘要:[Visual Basic 6.0] 影像處理利用兩圖相減法製作圖片浮水印

'# [Visual Basic 6.0] 影像處理 利用兩圖相減法製作圖片浮水印
'# 0xDe

Private Sub Command1_Click()
    Image1.Picture = LoadPicture(App.Path & "/Input.jpg") ' 載入圖片
    Image3.Picture = LoadPicture(App.Path & "/0xDe.bmp") ' 載入 Logo 圖片
End Sub

Private Sub Command2_Click()
    For i = 0 To 5000 Step 15
        For j = 0 To 5000 Step 15
            If Picture2.Point(i, j) <> 16777215 Then
                T = Picture2.Point(i, j)
                R = T Mod 256
                T = T \ 256
                G = T Mod 256
                T = T \ 256
                B = T Mod 256
                Picture3.PSet (i, j), RGB(Abs(R), Abs(G), Abs(B))
            Else
                T = Picture1.Point(i, j)
                R = T Mod 256
                T = T \ 256
                G = T Mod 256
                T = T \ 256
                B = T Mod 256
                Picture3.PSet (i, j), RGB(Abs(R), Abs(G), Abs(B))
            End If
        Next j
    Next i
End Sub

Private Sub Command3_Click()
    SavePicture Picture3.Image, App.Path & "/OutPicture.jpg" ' 儲存圖片輸出到當下路徑 OutPicture.Jpg
End Sub

[Visual Basic 6.0] 影像處理利用兩圖相減法製作圖片浮水印.rar

#0xDe 從分享中學習

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

回首頁