home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / Free / Prg / axgrid.exe / Projects / axGrid / clsLookup.cls < prev    next >
Encoding:
Visual Basic class definition  |  1999-02-04  |  1.7 KB  |  58 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsLookup"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = False
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
  11. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  12. 'local variable(s) to hold property value(s)
  13. Private mvarColumn As Integer 'local copy
  14. Private mvarValue As String 'local copy
  15. 'local variable(s) to hold property value(s)
  16. Private mvarItemData As Long 'local copy
  17. Public Property Let ItemData(ByVal vData As Long)
  18. 'used when assigning a value to the property, on the left side of an assignment.
  19. 'Syntax: X.ItemData = 5
  20.     mvarItemData = vData
  21. End Property
  22.  
  23.  
  24. Public Property Get ItemData() As Long
  25. 'used when retrieving value of a property, on the right side of an assignment.
  26. 'Syntax: Debug.Print X.ItemData
  27.     ItemData = mvarItemData
  28. End Property
  29.  
  30.  
  31.  
  32.  
  33. Public Property Let Value(ByVal vData As String)
  34. 'used when assigning a value to the property, on the left side of an assignment.
  35. 'Syntax: X.Value = 5
  36.     mvarValue = vData
  37. End Property
  38.  
  39. Public Property Get Value() As String
  40. 'used when retrieving value of a property, on the right side of an assignment.
  41. 'Syntax: Debug.Print X.Value
  42.     Value = mvarValue
  43. End Property
  44.  
  45. Public Property Let Column(ByVal vData As Integer)
  46. 'used when assigning a value to the property, on the left side of an assignment.
  47. 'Syntax: X.Column = 5
  48.     mvarColumn = vData
  49. End Property
  50.  
  51.  
  52. Public Property Get Column() As Integer
  53. 'used when retrieving value of a property, on the right side of an assignment.
  54. 'Syntax: Debug.Print X.Column
  55.     Column = mvarColumn
  56. End Property
  57.  
  58.