home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / iPhone_sty213964162009.psc / cDataItem.cls < prev    next >
Text File  |  2009-01-05  |  2KB  |  80 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 = "cDataItem"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15.  
  16. Private mKey As String
  17. Private mValue As String
  18. Private mValue2 As String
  19. Private mIcon As cDIBSection
  20. Private mTicked As Boolean
  21. Private mDeleted As Boolean
  22. Private mPrevSortItem As Long
  23. Private mNextSortItem As Long
  24. Private mIsRoot As Boolean
  25.  
  26. Public Property Let Deleted(v As Boolean)
  27. mDeleted = v
  28. End Property
  29. Public Property Get Deleted() As Boolean
  30. Deleted = mDeleted
  31. End Property
  32.  
  33.  
  34. Public Property Let IsRoot(v As Boolean)
  35. mIsRoot = v
  36. End Property
  37. Public Property Get IsRoot() As Boolean
  38. IsRoot = mIsRoot
  39. End Property
  40. Public Property Let PrevSortItem(sV As Long)
  41.     mPrevSortItem = sV
  42. End Property
  43. Public Property Get PrevSortItem() As Long
  44.     PrevSortItem = mPrevSortItem
  45. End Property
  46. Public Property Let NextSortItem(sV As Long)
  47.     mNextSortItem = sV
  48. End Property
  49. Public Property Get NextSortItem() As Long
  50.     NextSortItem = mNextSortItem
  51. End Property
  52.  
  53. Public Property Let Key(sV As String)
  54.     mKey = sV
  55. End Property
  56. Public Property Get Key() As String
  57.     Key = mKey
  58. End Property
  59. Public Property Let Value(sV As String)
  60.     mValue = sV
  61. End Property
  62. Public Property Get Value() As String
  63.     Value = mValue
  64. End Property
  65. Public Property Let Ticked(sV As Boolean)
  66.     mTicked = sV
  67. End Property
  68. Public Property Get Ticked() As Boolean
  69.     Ticked = mTicked
  70. End Property
  71. Public Property Set Key(sV As Object)
  72.     Set mIcon = sV
  73. End Property
  74. Public Property Let Value2(sV As String)
  75.     mValue2 = sV
  76. End Property
  77. Public Property Get Value2() As String
  78.     Value2 = mValue2
  79. End Property
  80.