home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / VarHelper 17995462001.psc / clsFunction.cls next >
Encoding:
Visual Basic class definition  |  2001-02-24  |  1.7 KB  |  85 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 = "clsFunction"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Option Explicit
  17.  
  18. Private mvarsName As String 'local copy
  19. Private mvarlHowMany As Long 'local copy
  20. Private mvarsModuleName As String 'local copy
  21. Private mvarsCode As String 'local copy
  22. Private mvarbScanForUse As Boolean 'local copy
  23.  
  24. Public Property Get bScanForUse() As Boolean
  25.  
  26.   bScanForUse = mvarbScanForUse
  27.  
  28. End Property
  29.  
  30. Public Property Let bScanForUse(ByVal vData As Boolean)
  31.  
  32.   mvarbScanForUse = vData
  33.  
  34. End Property
  35.  
  36. Public Property Get lHowMany() As Long
  37.  
  38.   lHowMany = mvarlHowMany
  39.  
  40. End Property
  41.  
  42. Public Property Let lHowMany(ByVal vData As Long)
  43.  
  44.   mvarlHowMany = vData
  45.  
  46. End Property
  47.  
  48. Public Property Get sCode() As String
  49.  
  50.   sCode = mvarsCode
  51.  
  52. End Property
  53.  
  54. Public Property Let sCode(ByVal vData As String)
  55.  
  56.   mvarsCode = vData
  57.  
  58. End Property
  59.  
  60. Public Property Get sModuleName() As String
  61.  
  62.   sModuleName = mvarsModuleName
  63.  
  64. End Property
  65.  
  66. Public Property Let sModuleName(ByVal vData As String)
  67.  
  68.   mvarsModuleName = vData
  69.  
  70. End Property
  71.  
  72. Public Property Get sName() As String
  73.  
  74.   sName = mvarsName
  75.  
  76. End Property
  77.  
  78. ':) Ulli's Code Formatter V2.0 (2001-01-23 10:53:16) 7 + 62 = 69 Lines
  79.  
  80. Public Property Let sName(ByVal vData As String)
  81.  
  82.   mvarsName = vData
  83.  
  84. End Property
  85.