home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / The_Matrix199261572006.psc / class / Dimension.cls next >
Text File  |  2006-05-02  |  818b  |  44 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 = "Dimension"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Private wd As Long
  15. Private ln As Long
  16.  
  17. Private Sub Initialize_Class()
  18.     Initialize
  19.  
  20. End Sub
  21.  
  22. Public Sub Initialize(ByVal newln As Integer, ByVal newwd As Integer)
  23.     wd = newwd
  24.     ln = newln
  25.     
  26. End Sub
  27.  
  28. Property Get getWidth() As Long
  29.     getWidth = wd
  30.     
  31. End Property
  32.  
  33. Property Get getLength()
  34.     getLength = ln
  35.     
  36. End Property
  37.  
  38.  
  39. Property Let wd(ByVal newwd As Long)
  40.     wd = newwd
  41.     
  42. End Property
  43.  
  44.