home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
ahelp
/
add_help.gbl
< prev
next >
Wrap
Text File
|
1980-01-04
|
1KB
|
46 lines
' I lifted the Windows Help code from the IconWorks file which comes
' with VB. This file (Add_Help.GBL) and the form (Add_Help.FRM) contain
' the required code to use address the API for Windows Help.
'
' I did not write the code. I am not accepting responsibility for it.
' Since I modified it, Microsoft will not accept responsibility either.
' Below is Microsoft's comments included in IconWorks.
'
'
'-----------------------------------------------------------------------
' Copyright (C) 1991 Microsoft Corporation
'
' You have a royalty-free right to use, modify, reproduce and distribute
' the Sample Application Files (and/or any modified version) in any way
' you find useful, provided that you agree that Microsoft has no warranty,
' obligations or liability for any Sample Application Files.
'
' -----------------------------------------------------------------------
DefInt A-Z
Declare Function WinHelp Lib "User" (ByVal hwnd, ByVal HelpFile$, ByVal wCommand, ByVal dwData As Long)
'
' Help Constants
'
Global Const MID_INDEX = 1
Global Const MID_KEYBOARD = 2
Global Const MID_COMMANDS = 3
Global Const MID_USING_HELP = 4
Global Const MID_ABOUT = 6
Global Const HELP_CONTEXT = &H1
Global Const HELP_QUIT = &H2
Global Const HELP_HELPONHELP = &H4
' CONSTANTS TAKEN FROM VB'S CONTANT.TXT FILE
'
' Booleans
' Show parameters
Global Const MODAL = 1
Global Const MODELESS = 0
Global Text As String
Global NL As String