home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / Free / Prg / axgrid.exe / Projects / axGrid / clsButton.cls < prev    next >
Encoding:
Visual Basic class definition  |  1999-02-04  |  806 b   |  29 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsButton"
  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. Public Property Let Column(ByVal vData As Integer)
  15. 'used when assigning a value to the property, on the left side of an assignment.
  16. 'Syntax: X.Column = 5
  17.     mvarColumn = vData
  18. End Property
  19.  
  20.  
  21. Public Property Get Column() As Integer
  22. 'used when retrieving value of a property, on the right side of an assignment.
  23. 'Syntax: Debug.Print X.Column
  24.     Column = mvarColumn
  25. End Property
  26.  
  27.  
  28.  
  29.