home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / axgrid / clslooku.cls < prev    next >
Encoding:
Visual Basic class definition  |  1998-11-15  |  1.2 KB  |  42 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. Public Property Let Value(ByVal vData As String)
  16. 'used when assigning a value to the property, on the left side of an assignment.
  17. 'Syntax: X.Value = 5
  18.     mvarValue = vData
  19. End Property
  20.  
  21.  
  22. Public Property Get Value() As String
  23. 'used when retrieving value of a property, on the right side of an assignment.
  24. 'Syntax: Debug.Print X.Value
  25.     Value = mvarValue
  26. End Property
  27.  
  28.  
  29.  
  30. Public Property Let Column(ByVal vData As Integer)
  31. 'used when assigning a value to the property, on the left side of an assignment.
  32. 'Syntax: X.Column = 5
  33.     mvarColumn = vData
  34. End Property
  35.  
  36.  
  37. Public Property Get Column() As Integer
  38. 'used when retrieving value of a property, on the right side of an assignment.
  39. 'Syntax: Debug.Print X.Column
  40.     Column = mvarColumn
  41. End Property
  42.