home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD176803292001.psc / HelpCallBack.cls < prev    next >
Encoding:
Visual Basic class definition  |  2001-03-22  |  1.4 KB  |  42 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 = "HelpObj"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  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. '''''''''''''''''''''''''''''''''''''''''''''''''''''
  17. '''''''''''''''''''''''''''''''''''''''''''''''''''''
  18. ''  helpobj Class
  19. ''
  20. ''  Copyright Olivier Martin 2000
  21. ''
  22. ''  martin.olivier@bigfoot.com
  23. ''
  24. ''  This class is used to generate the help events.
  25. ''  By creating one in a form module, it's easy
  26. ''  to react to its events after passing the object
  27. ''  to the install function so CoolMenu can use it.
  28. ''
  29. '''''''''''''''''''''''''''''''''''''''''''''''''''''
  30. '''''''''''''''''''''''''''''''''''''''''''''''''''''
  31.  
  32. Option Explicit
  33.  
  34. 'To fire this event, use RaiseEvent with the following syntax:
  35. 'RaiseEvent MenuHelp[(arg1, arg2, ... , argn)]
  36. Public Event MenuHelp(ByVal MenuText As String, ByVal MenuHelp As String, ByVal Enabled As Boolean)
  37.  
  38. Public Sub RaiseHelpEvent(ByVal MenuText As String, ByVal MenuHelp As String, Enabled As Boolean)
  39.   RaiseEvent MenuHelp(MenuText, MenuHelp, Enabled)
  40. End Sub
  41.  
  42.