如何將圖片做XOR運算

Question

記得在QB裡，製作動畫時可以用XOR來將重疊部份消除，使圖形移動流暢，試問：在VB裡如何將圖片做XOR運算？也就是去除影像重疊的部份。

Answer 1

'不知道是否是你要的?表單置1個CommandButton及3個PictureBox,AutoSize = TruePrivate Sub Command1_Click()        Picture1.Picture = LoadPicture("C:\A.bmp")        Picture2.Picture = LoadPicture("C:\B.bmp")        With Picture3             .Width = Picture1.Width             .Height = Picture1.Height             .PaintPicture Picture1.Picture, 0, 0             .PaintPicture Picture2.Picture, 0, 0, , , , , , , vbSrcInvert        End WithEnd SubRasterOp 常數常數值說明vbDstInvert&H00550009反向目標點陣圖vbMergeCopy&H00C000CA合併模式和來源點陣圖vbMergePaint&H00BB0226用 Or 運算合併反向播放的來源點陣圖和目標點陣圖vbNotSrcCopy&H00330008複製反向播放的來源點陣圖到目標點陣圖vbNotSrcErase&H001100A6用 Or 運算合併來源點陣圖和目標點陣圖，然後反向播放vbPatCopy&H00F00021L將模式複製到目標點陣圖vbPatInvert&H005A0049L用 Xor 運算合併目標點陣圖與模式vbPatPaint&H00FB0A09L用 Or 運算合併反向播放的來源點陣圖與模式。然後用 Or 運算合併上述結果與目標點陣圖vbSrcAnd&H008800C6用 And 運算合併目標像素與來源點陣圖vbSrcCopy&H00CC0020複製來源點陣圖到目標點陣圖vbSrcErase&H00440328反向播放目標點陣圖並用 And 運算合併所得結果與來源點陣圖vbSrcInvert&H00660046用 Xor 運算合併目標像素和來源點陣圖vbSrcPaint&H00EE0086用 Or 運算合併目標像素和來源點陣圖