home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD35422222000.psc / Field.cls < prev    next >
Encoding:
Visual Basic class definition  |  2000-02-21  |  1.6 KB  |  71 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 = "Field"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"No"
  16. Option Explicit
  17.  
  18. Public Key As String
  19.  
  20. Private mvarFieldname As String 'local copy
  21. Private mvarFieldType As String 'local copy
  22. Private mvarFieldID As Integer 'local copy
  23. Private mvarIsIncluded As Boolean
  24.  
  25. Public Property Get Isincluded() As Boolean
  26.     Isincluded = mvarIsIncluded
  27. End Property
  28.  
  29. Public Property Let Isincluded(ByVal vNewValue As Boolean)
  30.     mvarIsIncluded = vNewValue
  31. End Property
  32.  
  33. Public Property Let FieldID(ByVal vData As Integer)
  34.  
  35.     mvarFieldID = vData
  36. End Property
  37.  
  38.  
  39. Public Property Get FieldID() As Integer
  40.     FieldID = mvarFieldID
  41. End Property
  42.  
  43.  
  44.  
  45. Public Property Let FieldType(ByVal vData As String)
  46.     mvarFieldType = vData
  47. End Property
  48.  
  49.  
  50. Public Property Get FieldType() As String
  51.     FieldType = mvarFieldType
  52. End Property
  53.  
  54.  
  55.  
  56. Public Property Let Fieldname(ByVal vData As String)
  57. 'used when assigning a value to the property, on the left side of an assignment.
  58. 'Syntax: X.Fieldname = 5
  59.     mvarFieldname = vData
  60. End Property
  61.  
  62.  
  63. Public Property Get Fieldname() As String
  64. 'used when retrieving value of a property, on the right side of an assignment.
  65. 'Syntax: Debug.Print X.Fieldname
  66.     Fieldname = mvarFieldname
  67. End Property
  68.  
  69.  
  70.  
  71.