关于VB图片的问题

来源：百度知道 编辑：UC知道 时间：2024/06/25 06:29:44
我想请问下 ，想实现一张图片在另外一张图片上从一个点匀速移动到另一个点的代码应该如何实现？

可以的话，给段代码示例一下

谢谢了

Private Sub AlphaBlendProcess(Optional ByVal ptrDestBuffer As Long, Optional ByVal ptrSrcBuffer As Long, Optional ByVal Width As Long, Optional ByVal Height As Long, Optional ByVal idLineAdd As Long, Optional ByVal isLineAdd As Long, Optional ByVal idPixelAdd As Long, Optional ByVal isPixelAdd As Long, Optional ByVal BlendOp As Byte)
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

For y = 0& To H
For x = 0& To W
p3Dest(0) = m_AllAlphaTable(p3Dest(0), p3Src(0))
p3Dest(1) = m_AllAlphaTable(p3Dest(1), p3Src(1))
p3Dest(2) = m_AllAlphaTable(p3Dest(2), p3Src(2))

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

p3ByteDest(0) = p3Byt