modcurve.bas

咋老是不能够上传

Attribute VB_Name = "ModCurve"

  Public Declare Function LineTo Lib "GDI32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
  Public Declare Function MoveToEx Lib "GDI32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, lpPoint As POINTAPI) As Long
  Public Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hdc As Long) As Long
  Public Declare Function DeleteDC Lib "GDI32" (ByVal hdc As Long) As Long
  Public Declare Function SelectObject Lib "GDI32" (ByVal hdc As Long, ByVal hObject As Long) As Long
  Public Declare Function DeleteObject Lib "GDI32" (ByVal hObject As Long) As Long
  Public Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
  Public Declare Function CreateSolidBrush Lib "GDI32" (ByVal crColor As Long) As Long
  Public Declare Function CreatePen Lib "GDI32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
  Public Declare Function BitBlt Lib "GDI32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  Public Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long

  Public Type POINTAPI
                  X   As Long
                  Y   As Long
  End Type
    
  Public Type RECT
                  Left   As Long
                  Top   As Long
                  Right   As Long
                  Bottom   As Long
  End Type