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 / classlib / desaware / dwemetrc.cls < prev    next >
Encoding:
Text File  |  1996-02-18  |  1.2 KB  |  47 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "dwEnhMetaRecord"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. Option Explicit
  9.  
  10. ' Class dwEnhMetaRecord
  11. ' Desaware API Classes object library
  12. ' Copyright (c) 1996 by Desaware Inc.
  13. ' All rights reserved
  14.  
  15. #If Win32 Then
  16. Private iEnhMetaRecord As ENHMETARECORD
  17.  
  18. Public Sub CopyToENHMETARECORD(ByVal lpEnhMetaRecord As Long)
  19.     If lpEnhMetaRecord = 0 Then RaiseError 5, "dwEnhMetaRecord"
  20.     agCopyData iEnhMetaRecord, ByVal lpEnhMetaRecord, Len(iEnhMetaRecord)
  21. End Sub
  22.  
  23. Public Property Get iType() As Long
  24.     iType = iEnhMetaRecord.iType
  25. End Property
  26.  
  27. Public Property Let iType(vNewValue As Long)
  28.     iEnhMetaRecord.iType = vNewValue
  29. End Property
  30.  
  31. Public Property Get nSize() As Long
  32.     nSize = iEnhMetaRecord.nSize
  33. End Property
  34.  
  35. Public Property Let nSize(vNewValue As Long)
  36.     iEnhMetaRecord.nSize = vNewValue
  37. End Property
  38. Public Property Get dParm(i As Long) As Long
  39.     dParm = iEnhMetaRecord.dParm(i)
  40. End Property
  41.  
  42. Public Property Let dParm(i As Long, vNewValue As Long)
  43.     iEnhMetaRecord.dParm(i) = vNewValue
  44. End Property
  45.  
  46. #End If ' this class only exists in Win32
  47.