vb 图像处理 比较不同 透明
现有两张图片pic1和pic2 ，它们大部分相同，现要比较它们的不同，并且把pic1中与pic2相同的地发设为透明，关键是速度要命。。。
要看图片大小了，逐个像素比较是比较慢
用bitblt，合理运用光栅操作符，应该能比较快的实现这个功能吧
逐个像素就不考虑了 速度跟不上
我用TransparentBlt 有黑边
寻找高手中
不知道先把图像转换成 2进制 然后比较 然后把相同的部分颜色设置成透明 行不行的通
先把图像转换成 2进制 异或！
帮up
大家来找茬？两张图片异或就可以了，很简单的
VB code:
Option Explicit
Private Sub Command1_Click()
Dim pic1 As IPictureDisp
Dim pic2 As IPictureDisp
Set pic1 = LoadPicture(App.Path & "\pic1.bmp")
Set pic2 = LoadPicture(App.Path & "\pic2.bmp")
Picture1.Cls
Picture1.PaintPicture pic1, 0, 0, , , , , , , vbSrcCopy
Picture1.PaintPicture pic2, 0, 0, , , , , , , vbSrcInvert
End Sub
Private Sub Form_Load()
Picture1.BackColor = vbBlack
Picture1.AutoRedraw = True
End Sub
up
非常感谢 (VB老鸟)
但是那样的话出来的图片就花了 什么颜色都有
能不能设置个颜色差 把相近的颜色考虑成一样的
本人对VB不是很熟 不知道如何把图片转成二进制 请高手解说下
可以在异或后，再用与的方式将 RBG 分量的低位清除掉。
在 Command1_
相关问答：
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
本人使用的是VB6.0版本
假设有一个对象A，A内有类型为B的对象属性。现在的问题是，需要添加若干个B对象作为A对象的属性。如，
A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount '求当前记录数
If recs > 0 Then '已有考生
Adodc1.Recordset.MoveLast '移到最后一条记录
num = V ......
