PC Plus SuperCD (UK) 1995 October/SUPERCD.BIN/PCPLUS/VBWK/VBSPY/HELPAPI.BAS

BASIC Source File | 1994-11-20 | 912 b | 39 lines

Option Explicit
DefInt A-Z
'---General module for the Help system
Declare Function winhelp Lib "user" (ByVal hWnd As Integer, ByVal HelpFile$, ByVal wCommand As Integer, ByVal dwData As Any) As Integer

Sub Help (context As Long)
HelpGet HELP_CONTEXT, context
End Sub

Sub HelpForceFile ()
Dim x%
x% = winhelp(screen.ActiveForm.hWnd, app.HelpFile, HELP_FORCEFILE, " ")
DoEvents
End Sub

Sub HelpGet (Cmd As Integer, context As Long)
Dim x%
screen.MousePointer = 11
HelpForceFile
x% = winhelp(screen.ActiveForm.hWnd, app.HelpFile, Cmd, ByVal context)
screen.MousePointer = 0
End Sub

Sub HelpKey (context As String)
Dim x%
HelpForceFile
x% = winhelp(screen.ActiveForm.hWnd, app.HelpFile, HELP_KEY, ByVal context)
End Sub

Sub HelpQuit ()
Dim x%
x% = winhelp(screen.ActiveForm.hWnd, app.HelpFile, HELP_QUIT, " ")
End Sub

Sub HelpSearch ()
HelpGet HELP_PARTIALKEY, 0
End Sub