home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / axcool / clsitem.cls < prev    next >
Encoding:
Visual Basic class definition  |  1998-10-26  |  4.3 KB  |  147 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsItem"
  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 mvarCaption As String 'local copy
  14. Private mvarStyle As Integer 'local copy
  15. Private mvarTag As String 'local copy
  16. Private mvarToolTipText As String 'local copy
  17. Private mvarBitmap As Object 'local copy
  18. Private mvarVisible As Integer 'local copy
  19. Private mvarEnabled As Integer 'local copy
  20. 'local variable(s) to hold property value(s)
  21. Private mvarDropDown As Integer 'local copy
  22. Private mvarLeft As Integer
  23.  
  24. Public Property Let DropDown(ByVal vData As Integer)
  25. 'used when assigning a value to the property, on the left side of an assignment.
  26. 'Syntax: X.DropDown = 5
  27.     mvarDropDown = vData
  28. End Property
  29.  
  30.  
  31. Public Property Get DropDown() As Integer
  32. 'used when retrieving value of a property, on the right side of an assignment.
  33. 'Syntax: Debug.Print X.DropDown
  34.     DropDown = mvarDropDown
  35. End Property
  36.  
  37.  
  38.  
  39. Public Property Let Enabled(ByVal vData As Integer)
  40. 'used when assigning a value to the property, on the left side of an assignment.
  41. 'Syntax: X.Enabled = 5
  42.     mvarEnabled = vData
  43. End Property
  44.  
  45. Public Property Get Enabled() As Integer
  46. 'used when retrieving value of a property, on the right side of an assignment.
  47. 'Syntax: Debug.Print X.Enabled
  48.     Enabled = mvarEnabled
  49. End Property
  50.  
  51. Public Property Let Visible(ByVal vData As Integer)
  52. 'used when assigning a value to the property, on the left side of an assignment.
  53. 'Syntax: X.Visible = 5
  54.     mvarVisible = vData
  55. End Property
  56.  
  57. Public Property Get Visible() As Integer
  58. 'used when retrieving value of a property, on the right side of an assignment.
  59. 'Syntax: Debug.Print X.Visible
  60.     Visible = mvarVisible
  61. End Property
  62.  
  63.  
  64.  
  65. Public Property Set Bitmap(ByVal vData As Object)
  66. 'used when assigning an Object to the property, on the left side of a Set statement.
  67. 'Syntax: Set x.Bitmap = Form1
  68.     Set mvarBitmap = vData
  69. End Property
  70.  
  71.  
  72. Public Property Get Bitmap() As Object
  73. 'used when retrieving value of a property, on the right side of an assignment.
  74. 'Syntax: Debug.Print X.Bitmap
  75.     Set Bitmap = mvarBitmap
  76. End Property
  77.  
  78.  
  79.  
  80. Public Property Let ToolTipText(ByVal vData As String)
  81. 'used when assigning a value to the property, on the left side of an assignment.
  82. 'Syntax: X.ToolTipText = 5
  83.     mvarToolTipText = vData
  84. End Property
  85.  
  86.  
  87. Public Property Get ToolTipText() As String
  88. 'used when retrieving value of a property, on the right side of an assignment.
  89. 'Syntax: Debug.Print X.ToolTipText
  90.     ToolTipText = mvarToolTipText
  91. End Property
  92.  
  93.  
  94.  
  95. Public Property Let Tag(ByVal vData As String)
  96. 'used when assigning a value to the property, on the left side of an assignment.
  97. 'Syntax: X.Tag = 5
  98.     mvarTag = vData
  99. End Property
  100.  
  101.  
  102. Public Property Get Tag() As String
  103. 'used when retrieving value of a property, on the right side of an assignment.
  104. 'Syntax: Debug.Print X.Tag
  105.     Tag = mvarTag
  106. End Property
  107.  
  108.  
  109.  
  110. Public Property Let Style(ByVal vData As Integer)
  111. 'used when assigning a value to the property, on the left side of an assignment.
  112. 'Syntax: X.Style = 5
  113.     mvarStyle = vData
  114. End Property
  115.  
  116.  
  117. Public Property Get Style() As Integer
  118. 'used when retrieving value of a property, on the right side of an assignment.
  119. 'Syntax: Debug.Print X.Style
  120.     Style = mvarStyle
  121. End Property
  122.  
  123. Public Property Let Caption(ByVal vData As String)
  124. 'used when assigning a value to the property, on the left side of an assignment.
  125. 'Syntax: X.Caption = 5
  126.     mvarCaption = vData
  127. End Property
  128.  
  129. Public Property Get Caption() As String
  130. 'used when retrieving value of a property, on the right side of an assignment.
  131. 'Syntax: Debug.Print X.Caption
  132.     Caption = mvarCaption
  133. End Property
  134.  
  135. Public Property Let Left(ByVal vData As Integer)
  136. 'used when assigning a value to the property, on the left side of an assignment.
  137. 'Syntax: X.Style = 5
  138.     mvarLeft = vData
  139. End Property
  140.  
  141.  
  142. Public Property Get Left() As Integer
  143. 'used when retrieving value of a property, on the right side of an assignment.
  144. 'Syntax: Debug.Print X.Style
  145.     Left = mvarLeft
  146. End Property
  147.