home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Outlook_2K2097081112008.psc / ButtonItem.cls < prev    next >
Text File  |  2007-12-31  |  1KB  |  47 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 = "ButtonItem"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. 'Local variable(s) to hold property value(s)
  17. Option Explicit
  18. DefInt A-Z
  19.  
  20. Public Caption$, Tag$, ToolTipText$
  21. Public UseMaskColor As Boolean
  22. Public MaskColor As OLE_COLOR
  23. Public Key$, Description$
  24. Public Visible As Boolean
  25. Public Expanded As Boolean
  26.  
  27. Public TemporaryPicture As StdPicture
  28.  
  29. Private mvarIcon As StdPicture 'local copy
  30. Private mvarSmallIcon As StdPicture 'local copy
  31.  
  32. Public Property Set Icon(ByVal vData As StdPicture)
  33.   Set mvarIcon = vData
  34. End Property
  35.  
  36. Public Property Get Icon() As StdPicture
  37.   Set Icon = mvarIcon
  38. End Property
  39.  
  40. Public Property Set SmallIcon(ByVal vData As StdPicture)
  41.   Set mvarSmallIcon = vData
  42. End Property
  43.  
  44. Public Property Get SmallIcon() As StdPicture
  45.   Set SmallIcon = mvarSmallIcon
  46. End Property
  47.