急求VB高手 或者VF高手帮助编程！！谢谢网络上的哥哥姐姐

来源：百度知道 编辑：UC知道 时间：2024/05/29 11:32:00
小弟在编程上刚刚有了些研究！！一直都是在做数码的！最近由于家里的缘故！！可能我会遗失了这份宝贵的工作！而这时单位里需要一个软件程序，且只有我对这方面有点研究！！如果成功！！我的工作就有可能得以稳定！！所以希望网络上的哥哥姐姐帮个忙！最好是教我用VB编写一个批量合成软件，有多个背景模板组成，想将一些图片指定的和A模板合成，还可以将一些图片和B模板合成，合成的效果要图片在模板的右边，左上角依次对应的填写上合成前的图片的文件名，左下角带上电脑的日期！！————————有能帮帮我这可怜的人吗？

VB可以做,
这就是合成背景模板

Private Sub MaskBlendProcess(Optional ByVal ptrDestBuffer As Long, Optional ByVal ptrSrcBuffer As Long, Optional ByVal ptrMaskBuffer As Long, Optional ByVal Width As Long, Optional ByVal Height As Long, Optional ByVal idLineAdd As Long, Optional ByVal isLineAdd As Long, Optional ByVal imLineAdd As Long, Optional ByVal idPixelAdd As Long, Optional ByVal isPixelAdd As Long, Optional ByVal imPixelAdd As Long, Optional ByVal Index As Integer, Optional ByVal BlendOp As Byte, Optional ByVal MaskColor As Long)
Dim W As Long
Dim H As Long
Dim x As Long
Dim y As Long

W = Width - 1
H = Height - 1

MakeAlphaTable BlendOp

p3ByteDest(0) = ptrDestBuffer
p3ByteSrc(0) = ptrSrcBuffer
p3ByteMask(0) = ptrMaskBuffer

Dim maskrgb(0 To 2) As Byte
maskrgb(2) = (MaskColor And &HFF&)
maskrgb(1) = (MaskColor And &HFF00&) \ 256&
maskrgb(0) = (MaskColor And &HFF0000)