home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / vbpg32 / samples4 / ch07 / modreg.bas < prev    next >
Encoding:
BASIC Source File  |  1997-02-16  |  4.4 KB  |  94 lines
  1. Attribute VB_Name = "modRegion"
  2. Option Explicit
  3. ' Copyright ⌐ 1997 by Desaware Inc. All Rights Reserved
  4.  
  5. Public Const rRECT = 0
  6. Public Const rROUNDRECT = 1
  7. Public Const rELLIPTIC = 2
  8. Public Const rPOLYGON = 3
  9. Public Const rPOLYPOLYGON = 4
  10.  
  11. '*********************************************************************
  12. #If Win32 Then
  13. Public Const ALTERNATE = 1
  14. Public Const WINDING = 2
  15. Public Const RGN_AND = 1
  16. Public Const RGN_COPY = 5
  17. Public Const RGN_DIFF = 4
  18. Public Const RGN_OR = 2
  19. Public Const RGN_XOR = 3
  20. #Else
  21. Public Const ALTERNATE = 1
  22. Public Const WINDING = 2
  23. Public Const RGN_AND = 1
  24. Public Const RGN_COPY = 5
  25. Public Const RGN_DIFF = 4
  26. Public Const RGN_OR = 2
  27. Public Const RGN_XOR = 3
  28. #End If 'WIN32
  29.  
  30.  
  31. #If Win32 Then
  32.  
  33. Public Type POINTAPI
  34.     X As Long
  35.     Y As Long
  36. End Type
  37.  
  38. Public Type RECT
  39.     Left As Long
  40.     Top As Long
  41.     Right As Long
  42.     Bottom As Long
  43. End Type
  44. #Else
  45. Public Type RECT
  46.     Left As Integer
  47.     Top As Integer
  48.     Right As Integer
  49.     Bottom As Integer
  50. End Type
  51.  
  52. Public Type POINTAPI
  53.     X As Integer
  54.     Y As Integer
  55. End Type
  56. #End If 'WIN32 Types
  57.  
  58.  
  59.  
  60. #If Win32 Then
  61. Public Declare Function RestoreDC& Lib "gdi32" (ByVal hDC As Long, ByVal nSavedDC As Long)
  62. Public Declare Function SaveDC& Lib "gdi32" (ByVal hDC As Long)
  63. Public Declare Function PaintRgn& Lib "gdi32" (ByVal hDC As Long, ByVal hRgn As Long)
  64. Public Declare Function CombineRgn& Lib "gdi32" (ByVal hDest As Long, ByVal hSrc1 As Long, ByVal hsrc2 As Long, ByVal fHow As Long)
  65. Public Declare Function CreateEllipticRgn& Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long)
  66. Public Declare Function CreatePolygonRgn& Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long)
  67. Public Declare Function CreatePolyPolygonRgn& Lib "gdi32" (lpPoint As POINTAPI, lpPolyCounts As Long, ByVal nCount As Long, ByVal nPolyFillMode As Long)
  68. Public Declare Function CreateRectRgn& Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long)
  69. Public Declare Function CreateRoundRectRgn& Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long)
  70. Public Declare Function FrameRgn& Lib "gdi32" (ByVal hDC As Long, ByVal hRgn As Long, ByVal hBrush As Long, ByVal nWidth As Long, ByVal nHeight As Long)
  71. Public Declare Function SelectClipRgn& Lib "gdi32" (ByVal hDC As Long, ByVal hRgn As Long)
  72. Public Declare Function PtInRegion& Lib "gdi32" (ByVal hRgn As Long, ByVal X As Long, ByVal Y As Long)
  73. Public Declare Function DeleteObject& Lib "gdi32" (ByVal hObject As Long)
  74. Public Declare Function CreateSolidBrush& Lib "gdi32" (ByVal crColor As Long)
  75. #Else
  76. Public Declare Function SaveDC% Lib "GDI" (ByVal hDC As Integer)
  77. Public Declare Function RestoreDC% Lib "GDI" (ByVal hDC As Integer, ByVal nSavedDC As Integer)
  78. Public Declare Function CombineRgn% Lib "GDI" (ByVal hDestRgn As Integer, ByVal hSrcRgn1 As Integer, ByVal hSrcRgn2 As Integer, ByVal nCombineMode As Integer)
  79. Public Declare Function CreateEllipticRgn% Lib "GDI" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer)
  80. Public Declare Function CreatePolygonRgn% Lib "GDI" (lpPoints As POINTAPI, ByVal nCount As Integer, ByVal nPolyFillMode As Integer)
  81. Public Declare Function CreatePolyPolygonRgn% Lib "GDI" (lpPoints As POINTAPI, lpPolyCounts As Integer, ByVal nCount As Integer, ByVal nPolyFillMode As Integer)
  82. Public Declare Function CreateRectRgn% Lib "GDI" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer)
  83. Public Declare Function CreateRoundRectRgn% Lib "GDI" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer)
  84. Public Declare Function CreateSolidBrush% Lib "GDI" (ByVal crColor As Long)
  85. Public Declare Function DeleteObject% Lib "GDI" (ByVal hObject As Integer)
  86. Public Declare Function FrameRgn% Lib "GDI" (ByVal hDC As Integer, ByVal hRgn As Integer, ByVal hBrush As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer)
  87. Public Declare Function PtInRegion% Lib "GDI" (ByVal hRgn As Integer, ByVal X As Integer, ByVal Y As Integer)
  88. Public Declare Function SelectObject% Lib "GDI" (ByVal hDC As Integer, ByVal hObject As Integer)
  89. Public Declare Function PaintRgn% Lib "GDI" (ByVal hDC As Integer, ByVal hRgn As Integer)
  90. Public Declare Function SelectClipRgn% Lib "GDI" (ByVal hDC%, ByVal hRgn%)
  91. #End If 'WIN32
  92.  
  93.  
  94.