vb代码分析

答案:3 悬赏:80 手机版

解决时间 2021-07-20 07:03

提问者网友：献世佛
2021-07-19 07:01

Sub ShowTransparency(cSrc As PictureBox, cDest As PictureBox, _
ByVal nLevel As Byte)
Dim LrProps As rBlendProps
Dim LnBlendPtr As Long

cDest.Cls
LrProps.tBlendAmount = nLevel
CopyMemory LnBlendPtr, LrProps, 4
With cSrc
AlphaBlend cDest.hDC, 0, 0, .ScaleWidth, .ScaleHeight, _
.hDC, 0, 0, .ScaleWidth, .ScaleHeight, LnBlendPtr
End With
cDest.Refresh
End Sub

最佳答案

五星知识达人网友：思契十里
2021-07-19 08:10

透明图像拷贝，你的代码还需要调用两个API函数（AlphaBlend和CopyMemory）以及定义一个类型rBlendProps

ShowTransparency Picture2, Picture1, 100就是将Picture1图片和Picture2图片按透明度100(0是不透明，255是完全透明)叠加，然后拷贝进Picture1

全部回答

1楼网友：蕴藏春秋
2021-07-19 09:33

将cSrc中的图像用绘制的方式显示在cDest中

2楼网友：千杯敬自由
2021-07-19 08:22

画图的代码

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息