home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / DarkRAD__R184725222005.psc / Editor / Area.cls next >
Text File  |  2004-05-04  |  6KB  |  208 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 = "Area"
  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.  
  17. 'local variable(s) to hold property value(s)
  18. Private mvarAreaNumber As Long 'local copy
  19. Private mvarAreaBrush As Long 'local copy
  20. Private mvarAreaAlertBrush As Long 'local copy
  21. Private mvarAreaPen As Long 'local copy
  22. Private mvarAreaName As String 'local copy
  23. Private mvarAreaNormalColor As Long 'local copy
  24. Private mvarAreaMouseColor As Long 'local copy
  25. Private mvarAreaSelected As Boolean 'local copy
  26. Private mvarAreaState As Long 'local copy
  27. Private mvarAreaComments As String 'local copy
  28. Private mvarAreaStyle As Long 'local copy
  29. Private mvarAreaType As String 'local copy
  30.  
  31.  
  32. Public Property Let AreaType(ByVal vData As String)
  33. 'used when assigning a value to the property, on the left side of an assignment.
  34. 'Syntax: X.AreaType = 5
  35.     mvarAreaType = vData
  36. End Property
  37.  
  38.  
  39. Public Property Get AreaType() As String
  40. 'used when retrieving value of a property, on the right side of an assignment.
  41. 'Syntax: Debug.Print X.AreaType
  42.     AreaType = mvarAreaType
  43. End Property
  44.  
  45.  
  46.  
  47. Public Property Let AreaStyle(ByVal vData As Long)
  48. 'used when assigning a value to the property, on the left side of an assignment.
  49. 'Syntax: X.AreaStyle = 5
  50.     mvarAreaStyle = vData
  51. End Property
  52.  
  53.  
  54. Public Property Get AreaStyle() As Long
  55. 'used when retrieving value of a property, on the right side of an assignment.
  56. 'Syntax: Debug.Print X.AreaStyle
  57.     AreaStyle = mvarAreaStyle
  58. End Property
  59.  
  60.  
  61.  
  62. Public Property Let AreaComments(ByVal vData As String)
  63. 'used when assigning a value to the property, on the left side of an assignment.
  64. 'Syntax: X.AreaComments = 5
  65.     mvarAreaComments = vData
  66. End Property
  67.  
  68.  
  69. Public Property Get AreaComments() As String
  70. 'used when retrieving value of a property, on the right side of an assignment.
  71. 'Syntax: Debug.Print X.AreaComments
  72.     AreaComments = mvarAreaComments
  73. End Property
  74.  
  75.  
  76.  
  77. Public Property Let AreaState(ByVal vData As Long)
  78. 'used when assigning a value to the property, on the left side of an assignment.
  79. 'Syntax: X.AreaState = 5
  80.     mvarAreaState = vData
  81. End Property
  82.  
  83.  
  84. Public Property Get AreaState() As Long
  85. 'used when retrieving value of a property, on the right side of an assignment.
  86. 'Syntax: Debug.Print X.AreaState
  87.     AreaState = mvarAreaState
  88. End Property
  89.  
  90.  
  91.  
  92. Public Property Let AreaSelected(ByVal vData As Boolean)
  93. 'used when assigning a value to the property, on the left side of an assignment.
  94. 'Syntax: X.AreaSelected = 5
  95.     mvarAreaSelected = vData
  96. End Property
  97.  
  98.  
  99. Public Property Get AreaSelected() As Boolean
  100. 'used when retrieving value of a property, on the right side of an assignment.
  101. 'Syntax: Debug.Print X.AreaSelected
  102.     AreaSelected = mvarAreaSelected
  103. End Property
  104.  
  105.  
  106.  
  107. Public Property Let AreaMouseColor(ByVal vData As Long)
  108. 'used when assigning a value to the property, on the left side of an assignment.
  109. 'Syntax: X.AreaMouseColor = 5
  110.     mvarAreaMouseColor = vData
  111. End Property
  112.  
  113.  
  114. Public Property Get AreaMouseColor() As Long
  115. 'used when retrieving value of a property, on the right side of an assignment.
  116. 'Syntax: Debug.Print X.AreaMouseColor
  117.     AreaMouseColor = mvarAreaMouseColor
  118. End Property
  119.  
  120.  
  121.  
  122. Public Property Let AreaNormalColor(ByVal vData As Long)
  123. 'used when assigning a value to the property, on the left side of an assignment.
  124. 'Syntax: X.AreaNormalColor = 5
  125.     mvarAreaNormalColor = vData
  126. End Property
  127.  
  128.  
  129. Public Property Get AreaNormalColor() As Long
  130. 'used when retrieving value of a property, on the right side of an assignment.
  131. 'Syntax: Debug.Print X.AreaNormalColor
  132.     AreaNormalColor = mvarAreaNormalColor
  133. End Property
  134.  
  135.  
  136.  
  137. Public Property Let AreaName(ByVal vData As String)
  138. 'used when assigning a value to the property, on the left side of an assignment.
  139. 'Syntax: X.AreaName = 5
  140.     mvarAreaName = vData
  141. End Property
  142.  
  143.  
  144. Public Property Get AreaName() As String
  145. 'used when retrieving value of a property, on the right side of an assignment.
  146. 'Syntax: Debug.Print X.AreaName
  147.     AreaName = mvarAreaName
  148. End Property
  149.  
  150.  
  151.  
  152. Public Property Let AreaPen(ByVal vData As Long)
  153. 'used when assigning a value to the property, on the left side of an assignment.
  154. 'Syntax: X.AreaPen = 5
  155.     mvarAreaPen = vData
  156. End Property
  157.  
  158.  
  159. Public Property Get AreaPen() As Long
  160. 'used when retrieving value of a property, on the right side of an assignment.
  161. 'Syntax: Debug.Print X.AreaPen
  162.     AreaPen = mvarAreaPen
  163. End Property
  164.  
  165. Public Property Let AreaAlertBrush(ByVal vData As Long)
  166. 'used when assigning a value to the property, on the left side of an assignment.
  167. 'Syntax: X.AreaBrush = 5
  168.     mvarAreaAlertBrush = vData
  169. End Property
  170.  
  171.  
  172. Public Property Get AreaAlertBrush() As Long
  173. 'used when retrieving value of a property, on the right side of an assignment.
  174. 'Syntax: Debug.Print X.AreaBrush
  175.     AreaAlertBrush = mvarAreaAlertBrush
  176. End Property
  177.  
  178. Public Property Let AreaBrush(ByVal vData As Long)
  179. 'used when assigning a value to the property, on the left side of an assignment.
  180. 'Syntax: X.AreaBrush = 5
  181.     mvarAreaBrush = vData
  182. End Property
  183.  
  184.  
  185. Public Property Get AreaBrush() As Long
  186. 'used when retrieving value of a property, on the right side of an assignment.
  187. 'Syntax: Debug.Print X.AreaBrush
  188.     AreaBrush = mvarAreaBrush
  189. End Property
  190.  
  191.  
  192.  
  193. Public Property Let AreaNumber(ByVal vData As Long)
  194. 'used when assigning a value to the property, on the left side of an assignment.
  195. 'Syntax: X.AreaNumber = 5
  196.     mvarAreaNumber = vData
  197. End Property
  198.  
  199.  
  200. Public Property Get AreaNumber() As Long
  201. 'used when retrieving value of a property, on the right side of an assignment.
  202. 'Syntax: Debug.Print X.AreaNumber
  203.     AreaNumber = mvarAreaNumber
  204. End Property
  205.  
  206.  
  207.  
  208.