home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / ahelp / add_help.gbl < prev    next >
Text File  |  1980-01-04  |  1KB  |  46 lines

  1. ' I lifted the Windows Help code from the IconWorks file which comes
  2. ' with VB.  This file (Add_Help.GBL) and the form (Add_Help.FRM) contain
  3. ' the required code to use address the API for Windows Help.
  4. '
  5. ' I did not write the code. I am not accepting responsibility for it.
  6. ' Since I modified it, Microsoft will not accept responsibility either.
  7. ' Below is Microsoft's comments included in IconWorks.
  8. '
  9. '
  10. '-----------------------------------------------------------------------
  11. '               Copyright (C) 1991 Microsoft Corporation
  12. '
  13. ' You have a royalty-free right to use, modify, reproduce and distribute
  14. ' the Sample Application Files (and/or any modified version) in any way
  15. ' you find useful, provided that you agree that Microsoft has no warranty,
  16. ' obligations or liability for any Sample Application Files.
  17. '
  18. ' -----------------------------------------------------------------------
  19. DefInt A-Z
  20.  
  21. Declare Function WinHelp Lib "User" (ByVal hwnd, ByVal HelpFile$, ByVal wCommand, ByVal dwData As Long)
  22.  
  23. '
  24. ' Help Constants
  25. '
  26. Global Const MID_INDEX = 1
  27. Global Const MID_KEYBOARD = 2
  28. Global Const MID_COMMANDS = 3
  29. Global Const MID_USING_HELP = 4
  30. Global Const MID_ABOUT = 6
  31. Global Const HELP_CONTEXT = &H1
  32. Global Const HELP_QUIT = &H2
  33. Global Const HELP_HELPONHELP = &H4
  34.  
  35. ' CONSTANTS TAKEN FROM VB'S CONTANT.TXT FILE
  36. '
  37. ' Booleans
  38.  
  39. ' Show parameters
  40. Global Const MODAL = 1
  41. Global Const MODELESS = 0
  42.  
  43. Global Text As String
  44. Global NL As String
  45.  
  46.