win32api.vb

来自「苏金明编写的《用VB.NET和VC#.NET开发交互式CAD系统》一书的源代码」· VB 代码 · 共 73 行

Imports System.Runtime.InteropServices

Public Class Win32API
    <StructLayout(LayoutKind.Sequential)> Public Structure LPPOINT
        Public x As Long
        Public y As Long
    End Structure

    <DllImport("gdi32.dll")> _
     Public Shared Function SetROP2(ByVal hdc As IntPtr, _
         ByVal nDrawMode As Integer) As Boolean
    End Function

    <DllImport("gdi32.dll")> _
     Public Shared Function GetROP2(ByVal hdc As IntPtr) As Boolean
    End Function

    <DllImport("gdi32.dll")> _
    Public Shared Function CreatePen(ByVal nPenStyle As Integer, _
        ByVal nWidth As Integer, ByVal crColor As Integer) _
        As Long
    End Function

    <DllImport("gdi32.dll")> Public Shared Function CreateSolidBrush _
        (ByVal crColor As Integer) As Long
    End Function

    <DllImport("gdi32.dll")> _
   Public Shared Function GetStockObject(ByVal nIndex As Integer) As Long
    End Function

    <DllImport("gdi32.dll")> _
    Public Shared Function SelectObject(ByVal hdc As IntPtr, _
        ByVal hObject As Long) As Long
    End Function

    <DllImport("gdi32.dll")> _
    Public Shared Function DeleteObject(ByVal hObject As Long) As Long
    End Function

    <DllImport("gdi32.dll")> _
    Public Shared Function MoveToEx _
        (ByVal hdc As IntPtr, ByVal x As Integer, ByVal y As Integer, _
        ByVal lpPoint As LPPOINT) As Boolean
    End Function

    <DllImport("gdi32.dll")> _
    Public Shared Function LineTo _
        (ByVal hdc As IntPtr, ByVal x As Integer, _
        ByVal y As Integer) As Boolean
    End Function

    <DllImport("gdi32.dll")> _
    Public Shared Function Rectangle _
        (ByVal hdc As IntPtr, ByVal X1 As Integer, ByVal Y1 As Integer, _
        ByVal X2 As Integer, ByVal Y2 As Integer) As Boolean
    End Function

    <DllImport("gdi32.dll")> _
    Public Shared Function Ellipse _
      (ByVal hdc As IntPtr, ByVal X1 As Integer, ByVal Y1 As Integer, _
      ByVal X2 As Integer, ByVal Y2 As Integer) As Boolean
    End Function

    <DllImport("gdi32.dll")> _
    Public Shared Function Arc _
      (ByVal hdc As IntPtr, ByVal X1 As Integer, ByVal Y1 As Integer, _
      ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, _
      ByVal Y3 As Integer, ByVal X4 As Integer, ByVal Y4 As Integer) As Boolean
    End Function

End Class