platformapis.vb

来自「清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码」· VB 代码 · 共 35 行

Imports System.Runtime.InteropServices

' These structures, enumerations and p/invoke signatures come from
' wingdi.h in the Windows Mobile 5.0 Pocket PC SDK

Public Structure BlendFunction
    Public BlendOp As Byte
    Public BlendFlags As Byte
    Public SourceConstantAlpha As Byte
    Public AlphaFormat As Byte
End Structure


Public Enum BlendOperation As Byte
    AC_SRC_OVER = &H0
End Enum

Public Enum BlendFlags As Byte
    Zero = &H0
End Enum

Public Enum SourceConstantAlpha As Byte
    Transparent = &H0
    Opaque = &HFF
End Enum

Public Enum AlphaFormat As Byte
    AC_SRC_ALPHA = &H1
End Enum

Public Class PlatformAPIs
    <DllImport("coredll.dll")> _
    Public Shared Function AlphaBlend(ByVal hdcDest As IntPtr, ByVal xDest As Int32, ByVal yDest As Int32, ByVal cxDest As Int32, ByVal cyDest As Int32, ByVal hdcSrc As IntPtr, ByVal xSrc As Int32, ByVal ySrc As Int32, ByVal cxSrc As Int32, ByVal cySrc As Int32, ByVal blendFunction As BlendFunction) As Int32
    End Function
End Class