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_
相关问答：
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
第一次接触CrystalReport
急寻找Vb.net Access 通过查询出的数据输出到CrystalReport的例子.
有的朋友麻烦发来学习.多谢!
跟你的要求差不多，参考一下：
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
