VB에서 알파 효과를 얻는 방법
AlphaBlend의 기능은 다음과 같습니다.
hdcDest 대상의 hdc
nXOriginDest 대상의 X 값
nYOriginDest Y 대상 값
nWidthDest 대상 영역의 너비
hHeightDest 대상 영역의 높이
hdcSrc 소스 hdc
nXOriginSrc 소스의 X 값
nYOriginSrc 소스의 Y 값
nWidthSrc 소스 영역의 너비
nHeightSrc 소스 영역의 높이< /p>
blendFunction 투명성
비공개 선언 함수 AlphaBlend Lib "msimg32.dll"(ByVal hdcDest As Long, ByVal nXOriginDest As Long, ByVal nYOriginDest As Long, ByVal nWidthDest As Long, ByVal hHeightDest As Long) , ByVal hdcSrc 길게, ByVal nXOriginSrc 길게, ByVal nYOriginSrc 길게, ByVal nWidthSrc 길게, ByVal nHeightSrc 길게, ByVal blendFunction 길게)
Private Sub Form_Load()
< p>Picture1.AutoSize = 참Picture1.AutoRedraw = 참
Picture2.AutoSize = 참
Picture2.AutoRedraw = 참
Picture1.Picture = LoadPicture("c:\1.bmp")
Picture2.Picture = LoadPicture("c:\2.bmp")
End Sub
Private Sub Command1_Click()
AlphaBlend Picture1.hDC , 0, 0, 100, 100, Picture2.hDC, 0, 0, 100, 100, 128 * & H10000
End Sub
투명도는 0-255여야 합니다. VB * amp H10000에 변환된 투명도 값이 필요합니다.
그렇습니다