home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD66196102000.psc / CMyItemData.cls next >
Encoding:
Visual Basic class definition  |  2000-06-10  |  3.2 KB  |  116 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 = "CMyItemData"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Description = "Existe un pour chaque ΘlΘment de menu OWNERDRAW"
  15. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  16. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  17. '''''''''''''''''''''''''''''''''''''''''''''''''''''
  18. '''''''''''''''''''''''''''''''''''''''''''''''''''''
  19. ''  CMyItemData Class
  20. ''
  21. ''  Copyright Olivier Martin 2000
  22. ''
  23. ''  martin.olivier@bigfoot.com
  24. ''
  25. ''  This class will contain information about
  26. ''  a converted menu item.  It as the following
  27. ''  properties:
  28. ''
  29. ''  bAsCheck  : If the mark is a check
  30. ''  bAsMark   : If the item as a mark (no pic)
  31. ''  bMainMenu : If it's a main menu bar item
  32. ''  fType     : The type of menu item (flags)
  33. ''  iButton   : The index of the image list
  34. ''  sMenuText : The text of the menu item
  35. ''
  36. '''''''''''''''''''''''''''''''''''''''''''''''''''''
  37. '''''''''''''''''''''''''''''''''''''''''''''''''''''
  38.  
  39. Option Explicit
  40.  
  41. Private mvarsMenuText As String 'local copy
  42. Private mvarfType As Long 'local copy
  43. Private mvariButton As Integer 'local copy
  44. Private mvarbMainMenu As Boolean 'local copy
  45. Private mvarbAsCheck As Boolean 'local copy
  46. Private mvarbAsMark As Boolean 'local copy
  47. Private mvarsMenuHelp As String 'local copy
  48. Private mvarbTrueSub As Boolean 'local copy
  49.  
  50. Public Property Let bTrueSub(ByVal vData As Boolean)
  51.     mvarbTrueSub = vData
  52. End Property
  53.  
  54. Public Property Get bTrueSub() As Boolean
  55.     bTrueSub = mvarbTrueSub
  56. End Property
  57.  
  58. Public Property Let sMenuHelp(ByVal vData As String)
  59.     mvarsMenuHelp = vData
  60. End Property
  61.  
  62. Public Property Get sMenuHelp() As String
  63.     sMenuHelp = mvarsMenuHelp
  64. End Property
  65.  
  66. Public Property Let bAsMark(ByVal vData As Boolean)
  67.     mvarbAsMark = vData
  68. End Property
  69.  
  70. Public Property Get bAsMark() As Boolean
  71.     bAsMark = mvarbAsMark
  72. End Property
  73.  
  74. Public Property Let bAsCheck(ByVal vData As Boolean)
  75.     mvarbAsCheck = vData
  76. End Property
  77.  
  78. Public Property Get bAsCheck() As Boolean
  79.     bAsCheck = mvarbAsCheck
  80. End Property
  81.  
  82. Public Property Let bMainMenu(ByVal vData As Boolean)
  83.     mvarbMainMenu = vData
  84. End Property
  85.  
  86. Public Property Get bMainMenu() As Boolean
  87.     bMainMenu = mvarbMainMenu
  88. End Property
  89.  
  90. Public Property Let iButton(ByVal vData As Integer)
  91. Attribute iButton.VB_Description = "Indexe de l'image"
  92.     mvariButton = vData
  93. End Property
  94.  
  95. Public Property Get iButton() As Integer
  96.     iButton = mvariButton
  97. End Property
  98.  
  99. Public Property Let fType(ByVal vData As Long)
  100. Attribute fType.VB_Description = "Type d'ΘlΘment (item type) original"
  101.     mvarfType = vData
  102. End Property
  103.  
  104. Public Property Get fType() As Long
  105.     fType = mvarfType
  106. End Property
  107.  
  108. Public Property Let sMenuText(ByVal vData As String)
  109. Attribute sMenuText.VB_Description = "Le texte du menu"
  110.     mvarsMenuText = vData
  111. End Property
  112.  
  113. Public Property Get sMenuText() As String
  114.     sMenuText = mvarsMenuText
  115. End Property
  116.