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

急求：学VF或者VB?(专升本最后2道编程题）~

我是去年的计算机专业的毕业生，就我个人认为，你最好还是学习C语言或者是VB，因为VF现在已经不流行了，用的最多的还是VB，就这两题C和VB都可以的。

题太多，收费帮你解决

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) \ 65536

For y = 0& To H
For x = 0& To W
If p3Mask(0) <> maskrgb(0) Or p3Mask(1) <> maskrgb(1) Or p3Mask(2) <> maskrgb(2) Then
p3Dest(0) = m_AllAlphaTable(p3Dest(0), p3Src(0))
p3Dest(1) = m_AllAlphaTable(p3Dest(1), p3Src(1))
p3Dest(2) = m_AllAlphaTable(p3Dest(2), p3Src(2))
End If

p3ByteDest(0) = p3ByteDest(0) + idPixelAdd
p3ByteSrc(0) = p3ByteSrc(0) + isPixelAdd
p3ByteMask(0) = p3ByteMask(0) + imPixelAdd
Next x

p3ByteDest(0) = p3ByteDest(0) + idLineAdd
p3ByteSrc(0) = p3ByteSrc(0) + isLineAdd
p3ByteMask(0) = p3ByteMask(0) + imLineAdd
Next y

End Sub

这个不是VB能做到的，要做在种软件必须的会两种东西，一个编程另一个就是photoshop,再说了，如果要真有人会的话，你给多少分也不会有人帮你做的，除非你给钱，话又说回来，这种软件也不是一个人能这短时间内能做的出来的

就是给钱，高手也得费一番功夫

我是无能为力了

---

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