home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Megafan_Sc2113845252008.psc / ClsChrono.cls < prev    next >
Text File  |  2007-03-01  |  1KB  |  76 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 = "ClsChrono"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15.  
  16. Dim mDebut As Long
  17. Dim mFin As Long
  18. Dim mPas As Long
  19. Dim mT0 As Long
  20. Dim mValue As Long
  21.  
  22. Property Let Debut(LngDebut As Long)
  23.  
  24.    mDebut = LngDebut
  25.    mValue = LngDebut
  26.    
  27. End Property
  28.  
  29. Property Let Fin(LngFin As Long)
  30.  
  31.    mFin = LngFin
  32.    
  33. End Property
  34.  
  35. Property Get Fin() As Long
  36.  
  37.    Fin = mFin
  38.    
  39. End Property
  40.  
  41. Property Let Pas(LngPas As Long)
  42.  
  43.    mPas = LngPas
  44.    
  45. End Property
  46.  
  47. Property Get Pas() As Long
  48.  
  49.     Pas = mPas
  50.     
  51. End Property
  52.  
  53. Property Let T0(LngT0 As Long)
  54.  
  55.    mT0 = LngT0
  56.    
  57. End Property
  58.  
  59. Property Get T0() As Long
  60.  
  61.    T0 = mT0
  62.  
  63. End Property
  64.  
  65. Property Let Value(LngValue As Long)
  66.     
  67.     mValue = LngValue
  68.  
  69. End Property
  70. Property Get Value() As Long
  71.  
  72.    Value = mValue
  73.  
  74. End Property
  75.  
  76.