VB 用Slider控件调整图片透明度,急!
来源:百度知道 编辑:UC知道 时间:2024/07/04 07:13:19
Slider调整图片透明度,透明度在0~100之间,VB,
调整以后的图片可以保存
就像PS调整透明度那样,谢谢!
急急急急急急急急急急急急急急急急急急急急急急急急!
可追加分
打开VB建立一个新工程。选择 菜单-工程-添加模块 添加一个模块到工程中,在其中输入以下代码:
Public Type rBlendProps
tBlendOp As Byte
tBlendOptions As Byte
tBlendAmount As Byte
tAlphaType As Byte
End Type
Public Declare Function AlphaBlend Lib "msimg32" (ByVal hDestDC As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, ByVal widthSrc As Long, _
ByVal heightSrc As Long, ByVal blendFunct As Long) As Boolean
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(Destination As Any, Source As Any, ByVal Length As Long)
在Form1中添加两个PictureBox控件,其中Picture2