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 / dwlgbrsh.cls < prev    next >
Encoding:
Text File  |  1996-02-29  |  1.3 KB  |  53 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "dwLogBrush"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. Option Explicit
  9.  
  10. ' Class dwLogBrush
  11. ' Class for LOGBRUSH structure
  12. ' Desaware API Class library
  13. ' Copyright (c) 1996 by Desaware Inc.
  14. ' All rights reserved
  15.  
  16. Private iLogBrush As LOGBRUSH
  17.  
  18. Public Sub CopyToLOGBRUSH(ByVal lpLogBrush As Long)
  19.     
  20.     If lpLogBrush = 0 Then RaiseError 5, "dwLogBrush"
  21.     agCopyData iLogBrush, ByVal lpLogBrush, Len(iLogBrush)
  22. End Sub
  23.  
  24. Public Sub CopyFromLOGBRUSH(ByVal lpLogBrush As Long)
  25.         
  26.     If lpLogBrush = 0 Then RaiseError 5, "dwLogBrush"
  27.     agCopyData ByVal lpLogBrush, iLogBrush, LenB(iLogBrush)
  28. End Sub
  29.  
  30. Public Property Get lbStyle() As Long
  31.     lbStyle = iLogBrush.lbStyle
  32. End Property
  33.  
  34. Public Property Let lbStyle(vNewValue As Long)
  35.     iLogBrush.lbStyle = vNewValue
  36. End Property
  37.  
  38. Public Property Get lbColor() As Long
  39.     lbColor = iLogBrush.lbColor
  40. End Property
  41.  
  42. Public Property Let lbColor(vNewValue As Long)
  43.     iLogBrush.lbColor = vNewValue
  44. End Property
  45.  
  46. Public Property Get lbHatch() As Long
  47.     lbHatch = iLogBrush.lbHatch
  48. End Property
  49.  
  50. Public Property Let lbHatch(vNewValue As Long)
  51.     iLogBrush.lbHatch = vNewValue
  52. End Property
  53.