home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch12 / 2dObject.cls < prev    next >
Encoding:
Visual Basic class definition  |  1999-06-17  |  1.0 KB  |  38 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "TwoDObject"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15. ' Two-dimensional object parent class.
  16.  
  17. ' The object's textual serialization.
  18. Public Serialization As String
  19.  
  20. ' Drawing properties.
  21. Public DrawWidth As Integer
  22. Public DrawStyle As DrawStyleConstants
  23. Public ForeColor As OLE_COLOR
  24. Public FillColor As OLE_COLOR
  25. Public FillStyle As FillStyleConstants
  26. ' Draw the object on the canvas.
  27. Public Sub Draw(ByVal canvas As Object)
  28.  
  29. End Sub
  30. ' Return this object's bounds.
  31. Public Sub Bound(ByRef xmin As Single, ByRef xmax As Single, ByRef ymin As Single, ByRef ymax As Single)
  32.  
  33. End Sub
  34. ' Draw the object in a metafile.
  35. Public Sub DrawInMetafile(ByVal mf_dc As Long)
  36.  
  37. End Sub
  38.