Alpha 函数使用

 

为了研究图片半透明，找了很多alpha相关资料，没能实现自己的功能。先把这段代码留着，以后有时间再来看。

 

 这段代码好像是codeproject上的，有点忘记了，反正不是我写的，呵呵！

Public Class Alpha
    Private Declare Function AlphaBlend Lib "coredll.dll" _
    (ByVal hdcDest As IntPtr, ByVal xDest As Integer, ByVal yDest As Integer, ByVal cxDest As Integer, _
     ByVal cyDest As Integer, ByVal hdcSrc As IntPtr, ByVal xSrc As Integer, ByVal ySrc As Integer, _
     ByVal cxSrc As Integer, ByVal cySrc As Integer, ByVal bf As BlendFunction) As Integer

  <Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> _
  Public Structure BlendFunction
    Dim BlendOp As Byte
    Dim BlendFlags As Byte
    Dim SourceConstantAlpha As Byte
    Dim AlphaFormat As Byte
  End Structure

  Public Enum BlendOperation As Byte
    AC_SRC_OVER = 0
  End Enum

  Public Enum Blen