apimodule.vb

来自「Visual Basic.NET应用编程150例」· VB 代码 · 共 28 行

Module APIModule
    Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Integer, _
                                                ByVal Y1 As Integer, _
                                                ByVal X2 As Integer, _
                                                ByVal Y2 As Integer) As Integer

    Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Integer, _
                                                    ByVal Y1 As Integer, _
                                                    ByVal X2 As Integer, _
                                                    ByVal Y2 As Integer) As Integer
    Declare Function GetActiveWindow Lib "user32" () As Integer
    Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Integer, _
                                             ByVal hSrcRgn1 As Integer, _
                                             ByVal hSrcRgn2 As Integer, _
                                             ByVal nCombineMode As Integer) As Integer

    Declare Function GetPolyFillMode Lib "gdi32" (ByVal Hdc As Integer) As Integer
    Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Integer, _
                                               ByVal hRgn As Integer, _
                                               ByVal bRedraw As Boolean) As Integer

    Public Const RGN_AND = 1
    Public Const RGN_OR = 2
    Public Const RGN_XOR = 3
    Public Const RGN_DIFF = 4
    Public Const RGN_COPY = 5
End Module