home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap34 / vbu_ch34.bas < prev   
Encoding:
BASIC Source File  |  1995-09-13  |  1.2 KB  |  49 lines
  1. Attribute VB_Name = "VBU_CH34"
  2. '   Help engine declaration.
  3. Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Long) As Long
  4.  
  5. '  Useful WinHelp() Constants
  6. Global Const HELP_CONTEXT = &H1     ' Display topic identified by number in Data
  7. Global Const HELP_QUIT = &H2        ' Terminate help
  8. Global Const HELP_INDEX = &H3       ' Display index
  9. Global Const HELP_HELPONHELP = &H4  ' Display help on using help
  10. Global Const HELP_SETINDEX = &H5    ' Set an alternate Index for help file with more than one index
  11. Global Const HELP_KEY = &H101       ' Display topic for keyword in Data
  12. Global Const HELP_MULTIKEY = &H201  ' Lookup keyword in alternate table and display topic
  13.  
  14. Type MULTIKEYHELP
  15.     mkSize As Integer
  16.     mkKeylist As String * 1
  17.     szKeyphrase As String * 253
  18. End Type
  19.  
  20. Type ContactRecord             ' Define user-defined type.
  21.     code As String * 5         ' for Contact Manager
  22.     Company As String * 30
  23.     Address As String * 30
  24.     City As String * 20
  25.     State As String * 2
  26.     Zip As String * 5
  27.     Contact As String * 30
  28.     Phone As String * 15
  29.     NewLine As String * 2
  30. End Type
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.