win32api.vb

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

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 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

End Class