También se puede llamar a la ayuda a través de las funciones API del Windows, la cual nos da un poco más de libertad.
En un módulo de nuestro programa, insertamos el siguiente código:
Public Const HelpFinder = &HB
Public Const cdlHelpContents = &H3
Public Const cdlHelpContext = &H1
Public 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
Estas són las constantes y la función WinHelp que utilizaremos.
Mostrar el contenido de nuestro archivo de ayuda:
Call WinHelp(Me.hWnd, "MailGestion.hlp", HelpFinder, 0)
Muestra los libros y hojas de nuestro archivo de ayuda.
Muestra la página determinada en la ayuda:
Call WinHelp(Me.hWnd, "mailgestion.hlp", cdlHelpContents, 0)
Esta página que muestra, es la indicada en Default Topic en Opciones para el archivo de ayuda.
Mostrar una página determinada:
Call WinHelp(Me.hWnd, "ArchivoAyuda.hlp", cdlHelpContext, numero&)
Donde numero, es el número indicado en el archivo HPJ en la sección Map..., en las Declaraciones del archivo de ayuda.
![]() |
![]() |